|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Anatoly Moskovsky 2:5020/400 16 Jul 2001 12:15:08
To : Nikolay Pichtin
Subject : Re: Ускорить выполнение
--------------------------------------------------------------------------------
Привет!
*** 16 июля Nikolay Pichtin пишет All:
> Добрый день All !
>Есть скрипт, который читает каталог и отбирает имена файлов по
>расширению.
>Можно-ли оптимизировать скрипт с целью ускорения работы?
>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 содержатся необходимые расширения.
Если я правильно понял, что там делается, то так:
use strict;
my $dir = '/usr/home/public_html/cgi-bin';
my %types = ('pl'=>1, 'cgi'=>1);
my @files;
opendir DIR, "$dir" || die "What?";
@files = map {m{(.*)\.([^/.]+)$}}
grep {m{\.([^/.]+)$} && exists $types{$1}}
sort readdir(DIR);
closedir (DIR);
Бай
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Ускорить выполнение 
