Perl的正則表達式替換最後一個匹配的字符串

Question

我有如下的字符串：

$str = "/dir1/dir2/dir3/file.txt" 

我想從這個字符串中刪除/file.txt。

因此，$ str將成爲。

$str = "/dir1/dir2/dir3" 

我正在使用以下正則表達式。但它正在取代一切。

$str =~ s/\/.*\.txt//; 

我怎樣才能讓正則表達式來尋找最後「/」，而不是第一個。

這是什麼正確的正則表達式？

請注意file.txt是不固定的名稱。它可以是任何東西，像FILE1.TXT，FILE2.TXT等

Answer 1

在這個表達式

m/(.*)\/[^\/]*$/ 

第一個子匹配是你正在尋找的路徑。

編輯：

如果您正在尋找替代user1215106的soultion是要走的路：

s/\/[^\/]*$// 

Answer 2

很簡單的正則表達式：s/\/[^\/]*$//

Answer 3

如果你想從該字符串的路徑，你可以使用File::Basename。這是因爲Perl版本核心模塊5

perl -MFile::Basename -le '$str = "/dir2/dir3/file.txt"; print dirname($str);' 

在腳本形式：

use strict; 
use warnings; # always use these 
use File::Basename; 

my $str = "/dir1/dir2/dir3/file.txt"; 
print dirname($str);" 

你的正則表達式不起作用，因爲它不固定，而且.*是貪婪的，所以儘可能匹配它可以從它遇到的第一個斜槓/開始。一個工作正則表達式看起來像這些：

$str =~ s#/[^/]*?\.txt$##; 

注意使用非貪婪量詞*?，它將匹配儘可能小的字符串。另外請注意，我使用另一個分隔符來替代，以避免「傾斜牙籤綜合徵」，例如s/\/\/\///。