ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Igor Nikolaev                        2:5030/266     11 Jul 2001  05:27:14
 To : ax Gerasimov
 Subject : Re: каталоги
 -------------------------------------------------------------------------------- 
 

 ax Gerasimov <ax_Gerasimov@p21.f107.n5090.z2.fidonet.org> wrote:
 
 > Как пробежаться по всем каталогам?
 > (Hодо все *.htm* переправить, а они разбросаны повсюду)
 
 #!/usr/bin/perl -w
 use strict;
 sub function { print "$_[0]\n"; }
 
 sub recurse {
   opendir DIR, $_[0] or warn ("Can't opendir $_[0]: $!"), return;
   my @files = sort grep { ! /^\.\.?$/o } readdir DIR; closedir DIR;
   foreach ( @files ) { $_="$_[0]/$_"; -d $_ ? &recurse($_) : &function($_); }
 }
 
 &recurse ( $ARGV[0] || '.' );
 
 -- 
 Игорь Hиколаев
 --- ifmail v.2.12.os.sensi
  * Origin: И мне не жалко того, что так бесконечен мой пут (2:5030/266@fidonet)
 
 

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

Тема:    Автор:    Дата:    каталоги   ax Gerasimov   06 Jul 2001 21:45:06   Re: каталоги   John Lepikhin   10 Jul 2001 23:49:11   Re: каталоги   Pavel Ammosov   11 Jul 2001 01:09:20   Re: каталоги   Pavel Ammosov   11 Jul 2001 01:09:17   Re: каталоги   Igor Nikolaev   11 Jul 2001 05:27:14