Perlのregexを使って文字列全体を置換してください

Question

私はこのように見ていきたいと思います。

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

それとも、あなただけの$strがaで始まるかどうかを確認し、それに$replacement値を割り当てることがあります。あなただけのa後.*を追加することにより、行の残りの部分を消費する必要が

my $str = 'axxxx'; 

my $replacement = 'string_begins_with_a'; 

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

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

Answer 1

：

​​

か、単に

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

Answer 2

文字列全体を^a.*正規表現と一致させ、置換文字列を使用して置き換えます。

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