Dosya uzantısını ve yolu bir dizgeden kaldır Perl

Question

Yolu olmayan bir dosya adı almak istiyorum (dizenin bir parçasıysa) ve uzantı.

Örneğin

: ""

/path/to/file/fileName.txt  # results in "fileName" 
fileName.txt     # results in "fileName" 
/path/to/file/file.with.periods.txt # results in "file.with.periods" 

Yani temelde, daha önce herhangi bir şey kaldırmak istiyor ve dahil son "/" eğer mevcut ve ayrıca son ondan sonra herhangi bir meta karakterle birlikte.

Böyle acemi bir soru için üzgünüm, ama ben perl için yeniyim.

Answer 1

Tam yol verilmiş bir dosyanın basename dosyasını almak için çekirdeğin bir parçası olan File::Basename modülünü öneririm.

$name =~ s{.*/}{};  # removes path 
$name =~ s{\.[^.]+$}{}; # removes extension 

Bu örnek / yol ayırıcı olduğunu varsayar:

Basit oyuncu değişikliği ile bunu yapabilirsiniz ben

(my $without_extension = $basename) =~ s/\.[^.]+$//; 

Answer 2

gibi bir düzenli ifade için gitmek istediğiniz dosya uzantılarını buluşsal yöntemler yapmak için . Diğerleri tepki vermiş olsa da

Answer 3

, Rafl en Yanıt başına basename üzerinde biraz okuduktan sonra:

($file,$dir,$ext) = fileparse($fullname, qr/\.[^.]*/); 
# dir="/usr/local/src/" file="perl-5.6.1.tar" ext=".gz" 

tek satırda sorunu çözmek gibi görünüyor.

Diğer çözümlerden farklı olarak bununla ilgili herhangi bir sorun var mı?