[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