求助大家：如何用Perl提取句子

molliechan

在一个文件中有三行句子. 有两个句子中有[RO]，想把有[RO]的这两句子捕捉提取出来，请问怎么做。是不是要用array。我刚刚学perl, 希望各位大神帮忙。多谢大家了！

$_ = "We live in the same world, [RO] we share the same air and soil. However, in the different countries they have different cultures that other people are familiar with that. He changes the mind because Toula’s mother insists, [RO] she gives Gus some idea and let the Gus think that the decision is made by himself. "

输出：
We live in the same world, [RO] we share the same air and soil.
He changes the mind because Toula’s mother insists, [RO] she gives Gus some idea and let the Gus think that the decision is made by himself.

kernel69

1. cat 1
   
2. We live in the same world, [RO] we share the same air and soil. However, in the different countries they have different cultures that other people are familiar with that. He changes the mind because Toula’s mother insists, [RO] she gives Gus some idea and let the Gus think that the decision is made by himself.
   
3. $ perl -ne 'BEGIN{$/=".";$\="\n"};/\[RO\]/ and print' 1
   
4. We live in the same world, [RO] we share the same air and soil.
   
5. He changes the mind because Toula’s mother insists, [RO] she gives Gus some idea and let the Gus think that the decision is made by himself.
   
6. $

复制代码

回复 1# molliechan


   

MMMIX

回复 2# kernel69


    虽然这里的例子很简单，但我很怀疑实际的数据是不是这么简单。英文中能用来分割句子的标点符号可不止一个句号。

pitonas

{:2_170:} 当时我就惊呆了！
{:2_172:} 好厉害！谢谢！学习了！


回复 2# kernel69


   

kernel69

按楼主给的文本写的
回复 3# MMMIX


   

rubyish

kernel69 发表于 2014-04-21 03:58

1. perl -ne 'BEGIN{$/=".";$\="\n"};/\[RO\]/ and print' 1

复制代码

回复 1# molliechan

学习了！~

molliechan

你太厉害了，谢谢谢谢！！！