LINUX.ORG.RU
Форум — Development  

Реализация dirname на perl


0

0 

В проге для файла $file надо получить каталог в котором 
файл находится 

Очевидное решение :
$dir = `dirname $file`;
chomp $dir;

Не хочется использовать backticks!
Как реальзовать задачу средствами perl (желательно не через регулярные
выражения)?
★

Re: Реализация dirname на perl

хоть немного головой подумай

anonymous
()

Re: Реализация dirname на perl

use File::Basename;
$filename = "lib/File/Basename.pm";
$dirname = dirname($filename);

roller ★★★
()

Re: Реализация dirname на perl

$file=~/^(.*)\//;
$dirname=$1;

и чем тебе регулярные выражения не нравяться

anonymous
()

Re: Реализация dirname на perl

См. split

kosmonavt ★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Development