ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  12 May 2000  11:25:34
 To : sergey prozhogin
 Subject : Re: вопрос
 -------------------------------------------------------------------------------- 
 

 <sergey_prozhogin@p324.f588.n5030.z2.fidonet.org> wrote:
 
 sp> мне надо проверить из скрипта наличие прожки unzip
 sp> system("which unzip");
 sp> а как мне перехватить в скрипт то что этот вызов выведет на экран?
 
 Уфф... Маньяки все. А если у тебя chroot, unzip есть, а which нету?
 
 Если под наличием понимается наличие в $PATH (а иначе тебе и which её не
 найдёт), то умнее (AKA быстрее и безопаснее) всего
 
 my $path_to_unzip;
 foreach my $dir_in_path (split(':',$ENV{'PATH'})) {
   if (-x "$dir_in_path/unzip") {
    $path_to_unzip = "$dir_in_path/unzip";
    break;
   }
 }
 
 Всё равно запускать безопаснее по полному пути...
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

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