[Chicago-talk] @ARGV while(<>)
Richard Reina
richard at rushlogistics.com
Fri Jan 4 14:51:41 PST 2008
Apologies. Since the program is on a private network I am copying it into the email. Here is code with the omitted lines that come before:
#!/usr/bin/perl5 -w
use warnings;
use strict;
sub delimit {
my ($tos, $ccs, $rp, $sb, $body, $in_file) = @_;
if (defined $in_file) { # file submited
@ARGV = $in_file;
$body = "";
while(<>) {
unless(/epsf\[/) {
$body = $body . $_;
} # end of unless
} # end of while
} # end of if
} # end of sub
Randal what does a single undef mean? Does it mean only one file?
should I do:
@ARGV = qw($in_file);
?
Now, @ARGV contains only a single undef, which I *think* will
Thank you very much for the replies. In answering Matt's question the
files are between 20 and 100 lines.
Your beliefs become your thoughts. Your thoughts become your words. Your words become your actions. Your actions become your habits. Your habits become your values. Your values become your destiny. -- Mahatma Gandhi
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/chicago-talk/attachments/20080104/083137c8/attachment.html
More information about the Chicago-talk
mailing list