在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爲其賦值：

​​

或只是

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

Answer 2

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

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