ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : yurik shestakov                      2:5020/400     28 Dec 2005  13:27:40
 To : Dmitry Bryn
 Subject : Re: вопрос
 -------------------------------------------------------------------------------- 
 

 On Wed, Dec 28, 2005 at 07:58:53AM +0000, Dmitry Bryn wrote:
 
 DB> Привет Всем
 DB> 
 DB> 
 DB> В чем я не прав?
 DB> -----------
 DB> cat 1.txt
 DB> /var/log
 DB> /var/log2
 DB> /var/log3
 DB> -----------
 DB> ++++++++++++++++++++++++++++++
 DB> #!/usr/bin/perl
 DB> open (MYF, "1.txt");
 DB> @strs = <MYF>;
 DB> $count = $#strs+1;
 DB> $i=0;
 DB> while ($i<$count) {
 DB> $basedir=$strs[$i];
 
 Вот сдесь сделать chomp '$basedir'
 
 DB> opendir (WWW, $basedir)|| die "No directory $basedir \n" ;
 
 И die лучше делать в виде 
   die "opendir($basedir): $!";
 
 -- 
 // yurik shestakov
 --- ifmail v.2.15dev5.3
  * Origin: Unknown (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