用这句话：
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;