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

I am wondering how to write the awk one liner :

cat <filename> | awk '$2 ~ /GRHL3/{print NR"\t"$0}'

which prints out the( or any) line that has the string "GRHL3" in it as well as its respective line number

the perl one liner for the same task I have so far is perl -ne 'print if /GRHL3/' <filename>

What do I have to add so that it will also print out the line number ... I feel like $. has to go somewhere? Thanks so much!! Also does someone know of a good web resource where you can look this sort of thing up (specifically about one liners).

Replies are listed 'Best First'.
Re: print if // line number?
by ikegami (Patriarch) on Jun 07, 2011 at 23:08 UTC

    What you said it does, in case that's what you want: 

    perl -ne'print "$.\t$_" if /GRHL3/'

    [download]

    What it actually does (only the second field is checked for the pattern): 

    perl -ane'print "$.\t$_" if $F[1] =~ /GRHL3/'

    [download]

    $. is in perlvar, and -n and -a are in perlrun.

[reply]
[d/l]
[select]

      Shoot you're right sorry...yeah I meant with out the $2 (specifying the field) ...just across the whole line

[reply]
Re: print if // line number?
by kennethk (Abbot) on Jun 07, 2011 at 22:43 UTC
    awk's NR maps to Perl's $., so you should get your expected result with something like perl -ne 'print "$.:\t$_" if /GRHL3/' <filename>.

    My experience has been that the best general reference when you are trying to track down 'magic' behavior is usually perlvar.

[reply]
[d/l]
Re: print if // line number?
by toolic (Bishop) on Jun 07, 2011 at 22:46 UTC
    Also does someone know of a good web resource where you can look this sort of thing up (specifically about one liners).
    One Liners
[reply]
[reply]

Back to Seekers of Perl Wisdom