从Perl中的字符串生成子字符串

Question

我有一个字符串，我想要在它的子字符串中分隔字符之间的空格，但子字符串间的空格数不应超过4个。

例如：字符串：
“黄芩素，特异性脂氧合酶（LOX）抑制剂，具有抗炎和抗氧化作用。”
所得子应该像
1. 黄芩素，
2. 黄芩素，一个
3. 黄芩素，特定
4. 黄芩素，具体的脂氧合酶
5 。黄芩素，一种特定的脂氧合酶（LOX）
6. a
7. 特定
...
我觉得必须有某种方式与正则表达式，但我不知道

，我已经使用编辑

代码：

my @arr = split('\s', $line); 
for(my $i=0; $i<$#arr; $i++) 
{ 
my $str1 = $arr[$i]; 
my $str2 = $arr[$i].' '.$arr[$i+1]; 
my $str3 = $arr[$i].' '.$arr[$i+1].' '.$arr[$i+2]; 
my $str4 = $arr[$i].' '.$arr[$i+1].' '.$arr[$i+2].' '.$arr[$i+3]; 
} 

我有很长的字符串，通过这种方法需要很多时间。
在此先感谢

Answer 1

您可以创建一个内循环以避免重复的代码。而且，用点运算符重复粘贴东西效率较低。

my @substrings; 
for (my $i=0; $i<=$#arr; ++$i) 
{ 
    for (my $j=0; $j<5 && $i+$j<=$#arr; ++$j) 
    { 
     push @substrings, join(' ', @arr[$i..$i+$j]); 
    } 
} 

你会发现额外的边界条件，以防止内环从去过去的输入数组的结尾，并采用了全新的阵列@substrings的遏制效果。最后，看看缩进如何帮助你看到什么地方。