Perl删除字符串中间的子字符串

Question

如何删除(或替换为空格)我的字符串的第4个和第5个字符,在本例中为数字5和数字6,从而得出:

123456789

对此:

1234789

Answer 1

你可以用它替换它substr.

use 5.12;
my $foo = '123456789';
substr $foo, 4, 2, q{};

say $foo; # prints 1234789