ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitri Minaev                        2:5057/19.21   27 Jan 2002  15:55:13
 To : vitus@ice.ru
 Subject : Re: список файлов
 -------------------------------------------------------------------------------- 
 

 >>>>>   Hello, vitus 
 
  KA> А как с помощью opendir, readdir получить список файлов по
  KA> определенной маске, а не всех файлов в директории?
 
  v> while (readdir DIR) { next if ! /маска/; обработать подходящий файл
  v> }  
 
 Или:
 
   opendir (DIR, $dir) or die "can't open $dir";
   @f = grep { /.*(jsp|html|java|sql|xml)$/ }  readdir (DIR);
   closedir DIR;
 
 -- 
 Ceterum censeo Carthaginem must die
 --- ifmail v.2.15
  * Origin: Galactic sector ZZ 9 plural Z Alpha (2:5057/19.21@fidonet)
 
 

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