<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:courier,monaco,monospace,sans-serif;font-size:10pt"><div style="font-family: courier,monaco,monospace,sans-serif; font-size: 10pt;">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.<br><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">----- Original Message ----<br>From: Richard Reina <richard@rushlogistics.com><br>To: Chicago.pm chatter <chicago-talk@pm.org><br>Sent: Wednesday, January 9, 2008 1:18:25 PM<br>Subject: Re: [Chicago-talk] A CLUE @ARGV while(<>)<br><br>
Ted,<br><br>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:<br><br>next if $line =~ m/espf\[/;<br><br>For example, if the $in_file contains the line:<br><br><pre><tt><tt>^epsf[cs.45]{../rush_graphics/truck_slogan5.eps}</tt></tt></pre>it does not get removed. Did I do something wrong?<br><br><b><i>Ted Zlatanov <tzz@lifelogs.com></i></b> wrote:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> sub delimit {<br> my ($tos, $ccs, $rp, $sb, $body, $in_file) = @_;<br><br> return unless defined $in_file;<br> open IN, '<', $in_file or warn "Could not open $in_file: $!";<br> my @lines;<br><br> while (my $line = )<br> {<br> next if $line =~ m/espf\[/;<br> push(@lines, $line);<br> }
<br>}<br><br></blockquote><br></div><br></div></div></body></html>