perl syntax for using awk

[jyo123]

Hi everyone,
I have a file input.txt which has contents like this:
1 1132 aaaa vvvv
2 1123 bbbb 222
3 1121 ssad 323
4 2222 asda 232

When i was scripting in shell i used awk to pick 2nd row 2column value i.e 1123
awk 'NR=='$2' {print $2}' input

Now i need same thing to be done using perl...please anyone can suggest how to write this is perl..

thanks in advance...:-)

[KevinADC]

No actually what i needed is script has to go 1st line 1std filed, take that value ,need to do some operations like pass that value into netsnmp command then increment by itself to 2nd line and take the value in 2nd field substitute in the netsnmp command ....please this is my main intention i thought i give example of simple file and try on my own applying it to what i want..
my input file looks like this...

11713000 1.3.6.1.4.1.253 .8.63.11.1100.1 .2 5
11610000 1.3.6.1.4.1.253 .8.63.11.1100.2 .1 5
11620000 1.3.6.1.4.1.253 .8.63.11.1100.2 .2 5
11630000 1.3.6.1.4.1.253 .8.63.11.1100.2 .3 8

OK, well, try applying what you have been shown so far to whatever it is you want to do with the file data.

[jyo123]

OK, well, try applying what you have been shown so far to whatever it is you want to do with the file data.

Ya i tried but i am stuck up with iterating the line number please help me

[KevinADC]

You don't need to iterate the line numbers of you want to read all the lines. Look at the last code I posted, that reads all the lines of the file. If you ever need to get to one or some specific line, then $. (dollar-sign dot) holds that value.

[jyo123]

You don't need to iterate the line numbers of you want to read all the lines. Look at the last code I posted, that reads all the lines of the file. If you ever need to get to one or some specific line, then $. (dollar-sign dot) holds that value.

ya i got it but $.==2 is given in your code i am trying to put it in the loop i.e value given 2 ,for next iteration it should automatically increment to 3.
for($i=0;$i<=10 ;$i++)
{
$command='perl -naF/\s+/ -e "$.=$i && print $F[4]" comms_input';
$value = `$command`;
...
...
....
}

Is there anyway to assign variable into $.

[KevinADC]

Look at the last code I posted, you will not see any '$.' in the code. Do you want to loop through all the lines in the file?

open(IN,'input.txt') or die "$!";
while (<IN>) {
   print +(split/\s+/)[1],"\n";
}
close IN;
 

The code you are trying to use is terrible because you are basing it from the one-liner I posted for you which is what I thought you wanted, but you don't. Another example:

open(IN,'input.txt') or die "$!";
while (<IN>) {
   my $col2 = (split/\s+/)[1];
   do_something($col2);
}
close IN;
 
sub do_something {
   my $col2 = $_[0];
   # do something useful with $col2
}
 

[jyo123]

Look at the last code I posted, you will not see any '$.' in the code. Do you want to loop through all the lines in the file?

open(IN,'input.txt') or die "$!";
while (<IN>) {
   print +(split/\s+/)[1],"\n";
}
close IN;
 

The code you are trying to use is terrible because you are basing it from the one-liner I posted for you which is what I thought you wanted, but you don't. Another example:

open(IN,'input.txt') or die "$!";
while (<IN>) {
   my $col2 = (split/\s+/)[1];
   do_something($col2);
}
close IN;
 
sub do_something {
   my $col2 = $_[0];
   # do something useful with $col2
}
 

Thanks,
I tried this but i did not get what i wanted.
If my logic i requested is terrible then how it is possible to be success using awk
when i tried in awk i am getting what i wanted but i am not able to do in perl

In awk i used following code:
for((i=0;i<=5;i ++))
do
Syn=`awk 'NR=='$i' {print $6}' comms_input`
echo "$Syn"
............... ............... ...............
....<opertaions using $Syn>.....
done