Perl one-liner to print columns

[Larsen, Errin M HMMA/IT]

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

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response

Re: Perl one-liner to print columns

[Jay Savage]

On 4/25/05, Larsen, Errin M HMMA/IT [EMAIL PROTECTED] 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

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response

Re: Perl one-liner to print columns

[Jay Savage]

On 4/25/05, Jay Savage [EMAIL PROTECTED] wrote:
 On 4/25/05, Larsen, Errin M HMMA/IT [EMAIL PROTECTED] 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
 

Also, I feel like I should mention:

perl -lnae 'print $F[3]'   #and
perl -lpae '$_ = $F[3]'

Which are more awkish and arguably less typing, but be careful with
the -0 switch when using them.  Again, perldoc perlrun covers the
details.

Best,

--jay

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response