Perl中的正则表达式
Perl中的正则表达式
提问于 2014-01-07 02:34:54
我试图编写一个正则表达式来匹配一个特定的行，并在它下面的行上执行操作。读取文件a.txt a.txt的内容
I am from Melbourne .
Aussie rocks #The text can be anything below the first line我正在编写一个正则表达式来读取文件a.txt，并试图替换line 1下面的文本。片段:-
open($fh,"a.txt") or die "cannot open:$!\n";
while(<$fh>){
if($_=~/^I am from\s+.*/){
#I have to replace the line below it .
}有人能帮帮我吗。我只需要replace a line below the line that matches my regex with an empty line or anything。$line =~ s/<Line below line1>//;。我怎么能这么做呢？
回答 2
Stack Overflow用户
回答已采纳
发布于 2014-01-07 02:46:34
有很多种方法。
阅读循环中的下一行：
while (<$fh>) {
print;
if (/^I am from/) {
<$fh> // die "Expected line"; # discard next line
print "Foo Blargh\n"; # output something else
}
}这是我最喜欢的解决方案。
使用旗子：
my $replace = 0;
while (<$fh>) {
if ($replace) {
print "Foo Blargh\n";
$replace = 0;
}
else {
print;
$replace = 1 if /^I am from/;
}
}把所有的输入都说出来：
my $contents = do { local $/; <$fh> };
$contents =~ s/^I am from.*\ņ\K.*/Foo Blargh/m;
print $contents;这个regex需要一个解释：^与/m下的行开始匹配。.*\n与行的其余部分匹配。\K在匹配的子字符串中不包括前面的模式。.*匹配下一行，然后由Foo Blargh替换。
Stack Overflow用户
发布于 2014-01-07 02:40:10
open(my $fh, "<", "a.txt") or die $!;
my $replace;
while(<$fh>){
$_ = "\n" if $replace;
$replace = /^I am from.*/;
print;
}或者一次读取文件，
open(my $fh, "<", "a.txt") or die $!;
my $str = do { local $/; <$fh> };
$str =~ s/^I am from.*\n \K .*//xm;
print $str;页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/20969374
复制
相似问题
Perl/Curl脚本中的Perl正则表达式
Perl中的正则表达式
匹配Perl正则表达式文字的perl正则表达式
perl中的嵌套正则表达式
perl中的正则表达式匹配
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
社区富文本编辑器全新改版！诚邀体验～
全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验
腾讯云开发者
