A. 原文替换

perl -p -i.bak -e "s/源串/目标串/g" <文件名>

原文会备份为.bak后缀的文件

B. 正则分组提取

echo "tom and dic" | perl -n -e ' @w = /(tom).*(dic)/; print "$w[0] & $w[1]"'

打印 “tom & dic”

注：-p 打印满足正则的字串到输出

    -n 不打印串到输出，只打印程序print之类的语句

C. 字符串分割

-a 开启自动分割，分割的结果保存在@F

-F/pattern/ 和-a配合使用，pattern声明分隔符