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声明分隔符