ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexey Mahotkin 2:5020/400 03 Aug 2003 20:14:37
To : "Alexander V. Gaiduk"
Subject : Re: полный скан всех поддиректорий данной директории....
--------------------------------------------------------------------------------
>>>>> "AVG" == Alexander V Gaiduk <gav@arhcity.ru> writes:
AC> perldoc File::Find
AVG> хватит извращаться :)
Правильный вариант указан выше.
AVG> &scandir($startdir);
AVG> sub scandir { my $d; my $nd; opendir(DIR, $_[0]); foreach $d (sort {
AVG> $a cmp $b } readdir(DIR)) { if (($d ne ".") && ($d ne "..")) { $nd =
AVG> $_[0] . "/" . "$d"; if ( -d $nd ) { # print "$nd\n"; # print
AVG> directory names &scandir($nd); } else { print "$nd\n"; # print file
AVG> names
AVG> }
AVG> }
AVG> }
AVG> closedir(DIR);
AVG> }
В твоём варианте а) не проверяются коды вызова opendir/readdir/closedir; б)
зачем-то сортируются имена файлов;
Четыре ошибки на двадцать строк -- неплохой результат ;)
--alexm
--- ifmail v.2.15dev5
* Origin: tyranny (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
