分割Perl字符串并在两者之间添加_

Question

题。 我试图从命令行中读取perl字符串，例如“ abcdef”，然后将其拆分为“ a_b_c_d_e_f”。

我在逻辑部分苦苦挣扎。 有任何想法吗？

#!/usr/bin/perl

while($line=<STDIN>){
  chomp $line;
  split $line;

join ("_", $line);

print $line;
}

Answer 1

split页实际上包括以下示例：

print join(':', split('', 'abc')), "\n";

调整为使用_代替:和$line代替'abc' ，我们得到：

print join('_', split('', $line)), "\n";

最重要的一点是split不会修改其参数，它只会返回一个列表，而join不会修改其参数，它只会返回一个字符串。 因此，在不使用返回值的情况下调用split或join毫无意义。

Answer 2

您需要的是

print join('_', split //, $line), "\n";

Answer 3

一内胆：

print join('_', split('', $line)), '\n';

您可以在此处阅读有关perl的split()函数的更多信息。

Answer 4

除非必须使用split ，否则可以为此使用字符间替换：

use strict;
use warnings;

my $string = 'abcdef';
$string =~ s/(?<=.)(?:)(?=.)/_/g;
print $string;

输出：

a_b_c_d_e_f

希望这可以帮助！