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 70 839×
Přečteno 47 658×
Přečteno 43 397×
Přečteno 35 701×
Přečteno 34 847×