|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Albert N. MICHEEV 2:5049/80 05 Jun 2001 23:57:31
To : Alexander Bolotnov
Subject : påøåíèå ïîêpàñèâåé...
--------------------------------------------------------------------------------
Ïpèâåò Alexander!
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Îòâå÷àÿ íà ïèñüìî Alexander Bolotnov ê All îò <05 Èþí 01>:
AB> çàäà÷à òàêàÿ: åñòü ñïèñîê áyêîâîê, íyæíî yçíàòü íîìåp ïîçèöèè â
AB> ñïèñêå äëÿ êàêîé-íèòü áyêîâêè è íàïå÷àòàòü ñëåäyþùyþ áyêîâêy. y ìåíÿ
AB> ýòî ñäåëàëîñü âîò òàê:
AB> ($var,@set,$i) = ('a',(a..z),0);
AB> for(@set){
AB> $i++;
AB> last if $_ eq $var;
AB> }
AB> printf "%s", (defined @set[$i]) ? "@set[$i]": "no such letter";
AB> à ïîïpîùå påøåíèÿ áûâàåò?
êàøìàp äà è òîëüêî...
$var = 'a';
$var++;
--- ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
* Origin: Ìû èç Ñîâåòñêîãî Ñîþçà, ïpèáûëè ïî êyëüòypíîìy îáìåíy. (2:5049/80)
Âåðíóòüñÿ ê ñïèñêó òåì, ñîðòèðîâàííûõ ïî: âîçðàñòàíèå äàòû óìåíüøåíèå äàòû òåìà àâòîð
|
