Как найти родительский каталог файла в Perl?

Question

Есть ли какая-нибудь функция, которая возвращает родительский каталог файла в Perl?

Answer 1

Если у вас есть имя пути, вы можете использовать функцию dirname из File :: Basename .

 use File::Basename;
 my $directory = dirname( $path );

Что у вас на входе?

Answer 2

Также обратите внимание Path :: Class , что делает работу с путями вменяемой.

Answer 3

Вы можете использовать самый блестящий метод Брайана, описанный выше, и если $directory eq "." затем заменить "." с вашим текущим рабочим каталогом.