Question

perl 如何找寻特定的文本 找寻文本中有指定字符的所有行，然后生成一个新的文本文件

perl 如何找寻特定的文本
找寻文本中有指定字符的所有行，然后生成一个新的文本文件
能详细点吗！
一个文本文件，找寻特定的文本，生成一个新的文件。

Answer 1

open IN,$ARGV[0];
open OUT,">存储文件名";
while(<IN>){
print OUT $_ unless($_!~/你要查找的相应字符/);
}
#######使用方法是把上面的汉字部分换成相应的东东，运行这个perl 后面接文件名

Answer 2

open （OUTTXT,“>>你要存储的文件的文件名")
while(<>){
chomp ;
if($_=~m/指定字符/g) print OUTTXT $_;
}