|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Albert N. MICHEEV 2:5049/80 29 Dec 2000 11:37:07
To : Ivan Prokudin
Subject : Out of memory ïpè èñïîëüçîâàíèå ref'îâ íà õåø
--------------------------------------------------------------------------------
Ïpèâåò Ivan!
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Îòâå÷àÿ íà ïèñüìî Ivan Prokudin ê ALL îò <29 Äåê 00>:
IP> Åñòü data.txt:
IP> 00:00|00:45
IP> aaa|zzz|sss
IP> 00:55|01:30
IP> bbb|rrr|aaaaaaaaa
IP> 02:11|03:48
IP> aaaa|dddd|qqqq
IP> 05:06|07:08
IP> qqqqq|qqqqqqqqqqq|aaaaaaaaaaaaaaaaaaaa
IP> Åñòü åå ïàpñåp:
IP> #!/usr/bin/perl -w
IP> open (DATA, "./data.txt");
IP> $i=1;
IP> while (<DATA>) {
chomp çàáûë
IP> if (length != 0)
IP> {
IP> ($lessons[$i]->{'beg'},$lessons[$i]->{'end'})=split /\|/;
IP> $_=<DATA>;
chomp çàáûë
IP> ($lessons[$i]->{'predv'},$lessons->[$i]{'main'},$lessons->[$i]{'aft'}
IP> )
IP> = split /\|/;
IP> $i++;
IP> }
IP> }
IP> foreach (@lessons) {
foreach( 0 .. $#lessons ){
IP> print "Lesson $_ begins on " . $lessons[$_]->{'beg'} . "and
IP> ends on " . $lessons[$_]->{'end'};
IP> }
IP> Hå ïàøåò ãîâîpÿ:
IP> Ïî÷åìy? Ïîìîãèòå, ïëç...À òî ÿ påôû ïåpâûé pàç þçàþ...
äåëàé òàê $lessons[$i]{beg}
à âîò òàê ïîëy÷øå áyäåò:
open (DATA, "./data.txt");
while( <DATA> )
{
last unless chomp and length;
my %data;
@data{ qw/beg end/ } = split /\|/;
@data{ qw/predv main aft/ } = split /\||\n/, scalar <DATA>;
push @lessons, \%data;
}
my $i;
printf "Lesson %d begins on %s and ends on %s\n",
++$i, @$_{qw/beg end/} for @lessons;
--- ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
* Origin: Ìû èç Ñîâåòñêîãî Ñîþçà, ïpèáûëè ïî êyëüòypíîìy îáìåíy. (2:5049/80)
Âåðíóòüñÿ ê ñïèñêó òåì, ñîðòèðîâàííûõ ïî: âîçðàñòàíèå äàòû óìåíüøåíèå äàòû òåìà àâòîð
|
Out of memory ïpè èñïîëüçîâàíèå ref\'îâ íà õåø 