|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Albert N. MICHEEV 2:5049/80 30 Dec 2000 11:42:45
To : Ivan Prokudin
Subject : Out of memory ïpè èñïîëüçîâàíèå ref'îâ íà õåø
--------------------------------------------------------------------------------
Ïpèâåò Ivan!
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Îòâå÷àÿ íà ïèñüìî Ivan Prokudin ê Albert N. MICHEEV îò <30 Äåê 00>:
AM>> my $i;
AM>> printf "Lesson %d begins on %s and ends on %s\n",
AM>> ++$i, @$_{qw/beg end/} for @lessons;
IP> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Êàêàÿ èíòåpåñíàÿ
IP> êîíñòpyêöèÿ. À ÷åãî îíà äåëàåò? Ìîæåùü âûäåpæêè èç äîêyìåíòàöèè èëè
IP> ñâîèìè ñëîâàìè (ïåpâîå ëy÷øå) êèíyòü?
äîêè íå çíàþ òî÷íî, ýòî èç pàçpÿäà ãpþíäêåíòíèñ, èëè êàê ýòî ïî pyññêè...
ìîæåò ïåpëpåô + ïpî õåøè ïpî÷èòàé.
ñìûñë:
my %hash;
@hash{'a', 'b'} == ( $hash{a}, $hash{b} );
$_ = \%hash;
@$_{qw/beg end/} == @$_{ 'beg', 'end' } == ( $$_{beg}, $$_{end} ) ==
( $_->{beg}, $_->{end} );
--- ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
* Origin: Ìû èç Ñîâåòñêîãî Ñîþçà, ïpèáûëè ïî êyëüòypíîìy îáìåíy. (2:5049/80)
Âåðíóòüñÿ ê ñïèñêó òåì, ñîðòèðîâàííûõ ïî: âîçðàñòàíèå äàòû óìåíüøåíèå äàòû òåìà àâòîð
|
