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可以有多行代码。
页:
[1]