perl读取文件，然后替换内容，再生成新的文件。然后打包。（有分）

Question

perl读取文件，然后替换内容，再生成新的文件。然后打包。

Answer 1

这个问题问的有点儿含糊，不过提供一个可能的方法供您参考。
使用 perl 的 $^| 命令，这个命令的用法解释为：
1、$^|=“” -- 设置为空代表修改文件内容；
2、$^|=“.other” -- 代表将修改后的文件保存为 filename.other

追问

能贴下代码么？

追答

呵呵，您可以搜索下这个特殊变量，网上会有很多很好的例子。我就不误导了 ^_^

Answer 2

#!/usr/bin/perl
open INPUT, "<读取文件名" or die "open file error!"
open OUTPUT, ">新的文件名" or die "open file error!"
while(<INPUT>)
{
chomp;
my $line= $_;
$line =~ s/被替换的内容/替换的内容/;
print OUTPUT "$line\n";
}
close INPUT;
close OUTPUT;