ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Pavel V. Ammosov                     2:5020/52      07 May 2001  02:55:33
 To : All
 Subject : Re: Поиск файла в PATH
 -------------------------------------------------------------------------------- 
 

 
 >Есть ли функция(или библиотека), которая по имени файла ищет его в каталогах
 >из PATH и возвращает путь к нему?
 
 А самому слабо? :-)
 
 #!/usr/bin/perl -w
 use strict;
 my $fname = 'perl';
 
 for my $dir (split/:/, $ENV{PATH}) {
   print "$dir/$fname\n" if (-x "$dir/$fname");
 }  
 
 -- или --
 print join("\n", map {"$_/$fname"} grep { (-x "$_/$fname") } 
   (split/:/, $ENV{PATH})), "\n";
 
 -- 
 Pavel Ammosov                                               O    \
 apavel@aha.ru                                                 __  )
 http://isabase.philol.msu.ru/~apavel/                             )
 wget -O - isabase.philol.msu.ru/~apavel/key.asc|pgp -fka    O    /
 --- slrn/0.9.6.3 (Linux)
  * Origin: Zenon N.S.P. news server (2:5020/52.0)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор