Posted By: madhouse (Ekozmrd & cykloterorista) on 'CZunix' Title: Re: inteligentni sort Date: Tue Aug 19 01:05:42 2008 > S tim asoc. polem, nemam zaruku, ze se mi to vejde do pameti. > (Je mozny, ze vejde...ted, ale pak si treba zvetsim data o rad > a pujde to do haje.) > > > Pokud je to fakturovatelna uloha, muzu se tomu venovat, analyzovat, > > zrealizovat a optimalizovat. > > Ne, to fakt neni :) > > 2 all: dik za rady, ja si nechci nic prgat, tohle je neco, co delam > tak 2x do roka, a proste me sere, ze to trva tak dlouho a musim > predtim resit volny misto, tak jsem cekala, ze treba existuje nejakej > GNU Super Sort, do kteryho nekdo uz takovyhle vylepseni dopsal, a > kterej uz vsichni davno pouzivaj, akorat mne dosud zustal utajen. > Kdyz ne, tak holt ne, za nejaky manualni reseni mi to nestoji :) Jeee, to je povyku pro par radku ;-) use strict ; use warnings ; use QDBM_File; my %hash ; my $db = tie %hash, 'QDBM_File', 'cosikdesi'; my $key; my $value ; while ( $key = <> ) { $value = $db->FETCH($key) || 0 ; $value++ ; $db->STORE($key, $value, QD_OVER); } while (($key, $value) = each %hash) { print $key, " ", $hash{$key}, "n"; } - Na vstupu jsou HTML dokumenty, 105MB. $ (for file in * ; do cat $file ; done ) | wc -l 1154080 $ (for file in * ; do cat $file ; done ) | perl junique.pl | wc -l 84719 $ ls -l cosikdesi -rw-r--r-- 1 root root 9943913 2008-08-19 00:42 cosikdesi > johanka -- AUTHOR Written by FIXME unknown.