had to become:open ( $fh, "< $path_to_file"); binmode($fh); my @log = <$fh>; my $line; while ($line = pop @log) { last if ($line =~ /^.*\ -\ line I'm looking for$/); }
last if ($line =~ /^.*\ -\ line I'm looking for/);
In reply to Re^2: Problems with binary data in text documents
by omadawn
in thread Problems with binary data in text documents
by omadawn
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |