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 66 653×
Přečteno 47 187×
Přečteno 42 772×
Přečteno 34 640×
Přečteno 33 998×