☰

如何去掉“.”來自 Perl 中的檔案名稱？

tag-icon • tag-icon command-line perl
如何去掉“.”來自 Perl 中的檔案名稱？

我/(\.[^.]+)$/在 Perl 中讀取檔案的副檔名，例如Text.txt.我怎麼才能刪除.以便輸出呢Texttxt？

答案1

比賽組/(…)/包含任何東西裡面括號。如果您不想讓點成為其中的一部分，請將其放在外部 括號：/\.([^.]+)$/.

#!/usr/bin/env perl

use strict;
use warnings;

my $filename = 'Test.txt';
$filename =~ s/(.*)\.([^.]+)$/$1$2/;
#               ^^    ^^^^^
#               $1     $2
print "filename: '$filename'\n";

# prints "Testtxt"

相關內容