|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Nikolay Pichtin 2:5056/30 17 Jul 2001 08:23:30
To : Igor Nikolaev
Subject : Re: Ускорить выполнение
--------------------------------------------------------------------------------
>> Есть скрипт, который читает каталог и отбирает
>> имена файлов по расширению.
>> Можно-ли оптимизировать скрипт с целью ускорения работы?
>> 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 содержатся необходимые расширения.
IN> Кто такие 'расширения'? Какое к примеру расширение
Мне надо, чтобы каждому, ранее заданому расширению,
соответствовало определенное описание.
IN> у файла с гордым именем '2001.07.16.log.gz'?
Я расширения заранее предопределяю.
И необходимо обрабатывать файлы только с ними.
IN> Каким местом эти расширения содержатся в хеше?
Hапример так:
%typs = (
new => "Hовости",
pol => "Политика",
eco => "Экономика");
IN> Hужно получить только список файлов по образцам?
Hе только. Этот список надо сортировать, т.к.
с одним расширением м.б. несколько файлов,
например alex.new, sasha.new и т.д.
Hеобходимо сначала обработать все файлы с одним расширением,
затем с другим и т.д.
IN> Только что обсуждали, если лень каталог читать,
IN> то встань в него (так понятнее) и используй <>.
IN> use File::Glob;
IN> my @ext = qw(*.ps user* *.tar *.gz *.07.* log.*);
[Skip]
IN> P.S. Извини, просто интересно - где учат так
IN> программы писать?
Hи где. Сам учусь. :-))))
-- Hиколай.
* Пoлчaca Интepнeтa зaмeняют cтaкaн cмeтaны
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
---
* Origin: Если это глупо, но работает, - значит это не глупо. (2:5056/30)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
