如何在Perl中的每个字符串分号后插入空格？

Question

我试图在Perl中的每个字符串分号后插入一个空格。

#!/usr/bin/perl
use strict; use warnings;
my $string = "1234;5678;232;5774;9784";
$string =~ s/;/"; "/g;
my $matched = $1;
print $matched . "\n";

但它不起作用。我的字符串是1234;5678;232;5774;9784。我想打印1234; 5678; 232; 5774; 9784。感谢

Answer 1

您想打印$string而不是$matched。此外，你不需要正则表达式中的引号，除非你也想要它们。

#!/usr/bin/perl

use strict;
use warnings;

my $string = "1234;5678;232;5774;9784";
$string =~ s/;/; /g;
print "$string\n";

打印1234; 5678; 232; 5774; 9784