在Perl中使用正則表達式替換整個字符串

Question

我希望它看起來像這樣。

my $str = 'axxxx';

my $replacement = 'string_begins_with_a';

$str =~ s/^a/$replacement/;

print "$str\n"; #should print 'string_begins_with_a'

Answer 1

你只需要通過添加消耗行的其余部分.*后a ：

my $str = 'axxxx';
my $replacement = 'string_begins_with_a';
$str =~ s/^a.*/$replacement/;
print "$str\n"; #prints 'string_begins_with_a'

或者，你可能只是檢查是否$str開頭a ，然后分配$replacement值吧：

$str = ($str =~ /^a/) ? $replacement : $str;

要不就

if ($str =~ /^a/) {
    $str = $replacement;
}

Answer 2

將整個字符串與^a.*正則表達式匹配，然后使用替換字符串替換它。

$str =~ s/^a.*/$replacement/;
print "$str\n"; # would print 'string_begins_with_a'