[Chicago-talk] A CLUE @ARGV while(<>)
Richard Reina
richard at rushlogistics.com
Wed Jan 9 11:18:25 PST 2008
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/20080109/17a7df76/attachment.html
More information about the Chicago-talk
mailing list