Re: Perl one-liner to print columns

On 4/25/05, Larsen, Errin M HMMA/IT <errinlarsen@xxxxxxxxxxx> wrote:
> Hi Perlers,
>
> I typically will type the following to collect a specific column of
> data from some command's output:
>
> # some_command | awk '{print $4}'
>
> I wanted to start using perl one-liners more often, so I thought I'd
> try the column thing first. This is what I came up with:
>
> # some_command | perl -pe '$_ = (split)[3] . "\n";'
>
> That feels/seems rather awkward. Is there an easier, "cleaner" way of
> doing this?
>
> --Errin
>


perl -pae '$_="$F[3]\n"'
perl -nae 'print "$F[3]\n"'

See perldoc perlrun for info on the -a and -F switches.

HTH,

--jay
.

Relevant Pages