ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alexander Kulik 2:4635/99.99 19 Apr 2001 22:57:32
To : Ramil Khamzin
Subject : Аварийный выход из Perl
--------------------------------------------------------------------------------
Как-то Ramil Khamzin писАл(а) к All:
RK> #!usr/local/bin/
RK> use File::Find;
RK> $dir = "d:/home/ruslaws_old/Russian/Law/Doc";
RK> @DIRLIST = $dir;
RK> sub process {
RK> next if $_ =~/\.\.?$/; # Пропустить . и ..
RK> print "$_\n";
RK> }
RK> find(\&process, @DIRLIST);
Это конечно крyто, но зачем тебе рекyрсивный сканер директории?
проще так:
opendir(DIR,$dir) || die "cannot opendir $dir: $!";
while (defined($file = readdir(DIR))) {
unless (-d $file) { vprint "$file\n"; }
}
или регyлярным:
next if ($file =~ /^\.\.?$/)
Be c00l! It's wolf...
--- GoldED+/386 1.0.0
* Origin: Вот это по-нашенски! http://wolf.appua.com (2:4635/99.99)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
