LINUX.ORG.RU

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


0

0

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

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

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

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

anonymous
()

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

roller ★★★
()

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

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

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