Hmmm. Can you show how you are running it? This is how my complete code looked:
#!/usr/bin/env perl use strict; use warnings; open my $in, "<", shift; while( my $line = <$in> ) { $line =~ s/ .* report s? .* ; .* //sx; print $line; }
Be sure to put the name of the report file as an argument on the CL. Also, which operating system are you using?
In reply to Re^3: text matching
by frozenwithjoy
in thread text matching
by prassi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |