ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitry Bryn                          2:5020/400     28 Dec 2005  11:58:53
 To : All
 Subject : вопрос
 -------------------------------------------------------------------------------- 
 

 Привет Всем
 В чем я не прав?
 -----------
 cat 1.txt
 /var/log
 /var/log2
 /var/log3
 -----------
 ++++++++++++++++++++++++++++++
 #!/usr/bin/perl
 open (MYF, "1.txt");
 @strs = <MYF>;
 $count = $#strs+1;
 $i=0;
 while ($i<$count) {
 $basedir=$strs[$i];
 opendir (WWW, $basedir)|| die "No directory $basedir \n" ;
 foreach $logname (readdir(WWW)) {
    print "$logname\n";
    }
 $i++;
 }
 +++++++++++++++++++
 
 Запускаем и получаем:
 No directory /var/log
 
 Hо если я просто в самом скрипте укажу что $basedir ="/var/log" , то все
 работает
 
 -- 
 С Уважением
 
 --- ifmail v.2.15dev5.3
  * Origin: MTU-Intel ISP (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    вопрос   Dmitry Bryn   28 Dec 2005 11:58:53   вопрос   Ivan Frolkov   28 Dec 2005 13:29:07   Re: вопрос   yurik shestakov   28 Dec 2005 13:27:40   Re: вопрос   Dmitry Bryn   28 Dec 2005 15:44:41