perl - 如何在 Perl 中捕获字符串区域两侧的区域？

Question

我想知道是否有任何 Perl 函数可以充当 substr 的反函数。如果 substr 选择由坐标定义的字符串部分，则此函数会跳过该部分，而是捕获给定坐标两侧的字符串部分。

可以使用 substr 和我想要的每个侧翼的坐标来完成，但我想知道是否有针对这种情况的内置内容。

Answer 1

最简单、最快的方法可能是使用四参数子字符串。

use strict;
use warnings;
use feature 'say';

my $orig    = 'aaabbbccc';

my $middle  = substr( $orig, 3, 3 );

substr( my $flanks = $orig, 3, 3, '/' );

say $orig;    # aaabbbccc
say $middle;  # bbb
say $flanks;  # aaa/ccc

如果您不想在输出中使用斜杠，则使用 substr( my $flanks = $orig, 3, 3, '' )。