perl-多文件一次更新

1、写代码(将@ARGV的所有文件的内容中xyz全部更新为uiui，并且在更新前进行备份，比如说deep*.txt多个文件备份为deep*.txt.bak)

#$^I完成备份文件扩展名的设置。

use strcit;

$^I="*.bak";

while (<>){

  s/xyz/uiui/g;

  print;

}

2、直接使用命令行执行以上功能

perl -p -i.bak -w -e's/xyz/uiui/g' deep*.txt

-p表示生成while循环，且print包括在while内，如果不需要生成print可以加上-n，-w表示打开警告，-e表示后面跟着程序代码s/xyz/uiui/g，并且省略了分号，如果有多个-e可以有多行代码。