Já bych to udělal jednoduchoučkým perlovským skriptem:
while (<>)
{
chop;
@p=split(/\t/,$_);
# případně if (nějaké_dodatečné_podmínky) ...
$h{$p[0]."-".$p[1]}+=$p[3];
}
foreach $x (keys %h) {print $x,"\t",$h{$x},"\n";}
Základní charakteristika: podnikatel v internetových médiích. Čím vším už jsem byl a občas ještě jsem: zakladatel Internet Info, šéfredaktor Lupa.cz, vedoucí projektu Dobrý web, aktivista ve SPIRu a CZ.NICu. A trochu taky ústavní právník, ale na to v tomhle blogu nedojde.
Přečteno 71 571×
Přečteno 47 822×
Přečteno 43 654×
Přečteno 36 000×
Přečteno 35 301×