Perl正則表達式：問號不是貪婪地匹配

Question

$var = 'about/'; 
$var =~ s/^(.*)\/?$/index.php?action=$1/; 

我希望它匹配並替換結尾的斜槓。但它不是，我得到這個結果：

index.php?action=about/ 

我在做什麼錯了？我試過用圓括號(\/)?包裝它，並在括號(\/?)中包括問號。不包括前面的正斜槓顯然對我沒有任何好處。那麼，我怎麼才能在它到來的時候把它吃掉呢？

Answer 1

你的問題是，.*也是貪婪的。嘗試使用.*?。

正則表達式引擎首先儘可能擴展.*，然後檢查正則表達式是否可以匹配輸入。在你的情況，它的確如此，因爲尾部的斜線是可選的。然後它回家滿意。

Answer 2

讓.* ungreedy：

$var = 'about/'; 
$var =~ s!^(.*?)/?$!index.php?action=$1!; 

Answer 3

在你的替代，你想真的很難指定你保持什麼。在這種情況下，擺脫你不想要的東西要容易得多。當某個功能似乎很難用於您的應用程序時，這表示您使用了錯誤的功能。

它看起來像你想要做的是刪除最後/在一個字符串。所以，僅僅刪除最後一個/：

my $path = 'about/'; 
$path = s|/\z||; 

my $action = "index.php?action=$path"; 

如果你真的想做這就地（一個可疑目標），你可能只是這樣做：

(my $action = "index.php?action=$path") =~ s|/\z||;