[Chicago-talk] A CLUE @ARGV while(<>)

Richard Reina richard at rushlogistics.com
Tue Jan 8 06:55:49 PST 2008


Progress, maybe.  I believe this script is hanging at the line push(@lines, $_) unless (/espf\[/); 

I believe this because in cases when it hangs, if I do a Cntl-C I get:

Not a subroutine reference at ./file_delimiter.pl line 24, <> line3.

This is turning out to be a disruptive problem here.  Any help would be greatly appreciated.


#!/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(<>) {

push(@lines, $_) unless (/espf\[/);  # hangs here sometimes

} # end of while

} # end of if    

} # end of sub

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/chicago-talk/attachments/20080108/3b531d01/attachment.html 


More information about the Chicago-talk mailing list