perl - 如何在Perl中获得连续的单词对

用这句话:

my $sent = "Mapping and quantifying mammalian transcriptomes RNA-Seq";

我们想要获得所有可能的连续单词对。

my $var = ['Mapping and',
           'and quantifying',
           'quantifying mammalian',
           'mammalian transcriptomes',
           'transcriptomes RNA-Seq'];

有没有紧凑的方法来做到这一点？

最佳答案

是的。

my $sent = "Mapping and quantifying mammalian transcriptomes RNA-Seq";
my @pairs = $sent =~ /(?=(\S+\s+\S+))\S+/g;

关于perl - 如何在Perl中获得连续的单词对，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/8117494/