Awk usage in perl

jyo123 has asked for the wisdom of the Perl Monks concerning the following question:

Hi Friends, I have a following input file which has 4 rows and 5 columns of data.

1 222 ssss 1111 fgfg
2 333 ssse 2222 dshg
3 444 ssws 3333 sjsh
4 555 wwsw 4444 skss
[download]

I have written following awk code to fetch values in each row and particular column like this :

for($s=0;$s<=4;$s++)
{
$value = `awk 'NR=='$s' {print $4}' comms_input`
echo $value;
}
[download]

I require above code written in perl.Please anyone help on this.

Comment on Awk usage in perl Select or Download Code

Replies are listed 'Best First'.
Re: Awk usage in perl by Corion (Patriarch) on Aug 25, 2008 at 11:59 UTC
We all have our different needs. Luckily for you, there is the `a2p` program distributed with Perl which converts an `awk` program to Perl.	[reply] [d/l] [select]
Re^2: Awk usage in perl by tilly (Archbishop) on Aug 25, 2008 at 14:20 UTC
Note that the output of a2p will encourage things like $[, which is severely deprecated in Perl and will not always work. Fixing that is beyond the average person who would use a2p and it certainly can't be mixed with other Perl code. Therefore while it was cool and important once, I can't recommend it any more.	[reply]
Re: Awk usage in perl by dwm042 (Priest) on Aug 25, 2008 at 16:33 UTC
In situations like this, the split function is your friend. Split can be used to separate on a variety of delimiters. My code: `#!/usr/bin/perl use warnings; use strict; while(<DATA>) { my @cols = split " ", $_; print $cols[3],"\n"; } __DATA__ 1 222 ssss 1111 fgfg 2 333 ssse 2222 dshg 3 444 ssws 3333 sjsh 4 555 wwsw 4444 skss` [download] And the results are: `C:\Code>perl cols_print.pl 1111 2222 3333 4444` [download] More on split: http://www.comp.leeds.ac.uk/Perl/split.html http://www.perlmeme.org/howtos/perlfunc/split_function.html	[reply] [d/l] [select]
Re: Awk usage in perl by massa (Hermit) on Aug 25, 2008 at 13:01 UTC
substitute everything for: `#!/usr/bin/env perl use strict; use warnings; open my $file, '<', 'comms_input'; while( <$file> ) { chomp; my @fields = split; print "$fields[3]\n" }` [download] []s, HTH, Massa (κς,πμ,πλ)	[reply] [d/l]
Re: Awk usage in perl by JavaFan (Canon) on Aug 25, 2008 at 12:45 UTC
You may want to look in the -a, -F and -n command line arguments.	[reply]
Re: Awk usage in perl by repellent (Priest) on Aug 26, 2008 at 08:02 UTC
Welcome to Perl! You may try the following shell one-liner: `perl -nale 'print $F[3]' comms_input` [download] `-n` means loop through each line of `comms_input` `-a` splits each incoming line into array @F, using whitespace as delimiter `-l` causes `print` statement outputs to end with newline `"\n"` `-e` defines loop code to be executed after autosplitting is done Note: Perl array reference is zero-indexed by default - `'print $F[3]'` vs `{print $4}`	[reply] [d/l] [select]
Re: Awk usage in perl by helgi (Hermit) on Aug 26, 2008 at 15:25 UTC
`use warnings; use strict; while (<DATA>) { chomp; my ($one,$two,$three,$four,$five) = split; print "$five\n"; } __END__ 1 222 ssss 1111 fgfg 2 333 ssse 2222 dshg 3 444 ssws 3333 sjsh 4 555 wwsw 4444 skss` [download] -- Regards, Helgi Briem hbriem AT f-prot DOT com	[reply] [d/l]