|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Nikolay Pichtin 2:5056/30 16 Jul 2001 10:10:29
To : All
Subject : Ускорить выполнение
--------------------------------------------------------------------------------
Есть скрипт, который читает каталог и отбирает
имена файлов по расширению.
Можно-ли оптимизировать скрипт с целью ускорения работы?
if ( opendir (DIR, "$full_upload_dir") ) {
@dirs = map {/(.+)/} sort {$a <=> $b} readdir(DIR);
closedir (DIR);
}
foreach $lin(@dirs) {
($fn,$suff) = split (/\./,$lin);
while ( ($first,$last) = each(%typs) ) {
if ($suff eq $first){
push (@files,$fn,$suff);
}
}
}
В хеше %typs содержатся необходимые расширения.
-- Hиколай.
* Тише, Танечка, не плачь, а то будешь там, где мяч!
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
---
* Origin: Если это глупо, но работает, - значит это не глупо. (2:5056/30)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
