如何在Perl中的每個分號之後插入空格？

我想在Perl中的每個分號後面插入一個空格。如何在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。謝謝

來源

2015-10-26 cooldood3490

所以它只是再次打印出原始字符串？ –

錯誤消息顯示'使用未初始化的值$匹配串聯（。）或字符串...'。正則表達式不匹配字符串中的任何內容。 – cooldood3490

添加'print $ string，「\ n」;'到最後，您會看到匹配已經發生。沒有發生的是捕獲。 – DavidO

你想打印$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

來源

2015-10-26 01:37:34 oalders

如何在Perl中的每個分號之後插入空格？

回答

相關問題