论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2011-08-11 16:58 |只看该作者 |倒序浏览

比如
aaa
1
2
3
bbb

sed -n '/aaa/,/bbb/p' file

那么用perl如何实现呢？

谢谢。

文库|博客

Kitaisky

家境小康

论坛徽章:: 0

2楼 [报告]

发表于 2011-08-11 17:16 |只看该作者

本帖最后由 Kitaisky 于 2011-08-11 17:28 编辑

perl -pe 'print if /aaa.+bbb/is' file

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

seufy88

家境小康

论坛徽章:: 1

3楼 [报告]

发表于 2011-08-11 17:19 |只看该作者

本帖最后由 seufy88 于 2011-08-11 17:20 编辑

LZ你说的应该是匹配aaa ,bbb两行吧，中间的都没去匹配
$flag=0;
while(<>){
if($flag==0){
if(/aaa/){
   $flag=1;
   print;
   }
   else{
if(/bbb/){
   $flag=0;
   print;
   }else{
      print;
      }
}
}

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

blake94

稍有积蓄

论坛徽章:: 0

4楼 [报告]

发表于 2011-08-11 17:26 |只看该作者

本帖最后由 blake94 于 2011-08-11 17:27 编辑

不是，是匹配
aaa和bbb

并把中间的行都打印出来。

类似sed的

# sed -n '/aaa/,/bbb/p' file
aaa
1
2
3
bbb

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

jason680

富可敌国

论坛徽章:: 145

5楼 [报告]

发表于 2011-08-11 17:27 |只看该作者

本帖最后由 jason680 于 2011-08-11 17:32 编辑

比如
aaa
1
2
3
bbb

sed -n '/aaa/,/bbb/p' file

那么用perl如何实现呢？

谢谢。
blake94 发表于 2011-08-11 16:58

$ echo -e '123
aaa
1
2
3
bbb
xxx' | perl -ne '{if(/aaa/../bbb/){print}}'
aaa
1
2
3
bbb

===========================
$ cat tt.pl
$_="123\naaa\n1\n2\n3\nbbb\nxxx";
print $1 if(m/(^aaa\n.+^bbb\n)/ms);

$ perl tt.pl
aaa
1
2
3
bbb