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

Answer 2

您可以使用substr()作为左值

my $str = "123456789";
substr($str, 4, 2) = "";

print $str;

输出

1234789

Answer 3

您可以使用substr功能：

#!/usr/bin/perl
use strict;
use warnings;

my $string = "123456789";
substr($string, 4, 2, '');
print $string, "\n";

输出：

1234789