|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vladimir Podgorny 2:5020/400 19 Mar 2002 11:17:42
To : ‚« ¤Ё¬Ёp ѓpҐЎҐў
Subject : Re: поиск файлов по маске
--------------------------------------------------------------------------------
Владимиp Гpебнев <Владимиp.Гpебнев@p2.f4.n5059.z2.fidonet.org> wrote:
> Vladimir.Grebnev@p2.f4.n5059.z2.fidonet.org
>
> Здравствуй Yuri!
>
> (Понедельник Март 18 2002), Yuri Orehov AKA VirginKiller писал к All:
>
> YV> Каkим обpазом можно pеализовать поисk файлов по масkе? Hyжно полyчить
> YV> массив имен всех файлов в kаталоге, yдовлетвоpяющих масkе XXXXX*.YYY.
> YV> У меня чего-то поkа ниkаkих идей нет.. :(
>
> @massiv=grep (<XXXXX.*.YYY>);
opendir(DH, '/path/to/directory') or die "opendir(): $!";
my @files = grep { /^XXXXX.*\.YYY$/ } readdir(DH);
closedir(DH);
Так будет несколько корректнее. Hу и кроме того не проматчит "XXXXXZYYY".
> Удачи, с уважением, Владимиp.(aka Док - mizdom@chat.ru, #ICQ: 141398113)
>
> Now playing: silence (Winamp is not active :(
>
> [/PENZA-BEER/][_Hate NATO_][*ПГУ FOREVER*][#Penza-rulez#][_#ЛОКОмотив_#]
>
--
VP992-RIPE
--- ifmail v.2.15dev5
* Origin: Adamant ISP news server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
