perl 单行 tips

1.

perl -lpe 's/\s*$//'

2.
ls -l | perl -lane 'print "$F[7] $F[1]"'


3
perl -F: -lane 'print $F[0]' /etc/passwd

4.

perl -lape 's/Installing\K.*/ Test/'

5.
perl -F: -lane 'print $F[0] if $F[4] =~ /'"'"'/' /etc/passwd
6
env re="'" perl -F: -lane 'print $F[0] if $F[4] =~ /$ENV{re}/' /etc/passwd
7
perl -F, -lane '$t += $F[1]; END { print $t }'
8
ip address list eth0 | \

  perl -MRegexp::Common -lne 'print $1 if /($RE{net}{IPv4})/'