Удалить расширение файла и путь из строки в Perl

Question

Удалить расширение файла и путь из строки в Perl

Я хочу получить имя файла без его пути (если он является частью строки), а также расширение.

Например:

/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"

Итак, в принципе, я хочу удалить все, что было до и включая последнее "/", если оно присутствует, а также последнее ".- вместе с любыми метасимволами после него.

Извините за такой вопрос новичка, но я новичок в perl.

659 3

regex perl filepath file-extension

3 ответов:

Comments

Ничего не найдено.

rafl · Accepted Answer · 2013-10-07 16:18:09

Для переносимого получения базового имени файла с полным путем я бы рекомендовал File::Basename модуль, являющийся частью ядра.

Для эвристики расширений файлов я бы выбрал регулярное выражение типа
(my $without_extension = $basename) =~ s/\.[^.]+$//;

Chris · Accepted Answer · 2010-09-08 16:03:10

Хотя другие ответили, прочитав немного о basename в ответе рафла:
($file,$dir,$ext) = fileparse($fullname, qr/\.[^.]*/);
# dir="/usr/local/src/" file="perl-5.6.1.tar" ext=".gz"
, кажется, решает проблему в одной строке.

Есть ли какие-либо проблемы, связанные с этим, в отличие от других решений?

Eugene Yarmash · Accepted Answer · 2010-09-08 16:54:29

Это можно сделать с помощью простых подстановок:
$name =~ s{.*/}{};      # removes path  
$name =~ s{\.[^.]+$}{}; # removes extension
В этом примере предполагается, что / является разделителем путей.