perl中如何实现？[已解决]

icfbicfb · 发表于 2012-4-25 15:52:54

.. 经常用于抽取某个有标志性的段落，

比如抽取def 里面 COMPONENTS 和END COMPONENTS 之间的，

while ( <> )  {
if ( /^COMPONENTS/  ..  /END COMPONENTS/ ) {
   push @info ， $_ ;
  }
}

或者slurp一下，比下面这个好看，
my $all = do { local $/ ; <> }
my @info =  $all =~ /^COMPONENT.*END COMPONENT$/msg ;

walker · 发表于 2012-4-25 23:39:47

一行即可
perl -pi.bak -e "print q(**) if /^begin/ .. ^/end/" your_file

damonzhao · 发表于 2012-4-26 07:50:34

哈哈，还得多讨论呀，方法千百种的样子

baojiewu · 发表于 2012-11-8 14:49:53

一行即可
perl -pi.bak -e "print q(**) if /^begin/ .. ^/end/" your_file
walker 发表于 2012-4-25 23:39

登录/注册后可看大图

可否讲解一下这段程序的意思，看不太明白

baojiewu · 发表于 2012-11-9 16:57:58

回复 11# icfbicfb

你写的
while ( <> )  {
if ( /^COMPONENTS/  ..  /END COMPONENTS/ ) {
   push @info ， $_ ;
  }
}

好像不是楼主想要的

mtvv · 发表于 2013-1-9 23:26:45

sed '/begin/,/end/ s/^/\*\*/' filename

mtvv · 发表于 2013-1-9 23:42:54

perl -pe 'if (/^begin/ .. /^end/) {s#^#**#}' filename

hzdzkjly · 发表于 2013-1-11 15:43:27

学习了。

hzdzkjly · 发表于 2013-1-11 15:55:30

我来写一个，这种特别好写，用 .. 操作符，用于某个段落之间，

while ( ) {
if ( /^begin/ .. / ...
icfbicfb 发表于 2012-4-25 15:49

登录/注册后可看大图

请问如何删除begin......end 之间原来所有的字符串，因为begin......end之间的文件已经提取出来修改了，想把修改后的文件加到这个位置上来？

364366191 · 发表于 2013-3-21 22:01:49

高手如云啊，真是，哎，自叹不如啊，

[求助] perl中如何实现？[已解决]

站长推荐 /2