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

Posted 2023-03-09

我文件格式如下：

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";

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

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";

elseprint LOG "$var";
追问

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

追答

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

追问

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

追答

是的 activeperl 5.10

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

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

不过我也不明白为什么你跑不了，实在不行的话你也修改一下你的脚本，用类似的理念就行。本回答被提问者和网友采纳 参考技术C perl -p -i -e '~s/joseph/32/' file