Perl - 如何更改字符串中出现的每个 $variable ";"

Question

这里很新，所以要温柔。 :)

这是我想做的事情的要点:

我想获取一个由分号分隔的数字组成的字符串(例如 6;7;8;9;1;17;4;5;90)并替换每个“X”个分号用“\n”代替。 “X”号将由用户定义。

如果:

$string = "6;7;8;9;1;17;4;5;90";  
$Nth_number_of_semicolons_to_replace = 3;

输出应该是:

6;7;8\n9;1;17\n4;5;90

我找到了很多关于改变某事的第 N 次出现的内容，但我还没有找到关于改变每第 N 次出现的事情的任何东西，就像我上面试图描述的那样。

感谢您的帮助!

Answer 1

use List::MoreUtils qw(natatime); 
my $input_string = "6;7;8;9;1;17;4;5;90"; 
my $it = natatime 3, split(";", $input_string);
my $output_string; 

while (my @vals = $it->()) { 
    $output_string .= join(";", @vals)."\n";
}