Question

5

How to correctly invoke awk in Perl to print out the 3rd last field in a line?

rated 0 times [ 5] [ 0] / answers: 1 / hits: 29826 / 2 Years ago, mon, august 15, 2022, 9:14:16

My script is:

#!/usr/bin/perl -w



my $line="1 2 3 4 5 6 7";

print $line;

my $thirdlast=`print $line |awk '{print $(NF-3)}'`;

print $thirdlast;

The output is:

1 2 3 4 5 6 7   awk: 0602-542 There is an extra ) character.

 The source line is 1.

 The error context is

                {print 201 1 >>>  201NF-3) <<< 

 Syntax Error The source line is 1.

 awk: 0602-502 The statement cannot be correctly parsed. The source line is 1.

        awk: 0602-542 There is an extra ) character.

What is it complaining about? Anything wrong with my script? Couldn't understand why it says The source line is 1.

What fix is needed by my script?

Answers

Only authorized users can answer the question. Please sign in first, or register a free account.

corsee

Add To Favorites

Follow

Total Points: 479

Total Questions: 122

Total Answers: 106

Location: Barbados

Member since Sat, May 9, 2020

4 Years ago

corsee questions

1 How do I install Firefox in WSL, when it requires snap, but snap doesn't work?

Thu, Aug 26, 21, 10:26, 3 Years ago

1 Where does Virtualbox store Literally ALL of its Files & Packages?

Mon, Mar 7, 22, 22:27, 2 Years ago

1 Ubuntu 21.04. Does apt update and apt upgrade work on all apps?

Wed, Sep 21, 22, 05:17, 2 Years ago

1 Lenovo IdeaPad 1 11ADA05: How can I access the eMMC?

Tue, Apr 25, 23, 02:19, 1 Year ago

1 /usr/bin/nvidia-modprobe: unrecognized option: "-s"

Mon, Aug 2, 21, 01:37, 3 Years ago

View All

answered 2 Years ago gliroopy · Accepted Answer

You don't need to call awk inside your perl program, perl provides the necessary functions to perform such operation:

#!/usr/bin/perl -w



my $line="1 2 3 4 5 6 7";

my @tab = split(/s+/, $line);

print $tab[-3],"

";

This small program outputs: 5