Stream editing using perl - miraj/tools GitHub Wiki

perl -ne 's/find/replace/; print'

perl -ne '/regex/ && print'

perl -ane 'print @F[1], @F[2]. "\n"'

perl -F/-/ -ane 'print "@F[2] @F[1]\n"'

$_ has the whole line

$. has the line number

Removing the first line:

ls -l | perl -ane '/^total/ || print $F[-1], "\n"'

ls -l | perl -ane ' $. == 1 || print $F[-1], "\n"'

ls -l | perl -ane ' @F == 8 && print "$F[-1]\n"'

ls -l | perl -ane 'print if $F[-1] =~ m@\d+@'