perl替换文件中的特定内容
perl替换文件中的特定内容
使用该脚本可以替换指定文件的特定内容；
举例：可以将其他脚本中的文件路径替换为你自己需要的目录
#!/bin/perl
use 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.out
unless (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 $_;
}