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

icfbicfb

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

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

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

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

walker

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

damonzhao

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

baojiewu

   

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

                               
登录/注册后可看大图

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

baojiewu

回复 11# icfbicfb


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

好像不是楼主想要的

mtvv

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

mtvv

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

hzdzkjly

学习了。

hzdzkjly

   

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

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

                               
登录/注册后可看大图

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

364366191

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