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.

Search the boards