On Tue, Oct 07, 2008 at 10:07:21AM -0700, John W. Krahn wrote:
> [EMAIL PROTECTED] wrote:
>> This one-liner does pretty much what I would want but I do not know
>> how to convert it to a script.
>> perl -lane 'print $F[2] if /searchterm/' input.txt
>
> #!/usr/bin/perl
> $\ = "\n";
> while ( <> ) {
> my @F = split;
> print $F[2] if /searchterm/;
> }
> __END__
See also:
$perl -MO=Deparse -lane 'print $F[2] if /searchterm/'
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
chomp $_;
our(@F) = split(' ', $_, 0);
print $F[2] if /searchterm/;
}
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
