|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Anatoly Moskovsky 2:5020/400 07 May 2001 12:42:56 To : All Subject : Re: Поиск файла в PATH -------------------------------------------------------------------------------- "Pavel V. Ammosov" <Pavel.V.Ammosov@f52.n5020.z2.fidonet.org> wrote in message news:884731804%slrn9fblgv.d4h.apavel@oops.intranet.hell... > On Sun, 06 May 2001 20:39:50 +0400, Anatoly Moskovsky wrote: > >Есть ли функция(или библиотека), которая по имени файла ищет его в каталогах > >из PATH и возвращает путь к нему? > > А самому слабо? :-) > Hе слабо, просто не люблю делать то что уже много раз делано другими и натыкаться на уже пройденные ошибки (см. ниже) > #!/usr/bin/perl -w > use strict; > my $fname = 'perl'; > > for my $dir (split/:/, $ENV{PATH}) { > print "$dir/$fname\n" if (-x "$dir/$fname"); > } В некоторых ОС символ ":" встречается в пути, и поэтому разделитель в PATH - ";". Мне нужно было переносимое решение, чтобы не возвращаться к этому при смене ОС. А отлаживать на разных ОС у меня нет возможности. Бай --- ifmail v.2.15dev5 * Origin: Demos online service (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/620772530b1b.html, оценка из 5, голосов 10
|