Chapter 3:Perl One-Liners：Number

In this chapter, we’ll look at various one-liners for numbering lines and words, and you’ll get to know the $. special variable. You’ll also learn about Perl golfing, a “sport” that involves writing the shortest Perl program to get a task done.

3.1 Number all lines in a file

    perl -pe '$_ = "$. $_"'  file    标上行号

同

    perl -ne 'print "$. $_"'   file 

3.2 Number only non-empty lines in a file

    perl -pe '$_ = ++$x." $_" if /./'  

同

    perl -pe '$_ = ++$x." $_" if /\S/'  跳过空行标号

3.3 Number and print only non-empty lines in a file

(drop empty lines)

    perl -ne 'print ++$x." $_" if /./'  file

图片.png

3.4 Number all lines but print line numbers only for

non-empty lines

    perl -pe '$_ = "$. $_" if /./' 

图片.png

3.5 Number only lines that match a pattern;

print others unmodified

      perl -pe '$_ = ++$x." $_" if /record/'

图片.png

3.6 Number and print only lines that match a pattern

    perl -ne 'print ++$x." $_" if /regex/' 

图片.png

3.7 Number all lines but print line numbers only for

lines that match a pattern

   perl -pe '$_ = "$. $_" if /regex/' 

图片.png

3.8 Number all lines in a file using a custom format

    perl -ne 'printf "%-5d %s", $., $_'

图片.png

3.9 Print the total number of lines in a file(emulate wc -l)

      perl -lne 'END { print $. }' 

You can do the same thing with this one-liner:

    perl -le 'print $n = () = <>' 

What’s really happening here is the = operator is right-associative, meaning the = on the right is done first and the = on the left is done second:

   perl -le 'print $n = (() = <>)'   

You can also drop the variable $n from this one-liner and force the
scalar context through the scalar operator:

      perl -le 'print scalar(() = <>)' 

And now for a more obvious version:

    perl -le 'print scalar(@foo = <>)'

And here’s another way to do it:

      perl -ne '}{print $.'

3.10 Print the number of non-empty lines in a file

      perl -le 'print scalar(grep { /./ } <>)' 

Some Perl programmers like to create the shortest Perl program that does some particular task—an exercise called Perl golfing. A golfer’s version of this one-liner would replace scalar() with ~~ (double bitwise
negate) and drop the spaces, shortening it like this:

          perl -le 'print ~~grep{/./}<>'  

3.11 Print the number of empty lines in a file

    perl -lne '$x++ if /^$/; END { print $x+0 }'

An alternative to $x+0 is the int operator:

    perl -lne '$x++ if /^$/; END { print int $x }'

You could also modify the previous one-liner by doing this:

    perl -le 'print scalar(grep { /^$/ } <>)'

Or write it with ~~:

    perl -le 'print ~~grep{ /^$/ } <>'

The ~~ does bitwise negation twice, which makes grep execute in the scalar context and return the number of empty lines.

3.12 Print the number of lines in a file that match a

pattern (emulate grep -c)

    perl -lne '$x++ if /regex/; END { print $x+0 }'

3.13 Number words across all lines

    perl -pe 's/(\w+)/++$i.".$1"/ge'

This one-liner uses the /e flag, which makes Perl evaluate the replace part of the s/regex/replace/ expression as code!

3.14 Number words on each individual line

    perl -pe '$i=0; s/(\w+)/++$i.".$1"/ge' 

3.15 Replace all words with their numeric positions

      perl -pe 's/(\w+)/++$i/ge'