如何寫這個正則表達式來替換perl中的字符串？

Question

如果字符串以^abc開頭，請不要修改它，否則將abc附加到它的開頭。

我知道它可以通過步驟來完成：m//和s//，但我想這樣做在Perl的一個s/../。

Answer 1

s/^(?!\^abc)/abc/ 

的伎倆，雖然

$_ = 'abc'.$_ if !/^\^abc/; 

可能會更清晰。

---

>perl -E"$_=$ARGV[0]; s/^(?!\^abc)/abc/; say;" "^abcdef" 
^abcdef 

>perl -E"$_=$ARGV[0]; s/^(?!\^abc)/abc/; say;" "defghi" 
abcdefghi 

>perl -E"$_=$ARGV[0]; $_ = 'abc'.$_ if !/^\^abc/; say;" "^abcdef" 
^abcdef 

>perl -E"$_=$ARGV[0]; $_ = 'abc'.$_ if !/^\^abc/; say;" "defghi" 
abcdefghi