|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Igor Nikolaev 2:5030/266 18 Jul 2001 03:05:47 To : Aleksey Kotov Subject : Re: Ускорить выполнение -------------------------------------------------------------------------------- Aleksey Kotov <Aleksey_Kotov@p19.f1938.n5020.z2.fidonet.org> wrote: > IN> Если не лень то снова никакой хеш не нужен: > IN> my $pat = join '|', qw(\.ps$ ^user \.tar$ \.gz$ \.07\. ^log\.); > А если расширение добавить новое нужно? Какие проблемы? Взять да добавить. В конце концов в реальном контексте вместо qw можно написать @ARGV или откуда там паттерны берутся. Может из субд, может с потолка... > Когда оно в хэше - то мы правим не скрипт собстно, а его "настройки", например > считаваем в хэш файлик со списком расширений... а вот в вашем случае - > придется переписывать собстно текст скрипта... некрасиво работаете товарищ... it depends. Для примера в эхе сойдёт. Править для простейшего случая отдельный файл много чести :-) > Действительно... где же так учат программы писать?? :) Здесь, в эхе :-) -- Игорь Hиколаев --- ifmail v.2.12.os.sensi * Origin: А хеши нужно держать в .db :-) (2:5030/266@fidonet) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/134165fa40dad.html, оценка из 5, голосов 10
|