|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Albert N. MICHEEV 2:5049/80 06 Nov 2000 16:21:22
To : Alexander Bolotnov
Subject : äèpà...
--------------------------------------------------------------------------------
Ïpèâåò Alexander!
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Îòâå÷àÿ íà ïèñüìî Alexander Bolotnov ê All îò <06 Hîÿ 00>:
AB> îòêpûâàþ äèpy ñ ôàéëàìè.
AB> arch_(\d{3}).txt
AB> êàê íàéòè ôàéë ñ ñàìûìè áîëüøèìè öèôåpêàìè è ïpèáàâèòü åäåíè÷êy.
opendir DIR, "";
$new_id = (sort{ $b<=>$a }grep s/^arch_(\d{3})\.txt$/\1/, readdir DIR)[0] + 1;
closedir DIR;
AB> ìîæåò yæå y êîãî-íèòü íàïèñàííîå ýòî äåëî åñòü èëè ìîäyëè?
äåéñòâèòåëüíî ñòîèò ïîäyìàòü, ÷òîáû îôîpìèòü îäíy ñòpî÷êy êîäà ìîäyëåì...
--- ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
* Origin: Ìû èç Ñîâåòñêîãî Ñîþçà, ïpèáûëè ïî êyëüòypíîìy îáìåíy. (2:5049/80)
Âåðíóòüñÿ ê ñïèñêó òåì, ñîðòèðîâàííûõ ïî: âîçðàñòàíèå äàòû óìåíüøåíèå äàòû òåìà àâòîð
|
