I need to write a program that will take a list of url's for pictures
and download them. I was reading up on sockets but i found them a bit
confusing. Some assistance with sockets would be very helpfull.
thanks,
Jason
HI,
Can I compare the contents of two different files using perl?
ex: one .txt and other javaobject
-Jason
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
I think I didn't post my question properly.
The text file will be having different field values with alon with
some headers.
A java program will parse the file and create a java object with the
same field values and headers, but the position and format may change.
Now I want to check if the java p
. .
Thanks in Advance,
Jason Dusek
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
the two error number labels. So if I type
something like:
>lzget -error=12
then the script should print:
>Couldn't set the transfer mode to binary.
I am not having any trouble getting a regexp that finds the right error
codes - it's what to do afterward that perplexes me . .
a PPM binary of
'win
2-gui.ppd' for this platform
Is there a problem with my installation?
Thanks
Jason
Hi,
I did also try this but I get the same error "Failed to load PPM_DAT file"
and then nothing seems to work even though I am in the PPM shel
tag pointing to a purty response page and if the user
hits 'reload', they're just reloading that page.
Jason
- Original Message -
From: "Walt Sanders" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Tuesday, August 07, 200
open(IN,"something.txt");
while($line = ) {
chomp($line);
if ($line eq "something") {
## HOW DO I STOP THE WHILE AND MOVE ON?
last; ##Here's how. :)
}
}
Just got the answer to #1 for you: check out 'switch' - documented in the
'perlsyn' perldoc. There is no 'case' or 'switch' function, but you can
emulate it with a block & exit routine, as documented.
Jason
- Original Message -
From: "
push (@rowValues, $tempValue);
}
processRow (@rowValues);
}
}
Now if the Excel file has a cell whose value contains a comma, I receive two cells
instead of one. So if the cell contained "Perl, Excel", the TEMPVALUE output would be:
TEMPVALUE = Perl
TEMPVALUE = Excel
Any thoughts/ideas?
Thanks in advance!
Jason
"$sort_order\n";
Or:
print $usage && exit unless $ARGV[0];
$sort_order = $ARGV[0];
HTH,
Jason
- Original Message -
From: "David Gilden" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, July 16, 2001 10:46 PM
Subject: Cmd Line args
>
//g;
(or)
$string =~ s/\s//g;
The first would just gack the spaces, while the second would gack spaces, line
returns, etc. The /g makes it global. Like I said, I'm sure there's a better way, but
it's too early to think of one.
Would tr// be a better choice?
--
Jason Ledbetter
Da
How about this? (using printf)
#!\Perl\bin\perl
#I have a formatting question:
#I have 2 arrays with integers that I want to print, with one array above
the other so that the
#matching entries end up in the same column. Currently they look like..
#
@ar1 = qw(116 44 45 49 71);
@ar2 = qw(1 1 3 5 1)
MAINLOOP;
}
But for that to work, you have to put a label on your main loop. I.e.:
MAINLOOP: while ($tom = "yay") {
Now, if your main loop is actually in a subroutine, use "return," just like in C.
> sub find_entry {
>my $href = shift;
>my $key = shift;
You c
for my $i (1 ... $num) {
s/$pat/$pat+$i/;
}
Get me?
--
Jason Ledbetter
Data Conversion Specialist
Perl Monk and Ascii Ninja
Cadmus Professional Communications
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Ergh. I've got this feeling I misunderstood your question. If so, forgive me.
--
Jason Ledbetter
Data Conversion Specialist
Perl Monk and Ascii Ninja
Cadmus Professional Communications
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [
27;ve wondered the same thing.
--
Jason Ledbetter
Data Conversion Specialist
Perl Monk and Ascii Ninja
Cadmus Professional Communications
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
you want, you could do the "join"
using some other character than space, such as '@', so that you could
then replace all of the '@'s that were left with newlines and restore
some semblance of the original pargraph's spacing.
I hope this was helpful for you - it was a good learning experience
for me. :)
---Jason Tiller
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi, Andrea, :)
On Wed, 12 Sep 2001, Andrea Holstein wrote:
> Jason Tiller wrote:
> > # Find the string bounded by "". The '.+?'
> > # finds all characters but isn't greedy; ".+" would match all of the
> > # characters between the
t; single array?
How about
@arr_DBanswers = values %result;
?
---Jason
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
"beginners" list. :)
After I read the perlfunc page on 'map', I discovered you could
rewrite the above even more minimally:
perl -e 'map { /^(.*)\.c$/; -f "$1.out" || print "Missing $1.out\n"; } @ARGV;' *.c
Man, perl has so many different ways to say the same thing...
Thanks!
---Jason
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
ever use $1 except in a conditional
> context!!!
That makes sense if you don't feel completely confident about your
inputs... but all the time?
---Jason
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hello, Again, Bob, :)
On Fri, 14 Sep 2001, Bob Showalter wrote:
> You can use look-behind assertion:
>
>/(? Which means, match a tilde, not preceded by a tilde, anchored to the
> end of the string. This will match:
>foo~
>~
>
> But not:
>
>foo~~
>~~
I'm trying to understand
-length, non-capturing anchor that
matches either '^' (beginning of string), or '[^~]', which indicates
any character other than tilde. If I understand aright, this pattern
would match "a", "a~" or "aa~" but not "a~~". That sound right?
rays, a
hash, and then looping through the entries.
However, I'm at a loss to see the structure of such an 's///g'
construct. Anybody have any ideas on how I should go about tackling
this?
Thanks in advance for any help!
---Jason Tiller
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi, Jeff! :)
On Mon, 17 Sep 2001, Jeff 'japhy/Marillion' Pinyan wrote:
> On Sep 17, Jason Tiller said:
> It's pretty good. The only change I would make is to structure it in a
> slightly more idiomatic fashion:
>
> my %paths;
> $paths{$_}++ for split /:/,
Hi, Paul, :)
On Tue, 18 Sep 2001, Paul Johnson wrote:
> On Mon, Sep 17, 2001 at 03:25:20PM -0700, Jason Tiller wrote:
> > I'm trying to write a short script to remove duplicate entries in
> > my PATH variable.
> The script I use to do this is
>
> print join
Hi, Jeff, :)
On Mon, 17 Sep 2001, Jeff 'japhy/Marillion' Pinyan wrote:
> On Sep 17, Jason Tiller said:
> >2) Duplicate path entries must be removed from the *tail*, not the
> > head of the path.
> Then reverse the string, screw around with it, and reverse it again
s sort of thing
use Net::FTP;
my $scan = Net::FTP->new( 'localhost', Debug => 0);
$scan->login( 'anonymous', '');
my @dirlist = $scan->dir( 'AAA/AAA.3/AAA.3.1');
$scan->quit;
print "$_\n" for @dirlist;
--
jason king
In Norway, you may not spay your female dog or cat. However, you may
neuter the males of the species. - http://dumblaws.com/
aders and such - being
a binary file
you will probably have to use Outlook to combine them
--
jason king
In Norway, you may not spay your female dog or cat. However, you may
neuter the males of the species. - http://dumblaws.com/
>-Original Message-
>From: blowther [ma
tor
print; # we're just printing for testing
}
__END__
note: we're anchoring the comment tags to the beginning of the line .. this
could break if the comment tags are not at the beginning (although in the
code sample Yvonne provided and in most C code - they are)
--
cause lexical variables have priority .. so
always use lexical variables
their scope is either within the block that they're declared in - or from
where they're declared to the end of the file if it's not in a block ..
example
#!perl -l
my $x = 'foo';
print $x;
not find that you'll receive
the best answer here (I certainly have no idea)
it seems like a perfect question for the comp.lang.perl.misc newsgroup ..
I'm sure you'll find people there who can steer you correctly
take a look at the sorts of topics that this list deals with .. it&#x
variable .. so the substitution would then become
$line =~ s/10\.0\.0\.1/10.0.0.2/;
which will do exactly what you want .. ie. it will replace 10.0.0.1 but not
10_0_0_1
--
jason king
In Spearfish, South Dakota, if three or more Indians are walking down
the street together, they can
t;<$pwfile") || die $!;
> while () {
> return 1 if $_ eq "$user|$pwd";
> }
>}
this will never return '1' because $_ will always contain an line-ending
character .. so the equality test will always fail
--
jason king
In Spearfish, South Dakota, if three or more Indians are walking down
the street together, they can be considered a war party and fired
upon. - http://dumblaws.com/
;} ne $test_password);
>}
now the equality test has a chance of succeeding because in the %users hash
you're not storing the line-ending character .. so before you were basically
trying to compare
"username1" with $in{name}
which would have been ok .. but then you also compa
ss the world would
depend on how serious the copyright infringement was
even so - for politeness you should ask the author's permission before
re-publishing their words .. if only so they have a chance to review them to
ensure that they're correct
--
jason king
In Spearfish, South Dak
quot; # the
>second
>$line does not work.
it doesn't work because at the end of $line is a newline character (you
didn't chomp it off after reading the line out of the file) .. so this is
what actually gets passed to system
xcacls some_line
/g some_line
:f /e
which almost certai
we're contractors on
standard platforms) and it alienates us :(
--
jason king
No children may attend school with their breath smelling of "wild
onions" in West Virginia. - http://dumblaws.com/
>-Original Message-
>From: John Preece [mailto:[EMAIL PROTECTED]
from my experience in c.l.p.misc some people take those bibliographies as a
disguised RTFMs .. I'd love to see it for all posts - but am afraid at how
some beginners might interpret it
--
jason king
No children may attend school with their breath smelling of "wild
onion
perlre Perl regular expressions
perlsub Perl subroutines
specifically perldata has the information on variable names
--
jason king
No children may attend school with their breath smelling of "wild
onions" in West Virginia. - http://dumblaws.com/
t;head their messages a certain way.
yeah .. that would work well .. then the prefix would be set from the
beginning of the thread
--
jason king
No children may attend school with their breath smelling of "wild
onions" in West Virginia. - http://dumblaws.com/
ady
you might also consider posting the question to the comp.lang.perl.misc
newsgroup .. because it definitely qualifies as a non-beginner question
--
jason king
No children may attend school with their breath smelling of "wild
onions" in West Virginia. - http://dumblaws.com/
l also be printed
(although it means other things in other contexts)
this is all because there are double-quotes around everything .. so as far
as Perl is concerned - it's just a string to be printed
--
jason king
No children may attend school with their breath smelling of "wild
onions" in West Virginia. - http://dumblaws.com/
. or are you
implying some other problem with $|++ ?
--
jason king
No children may attend school with their breath smelling of "wild
onions" in West Virginia. - http://dumblaws.com/
nt to the above
print qq#\n#;
print qq*\n*;
print qq|\n|;
even the rather obfuscated
print qq q\nq;
you can even use bracketing constructs and Perl will pair them up .. so the
following works a treat
print qq(some more parens () in here - perl isn't fooled\n);
Manual Refer
Amarnath Honnavalli Anantharamaiah asks ..
>How do I get help on some modules like what are services available in
>particular module say NET::FTP etc etc
all command-line distributions of Perl ship with a utility called perldoc ..
for modules like Net::FTP you should be able to type the foll
pe the following at a
command prompt
-oops- .. damn send button
you should be able to type the following
perldoc Net::FTP
for more information on perldoc type
perldoc perldoc
--
jason king
No children may attend school with their breath smelling of "wild
onions" in West
/// whenever it sees it in context .. so the
following will make a substitution
$_ = 'blah foo blah';
s qfooqbarq;
but the following will not
$_ = 'blah foo blah';
@x = qw/s qfooqbarq/;
as with any piece of Perl code - it depends on the context as to what perl
does
r
if not then you can have a look at Win32::AdminMisc::CreateProcessAsUser
(and Win32::AdminMisc::LogonAsUser) which will enable you to create a xcacls
process under a given user context and THAT user will need to have
administrator access to \\myserver
Win32::AdminMisc is available from
http://roth.ne
mmediately obvious in your script that would cause the
problem you're describing if the part numbers were on different lines
--
jason king
A Canadian law states that citizens may not publicly remove bandages.
- http://dumblaws.com/
c module .. it hasn't gone anywhere
http://roth.net/perl/
or
http://search.cpan.org/
also .. check your HTML ActivePerl documentation up the top .. about ppm ..
Dave Roth's PPM repository is one of the ones given as an example
--
jason king
A Canadian law states that citizens may not publicly remove bandages.
- http://dumblaws.com/
H , ">$bat" or die "Bad open: $!";
while()
{
chomp;
print BATCH "Start slave.bat $_\n" or die "Bad write: $!";
print BATCH "wait 5\n" or die "Bad write: $!";
}
close BATCH
te the blank line when adding the
'-d' option)
other than ensuring that the shebang line is correct (again - you'd have to
be crazy to be changing it without realising when you add the '-d' option)
there doesn't seem to be anything obvious
--
jason king
A Canadian law states that citizens may not publicly remove bandages.
- http://dumblaws.com/
Phillip Bruce writes ..
> Sometime back some one gave me the path to a config file in
> which told cpan where and what compilers that my systems uses.
> Does anyone have any ideas to this.
/path/to/perl/lib/Config.pm
--
jason king
A Canadian law states that citizens may not
endings .. notextmode indicates simply LFs
--
jason king
In Georgia, you have the right to commit simple battery if provoked
by "fighting" words. - http://dumblaws.com/
ne '.scc' # compare literally
and $_ # and return it
} ;
print @lines;
__END__
--
jason king
In Georgia, you have the right to commit simple battery if provoked
by "fighting" words. - http://dumblaws.com/
t@/ebppvobstore/vobs/UCMCQ | grep Int
change your shebang line to
#!/usr/local/bin/perl -w
to switch on warnings - this will at least help you get rid of the array
slices (@prjname[1] and @Intstream[1])
--
jason king
In Georgia, you have the right to commit simple battery if provoked
by "fighting" words. - http://dumblaws.com/
er's concept
of the current directory .. so if the user is in '/foo' and the script is
'/bar/script.pl' then '.' will be '/foo'
that's precisely what you don't want
moreover .. '.' is already in @INC - Perl puts it there
--
jason king
In Georgia, you have the right to commit simple battery if provoked
by "fighting" words. - http://dumblaws.com/
or ActiveState's PDK (Perl Developer Kit) includes an EXE generator
http://www.activestate.com/
>-Original Message-
>From: Paul Cotter [mailto:[EMAIL PROTECTED]]
>Sent: Sun 29 Apr 2001 06:48
>To: Paul Jasa
>Cc: [EMAIL PROTECTED]
>Subject: Re: running Perl scripts in Windows as an .exe
p module on CPAN that will allow you to
do the zipping in Perl
http://search.cpan.org/search?dist=Archive-Zip
--
jason king
A Canadian law states that citizens may not publicly remove bandages.
- http://dumblaws.com/
(it just prints out all the HTTP
variables)
#!perl -w
use strict;
print "Content-type: text/html\n\n";
print "$_ => $ENV{$_}\n" for sort keys %ENV;
__END__
--
jason king
A Canadian law states that citizens may not publicly remove bandages.
- http://dumblaws.com/
which (just in case you're not familiar with modules and how they work) you
would have a look at by typing the following at the command line
perldoc Archive::Tar
this is a module .. there are many shipped with perl
--
jason king
A Canadian law states that citizens may not pub
the order that I wrote them (for what I hope are obvious
reasons)
there are examples in all the standard libraries included with perl .. check
out the two directories
/path/to/perl/lib
and
/path/to/perl/site/lib
--
jason king
A Canadian law states that citizens may not publicly remove
really like to know how to make the centering and the
>zooming faster then this one, with PerlMagick.
allow me to suggest that this is not a 'beginners' question and that you
will find better and more numerous responses to your question in the
comp.lang.perl.misc newsgroup
--
get to by typing the following at a command prompt
perldoc -q temporary
there are a few different solutions for different situations
there are also a number of FAQ items on file locking - if that's actually
what you need
perldoc -f lock
--
jason king
A Canadian law states that citizens may not publicly remove bandages.
- http://dumblaws.com/
$tracknum,
$title,
$genre,
];
my $qualified_name = "$filename @{ $tracks{$filename} }";
so .. as you can tell - you'll have to explain a bit more about what you're
trying to do .. because it's really not clear
--
jason king
A Canadian law states that citizens may not publicly remove bandages.
- http://dumblaws.com/
ntainer for the result that we're using for the input
and also - when outputting a list with a common separator between the
elements .. give 'join' a go in your print statement .. much neater than
another for statement
perldoc -f grep
perldoc -f join
--
jason king
A Canadian law states that citizens may not publicly remove bandages.
- http://dumblaws.com/
- NB: most of the available modules are at least capable of doing this now
too)
get it from CPAN
http://search.cpan.org/search?dist=Mail-Sender
it's probably available via PPM if that's your cup of tea
--
jason king
In New York, a fine of $25 can be levied for flirting. Thi
uage .. check
out the Perl FAQ .. it will have been installed on your system with perl ..
type the following at the command prompt
perldoc -q "free.*array"
--
jason king
In New York, a fine of $25 can be levied for flirting. This old law
specifically prohibits men from turning ar
open IN, 'B' or die "Bad open: $!";
my %check = map { chomp; $_ => 1 } ;
so .. if the above example email addresses were in 'B' then now you'd have
the following hash
$check = ( '[EMAIL PROTECTED]' => 1,
'[EMAIL PROTECTED]&#x
rl .. or you can just
call cacls.exe with the system command .. it's a WinNT utility for change
the ACL (permissions)
--
jason king
In New York, a fine of $25 can be levied for flirting. This old law
specifically prohibits men from turning around on any city street and
looking "
lance turner writes ..
>Thanks Jason for your reply.
>
>I tried using an absolute path for gzip, but I'm getting the
>same error.
>
>I don't understand why I can run gzip from the shell but can't run it
>through perl. I'm able to run tar and other pro
=~ s/\'*/\\'/;
>> $mystring =~ s/(\')*/\\'/;
>>
>> ...neither of which work.
you need the global modifier .. what you're trying to do is do the current
match globally throughout the whole string (not zero or more)
$mystring =~ s/\'/\\'/g;
handles that have been opened for reading .. Perl closes them for you
when it exits
so .. your code could probably have looked something like this (using the
wonderful File::Path module)
#!perl -w
use strict;
use File::Path 'rmtree';
open DIRS, 'c:/admin/removedir.txt' or die
admin/removedir.txt' or die "Bad open: $!";
chdir 'c:/admin/test';
while()
{
chomp;
if( not -d ) { print qq/Directory "$_" does not exist.\n/; next }
rmtree $_ or print qq/\n\tDirectory deletion of "$_" failed.\n\n/;
}
__EN
your scripts are very simple which would suggest that it's something that's
happening prior to the scripts being interpreted .. what happens when you
run the files from the command line like this ?
/path/to/filename
perhaps your shebang line is not right ??
--
jason king
In New Y
issions error .. I presume that this is in a
cgi-script directory .. or you have the appropriate extension mapping in
your conf file ?
other than that - I really can't think of anything else
--
jason king
In New York, a fine of $25 can be levied for flirting. This old law
specific
e
http://search.cpan.org/search?dist=libet
the examples in the documentation make any examples here redundant
--
jason king
In New York, a fine of $25 can be levied for flirting. This old law
specifically prohibits men from turning around on any city street and
looking "at a woma
search for cookie and you'll see the cookie_jar method .. and a reference to
HTTP::Cookies .. check the documentation for that too
perldoc HTTP::Cookies
it's pretty simple
Hint: test cookie scripts first on the command line - it's MUCH easier to
see and debug the output
--
j
e issue - the issue is that by using a plain LF you're relying
on the socket library on the server that this script is running on to
convert that to CRLF for you - which most do .. but not all
because network protocols demand CRLF
--
jason king
In Norway, you may not spay your female dog or cat. However, you may
neuter the males of the species. - http://dumblaws.com/
bstitution from "\n" to "\r\n" when Win32 writes that
out to a file it will replace the "\n" with "\r\n" so you'll get "\r\r\n" at
the end of each line
believe it or not - you need to do some bindmoding of filehandles to ensure
no line-ending co
hen you can change
>it so it will call a "flush_list" function every 5000 file or
>something and clear the @files array.
or you could just open the filehandle before the call to find - then print
to it within the find .. eg.
#!/usr/bin/perl -w
use strict;
use File::Find 'f
e::Unknown::[EMAIL PROTECTED]
BCSJN::Joe User::1
N.Main::Anytown::MO::None::Unknown::[EMAIL PROTECTED]
BCSJN::Paul User::1
N.Main::Anytown::MO::None::Unknown::[EMAIL PROTECTED]
then the problem is much simpler .. see the $/ variable in the perlvar
documentation (type the following at the command prompt)
perldoc perlvar
you might not be familiar with the split() function above
perldoc -f split
--
jason king
In Norway, you may not spay your female dog or cat. However, you may
neuter the males of the species. - http://dumblaws.com/
: system( "romdir /s /q $user" ) || dir $?;
>
>dir??? "Casey, that's supposed to be die(), dummy."
and 'romdir' is surely meant to be 'rmdir' .. someone needs some sleep ;)
still the question remains - why call out to the system when the same thing
ca
nd here I can't
help you :) .. I'm not familiar with the object model for Outlook - sorry
--
jason king
In Norway, you may not spay your female dog or cat. However, you may
neuter the males of the species. - http://dumblaws.com/
s is reverse. I was wondering if you knew of a way to read
>in a word and reverse it's contents. Not critical but it has intrigued
>me.
perl -pe 's/hello/reverse $&/e' -i test
perldoc references (type any of the following on the command line):
perldoc perlre
perldoc
Mike Stussie writes ..
>Jason... thanks for responding... let me clear up a couple of things
>and perhaps you can provide further guidance.
>
>The email broke the record into 2 lines, each record is actually only
>one line of which the only field that concerns me is the email add
tree
than Perl and File::Find and Archive::Tar
--
jason king
It is illegal to "annoy a bird" in any city park of Honolulu, Hawaii.
- http://dumblaws.com/
like to know about the "impact"
>(if any) of having Perl ans ASP in the same server.
zero unless for some reason you'd mapped the .pl or .plx extensions to your
ASP interpreter
--
jason king
It is illegal to "annoy a bird" in any city park of Honolulu, Hawaii.
- http://dumblaws.com/
verse'
except that will reverse the entire line when the originator seemed to only
want to reverse instances of the word 'hello'
--
jason king
It is illegal to "annoy a bird" in any city park of Honolulu, Hawaii.
- http://dumblaws.com/
server
words of warning: proxies are never as easy to write as they seem
references:
http://search.cpan.org/search?mode=module&query=apache
http://search.cpan.org/search?dist=libwww-perl
--
jason king
It is illegal to "annoy a bird" in any city park of Honolulu, Hawaii.
- http://dumblaws.com/
I wrote ..
>Mike Stussie writes ..
>
>>Jason... thanks for responding... let me clear up a couple of things
>>and perhaps you can provide further guidance.
>>
>>The email broke the record into 2 lines, each record is actually only
>>one line of which th
next entry" ? Right now, I'm not
getting any syntax errors, Perl is just politely
ignoring the print command.
Any assistance is greatly appreciated.
Jason
__
Do You Yahoo!?
Yahoo! Auctions - buy the things you want at great prices
http://auctions.yahoo.com/
{
>if (/new Array\\\(\\\);\\nkeyComp\[.+\] = "([^"]*)/g){
>print "$1 \n";
>
>}
>}
>print "END OF FILE";
you should probably slurp the whole file into one scalar to do the regex on
.. so after the open you'd have something like this
my $file_c
T_MAX = 0;
my $q = new CGI;
print $q->header,
$q->start_html('My test table page'),
$q->start_table( { -border => 0 } ),
$q->Tr( $q->td( scalar localtime )),
$q->end_table,
$q->end_html;
__END__
--
jason king
In Nev
$TYPETAG doesn't appear on the line .. taking a look at
its contents - and using my Psi::ESP module .. I'm guessing that it's
because its value is
where it should be
but that's just a guess
--
jason king
In Hibbing, Minnesota, it shall be the duty of all pol
running such an old version of Perl .. it is a
possible cause of this weird problem
you should upgrade to at least 5.005_03 .. but why not 5.6.0 or 5.6.1 .. get
the latest version from ActiveState
http://www.activestate.com/
--
jason king
In Hibbing, Minnesota, it shall be the duty of all policemen to kill
all cats running at large. - http://dumblaws.com/
the idea
open MAIL, '|/usr/ucb/sendmail' or die "Bad pipe: $!";
print MAIL <
EOF
close MAIL or die "Bad pipe close: $!";
__END__
hope that helps
--
jason king
In Hibbing, Minnesota, it shall be the duty of all policemen to kill
all cats running at large. - http://dumblaws.com/
1 - 100 of 491 matches
Mail list logo
