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]

perl -naF/\s/ -e '$.==2 && print $F[1]' input

options:

n - only prints the lines you tell it to
a - autosplit mode into @F
F - pattern to split on in this case a regexp ("/\s/" spilt on a space)
e - evaluate whats in quotes as code

code:

$. is the input record line number
$F[1] is the second field (or column) of @F (perl uses zero based arrays)

[jyo123]

Thank you very much...
But when it is executed following error message is seen.Please can u tell me where i am doing wrong.

#!/usr/bin/perl -w
$value = `perl -naF/\s/ -e '$.==2 && print $F[1]' input.txt`;
print "$value";

Error message :

Unrecognized escape \s passed through at Untitled2 line 2.
Name "main::F" used only once: possible typo at Untitled2 line 2.
Use of uninitialized value $. in concatenation (.) or string at Untitled2 line 2.
Use of uninitialized value in concatenation (.) or string at Untitled2 line 2.
Can't find string terminator "'" anywhere before EOF at -e line 1.

.

[nithinpes]

What Kevin has posted is a perl one-liner which you can run directly in the terminal as you do with your awk command. No need of the script file.
All you need to do is type the entire command in terminal and press 'ENTER'.

[nithinpes]

What Kevin has posted is a perl one-liner which you can run directly in the terminal as you do with your awk command. No need of the script file.
All you need to do is type the entire command in terminal and press 'ENTER'.

However, if you want to use it inside script:

#!/usr/bin/perl -w
$command='perl -naF/\s/ -e "$.==2 && print $F[1]" input.txt';
$value = `$command`;
print "$value";
 

[jyo123]

However, if you want to use it inside script:

#!/usr/bin/perl -w
$command='perl -naF/\s/ -e "$.==2 && print $F[1]" input.txt';
$value = `$command`;
print "$value";
 

Is there any bound on spaces like there should be only one space between each field? because when input file has value in same row but little placed apart like
1 1132 aaaa vvvv
2 1123 bbbb 222 etert
3 1121 ssad 323 hfgh
4 2222 asda 232

i am not getting values when it is placed after few spaces

[nithinpes]

Is there any bound on spaces like there should be only one space between each field? because when input file has value in same row but little placed apart like
1 1132 aaaa vvvv
2 1123 bbbb 222 etert
3 1121 ssad 323 hfgh
4 2222 asda 232

i am not getting values when it is placed after few spaces

use:

perl -naF/\s+/ -e "$.==2 && print $F[1]" input.txt
 

\s+ will look for one or more spaces.

-Nithin

[jyo123]

use:

perl -naF/\s+/ -e "$.==2 && print $F[1]" input.txt
 

\s+ will look for one or more spaces.

-Nithin

Is there any method to increment the input record line number automatically.

for($i=0;i<=5;i++)
{
$command='perl -naF/\s+/ -e "$.=='$i' && print $F[4]" input.txt';
$value = `$command`;
print "$value";
}

1 1132 aaaa vvvv
2 1123 bbbb 222  etert
3 1121 ssad 323 hfgh
4 2222 asda 232

I require all the values in 2nd field

1132
1123
1121
2222

I am stuck up with this please anyone help me

[KevinADC]

Is there any method to increment the input record line number automatically.
for($i=0;i<=5;i++)
{
$command='perl -naF/\s+/ -e "$.=='$i' && print $F[4]" input.txt';
$value = `$command`;
print "$value";
}

1 1132 aaaa vvvv
2 1123 bbbb 222 etert
3 1121 ssad 323 hfgh
4 2222 asda 232

I require all the values in 2nd field
1132
1123
1121
2222
I am stuck up with this please anyone help me

Well, I thought you want a command line like with AWK, there is no sense in writing a one liner you run with backtiks, just do it all in the same script:

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

If you wanted all the second column values you should have said that in your first post.

[jyo123]

Well, I thought you want a command line like with AWK, there is no sense in writing a one liner you run with backtiks, just do it all in the same script:

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

If you wanted all the second column values you should have said that in your first post.

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

[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