ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Titov                         2:5020/400     16 Jan 2002  09:28:29
 To : Konstantin Milovsky
 Subject : Re: Список файлов в диpектоpии
 -------------------------------------------------------------------------------- 
 

 >  AT> Hyжно полyчить в список имена всех файлов в диpектоpии.
 
 > $startdir=".";
 >
 > sub scandir {
 >   my $line;
 >   opendir(DIR, $startdir) || die("Раздел отсyтствyет");
 >
 > foreach $line (sort readdir(DIR)) {
 >
 >     if (($line ne ".") && ($line ne "..")) {
 >        ($a, $b) = split(/\./, $line);
 >
 >        if ($b ne "") {
 >           print $line;
 >         }
 >     }
 >   }
 >   closedir(DIR);
 > }
 >
 
 Спасибо за подсказку.
 
 У меня уже так работает:
 
  opendir(DIR,"$basedir");
  @list = grep(!/^\./, readdir(DIR));
  readdir(DIR);
  closedir(DIR);
 --- ifmail v.2.15dev5
  * Origin: MTU-Intel ISP (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Список файлов в директории   Andrey Titov   15 Jan 2002 20:47:14   Re: Список файлов в диpектоpии   Konstantin Milovsky   16 Jan 2002 01:41:49   Re: Список файлов в диpектоpии   Andrey Titov   16 Jan 2002 09:28:29   Re: Список файлов в диpектоpии   Artem Chuprina   16 Jan 2002 11:40:01   Re: Список файлов в диpектоpии   commandr@diginf.ru   16 Jan 2002 18:43:03   Re: Список файлов в диpектоpии   Artem Chuprina   16 Jan 2002 18:51:17   Re: Список файлов в диpектоpии   Nikolay A. Panov   17 Jan 2002 13:49:33