单行 Perl

Perl 尤其擅长用一行代码来解决问题。

首先学习几个 perl 命令的参数，并牢记：

-a：分隔行，并保存到 @F 变量中

-F：配合 -a，指定分隔符

-i：结果直接替换当前文件，如果要备份原始文件，就在 -i 后面直接跟上扩展名，如 -ibak

-n：逐行处理文件

-p：类似 -n，但会打印每一行

-e：执行的 Perl 代码

-l：打印时添加换行符（就不用显示在代码中增加 \n 了）

-C：如果要在代码里使用 UTF-8 字符集，就使用该参数

替换字符串，将 root 替换为 ROOT：

$ perl -pe 's/root/ROOT/g' /etc/passwd

打印匹配到行，类似 grep：

$ perl -ne 'print if /nologin/' /etc/passwd

打印“oo”出现两次以上的行：

$ perl -ne 'print if (s/oo/oo/g >= 3)' /etc/passwd
root:x:0:0:root:/root:/bin/bash

打印行号：

$. 保存了当前的行号。

$ perl -pe 'print "$. "' /etc/passwd

按列打印：

$ perl -F':' -ale 'print @F[0]' /etc/passwd

注：参数 -F 指定分割符

处理 CSV：

perl -a -F, -lne 'printf("@F[0],@F[1],@F[2],@F[3]\n")' file.csv

-F 指定“,”为分隔符

$ perl -MDomain::PublicSuffix -nle 'BEGIN{$s = Domain::PublicSuffix->new();}; $d = $s->get_root_domain($_); print $d if $d' all_domain