Question

perl 正则表达式 匹配多行的问题

我文件格式如下：

2_name_joseph
2_age_109
2_name_tifor
2_age_10
2_name_momo
2_age_29
2_name_joseph
2_age_29
...（很多行）
想要把里面joseph的年纪都替换为22

脚本如下，肯定不对，因为不能替换到两行，结果会多出一行原来的结果，请问怎么改？

得出的错误结果为
2_name_joseph
2_age_22
2_age_29
。。。。。

my $FilePath = <STDIN>;
chomp($FilePath);

if (-e $FilePath)
{
rename ($FilePath,$FilePath.".bak") || die "Cannot rename \n";
open (DATALOG_FILE, $FilePath.".bak") || die ("file ".$FilePath.".bak not found\n");
open (OUTPUT, ">".$FilePath.".temp");
while (<DATALOG_FILE>)
{

chomp($_);
if( /2_name_joseph/)
{
print OUTPUT "2_name_joseph\n2_age_22\n"
}
else
{
print OUTPUT $_."\n";
}
}
close(DATALOG_FILE);
close (OUTPUT);
rename ($FilePath.".temp",$FilePath) || die "Cannot rename back temp file. make sure you do not open the file\n";
}
else
{
print "file $FilePath not found\n";
}

Answer 1

用你贴出来的数据调试了一下，可以得到正确结果，你用原文件试试看哦

use strict;
open FILEHANDLE,"<","f:/sample.txt" || die "can't open file:$!\n";
open LOG,">","f:/result.txt" || die "can't open file:$!\n";
my $row_matched;
while(my $var=<FILEHANDLE>){
if($var=~m/joseph/){
$row_matched=$.;
}
if($.==($row_matched+1)){
$var=~s/.*/2_age_22/;
print LOG "$var";
}
else{print LOG "$var";}
}

追问

很奇怪 运行不了 也不报任何错

追答

我是在windows下编写的，DzSoft Perl Editor,检查一下文件路径，运行后在LOG句柄指定的目录里有没有新的文件产生？

追问

没有也，很奇怪 你是用activeperl？

追答

是的 activeperl 5.10

Answer 2

看了一下你们写的代码，不晓得你明白了你的错误没有？
你的错误就在于读到joseph的时候你就把joseph那一行替换成了第二行为22的两行，但是读到joseph的下一行时你没做任何处理，所以依然打印出来了。

而biojamie的看起来就对了，他读到joseph的那一行的时候没有急于替代，只是做了一个标记，读到下一行的时候因为有这个标记，所以知道该替换这一行。我觉得他应该是对的。

不过我也不明白为什么你跑不了，实在不行的话你也修改一下你的脚本，用类似的理念就行。

Answer 3

perl -p -i -e '~s/joseph/32/' file