将字符串拆分为标记并将分隔符存储在Perl中

如果使用带有捕获括号的regex进行拆分,拆分模式将包含在结果列表中(请参见 perldoc -f split )以下内容:

my @list = split /(\s+)/, 'a  b   c       d';
print Data::Dumper::Dumper(\@list);

VAR1 = [
          'a',
          '  ',
          'b',
          '   ',
          'c',
          '       ',
          'd'
        ];

只是在单词边界上拆分:

split /\b/, $line;

对于您的示例,这将给出:

('a','  ','b','   ','c','       ','d')

编辑: 正如布赖恩·福伊指出的那样, \b 使用了错误的字符类,按照我最初的想法,我想出了使用环顾断言的方法。不过,这看起来比乙醚的答案要复杂得多:

split /(?:(?<=\S)(?=\s)|(?<=\s)(?=\S))/, $line;

为什么你不简单地做: my $new_str = uc( $line ); ?

update-original uc()只是“更复杂的函数”的简写。

一般来说,你也可以:

$line =~ s/(\S+)/more_complex_function($1)/ge;