Something like this should get you started:
See open and split.use strict; use warnings; my $fname = '/dir/file'; open my $fh, '<', $fname or die "error: open '$fname': $!"; while (<$fh>) { next unless /something/; my @flds = split; print "$flds[2]\n"; }
In reply to Re: Using Perl instead of awk!
by eyepopslikeamosquito
in thread Using Perl instead of awk!
by Ragged Robin
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |