问题求助

sunzhiguolu

我看了篇帖子, 内容如下:

我希望匹配出关键字sem的行内容，追加到下一个关键字sem前的行首

文本
sem 1234
point 23 33
point 25 aa
point 23 sd
point 19 fd
sem 5412
point 13 tt
point 12 oq
point 12 iw
sem 4513
point 142 iws
point 142 amx


效果

sem 1234 point 23 33
sem 1234 point 25 aa
sem 1234 point 23 sd
sem 1234 point 19 fd
sem 5412 point 13 tt
sem 5412 point 12 oq
sem 5412 point 12 iw
sem 4513 point 142 iws
sem 4513 point 142 amx

我的代码如下:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $sStr = do {local $/ = undef; <>};
   
7. my @aData;
   
8. $sStr =~ s!^(sem\s+\d+)\n(.*?)(?=sem|\z)!do{push(@aData,"$1 $_\n") for (split /\n/,$2);splice(@aData)}!gsme;
   
9. print $sStr;
   

复制代码

输出结果, 总是有问题:
sem 1234 point 19 fd
sem 5412 point 12 iw
sem 4513 point 142 amx

sunzhiguolu

我的解题思路:
1.> 匹配部分 => 每次匹配 以行开头为 sem 并且以数字结尾的记录保存到 $1 中, 并且匹配任何内容直到遇到 sem 或 结束符 保存到 $2 中
2.> 替换部分 => 用 \n 分割 $2 得到一个列表, 将列表中的每个元素 与 $1 合并填充到 @aData 数组中, 直到列表循环结束. 返回 @aData 的值

但是, 看结果好像结果只保存了 最后一条记录. 我的问题描述完了, 还请大家指点, 谢谢大家...

jason680

回复 1# sunzhiguolu

$ perl -lane '{if(m/^sem/){$H=$_;next}print "$H $_"}' FILE
sem 1234 point 23 33
sem 1234 point 25 aa
sem 1234 point 23 sd
sem 1234 point 19 fd
sem 5412 point 13 tt
sem 5412 point 12 oq
sem 5412 point 12 iw
sem 4513 point 142 iws
sem 4513 point 142 amx


   

sunzhiguolu

找到问题了,

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $sStr = do {local $/ = undef; <>};
   
6. my @aData;
   
7. $sStr =~ s!^(sem\s+\d+)\n(.*?)(?=sem|\z)!do{push(@aData,"$1 $_\n") for (split /\n/,$2);join("",splice(@aData))}!gsme;
   
8. print $sStr;
   

复制代码

sem 1234 point 23 33
sem 1234 point 25 aa
sem 1234 point 23 sd
sem 1234 point 19 fd
sem 5412 point 13 tt
sem 5412 point 12 oq
sem 5412 point 12 iw
sem 4513 point 142 iws
sem 4513 point 142 amx

大家能告诉我一下原因吗, splice 函数不是一次将 @aData 的内容返回吗, 谢谢大家...

jason680

回复 2# sunzhiguolu

$sStr =~ s!^(sem\s+\d+)\n(.*?)(?=sem|\z)!do{push(@aData,"$1 $_\n") for (split /\n/,$2);splice(@aData)}!gsme;
   
一个简单替换s/old/new/....做这么多事.....出问题

sunzhiguolu

回复 5# jason680
大神, 您说的出问题, 能否明示, 谢谢您... (我没有弄明白您的意思)

   

sunzhiguolu

回复 3# jason680
大神, 还有个问题向您请教. 您在使用 perl 一行代码时 变量命名 有啥规则吗?
比如: $H 是大写的形式, 您能说下在哪种情况下 变量用大写 反之 用小写形式命名. 谢谢您...

   

jason680

回复 6# sunzhiguolu

问题在“思路”......
s/old/new/
简单的事情，就简单做就好了...

one line command用完就丢......
（别管什么命名）
%h,$h{...},
count => c or C
data  => d or D
head => H
Last  =>？
   

sunzhiguolu

回复 8# jason680
明白了, 谢谢您指点.
还有个问题向您请教, 关于 替换部分的 splice 函数返回值的问题, 之所以每次得到的是最后一对组合 是不是因为前面的哪些值都被 splice 函数的下一个值给替换掉了啊, 还请您指点, 谢谢您...

   

sunzhiguolu

另外, 这个问题还有其他的解决方法吗, 还请大家指点, 谢谢大家...