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

[tiger peng]

Is the script not for UNIX/Linux? I investigated the failure of some scripts moved from Linux to Windows (Cygwin). There were some subtle differences between these two environments on opening/closing file handle.

----- Original Message ----
From: Richard Reina <richard at rushlogistics.com>
To: Chicago.pm chatter <chicago-talk at pm.org>
Sent: Wednesday, January 9, 2008 1:18:25 PM
Subject: Re: [Chicago-talk] A CLUE @ARGV while(<>)


Ted,

Thank you very much for the suggested rewrite for the subroutine.  So far it has not hung (fingers crossed).  However,  the lines with espf[ in them are not being removed with:

next if $line =~ m/espf\[/;

For example, if the $in_file contains the line:

^epsf[cs.45]{../rush_graphics/truck_slogan5.eps}it does not get removed.  Did I do something wrong?

Ted Zlatanov <tzz at lifelogs.com> wrote: sub delimit {
 my ($tos, $ccs, $rp, $sb, $body, $in_file) = @_;

 return unless defined $in_file;
 open IN, '<', $in_file or warn "Could not open $in_file: $!";
 my @lines;

 while (my $line = )
 {
  next if $line =~ m/espf\[/;
  push(@lines, $line);
 }
 
}





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