perl替换文件中的特定内容

perl替换文件中的特定内容

使用该脚本可以替换指定文件的特定内容；
举例：可以将其他脚本中的文件路径替换为你自己需要的目录

#!/bin/perluse strict;my $in_file = $ARGV[0]; # 输入文件
my $in1 = $ARGV[1]; # 需要替换的特定字符
my $in2 = $ARGV[2]; # 替换后的字符if (!defined $in_file) { #检测是否有文件输入die "Usage: $0 filename";
}
my $out = $in_file;
$out =~ s/(\.\w+)?$/.out/; #将输出文件重命名为xx.outunless (open IN, "<$in_file") {die "Can't open '$in_file':$!"; #检测是否可以打开输入文件
}unless (open OUT, ">$out") {die "Can't write '$out':$!";
}while (<IN>) {s/\b$in1\b/$in2/gm; #\b为定界符，表示只替换$in单词，包含$in的单词不替换；print OUT $_;
}