🚀 go-pugleaf

In article <339269AF.17E@pol.pl> kanon@pol.pl writes:

   Mam maly problem. Od niedawna pisze w perlu wiec kryje on przede mna
   jeszcze kilka sekretow. Nie bardzo wiem jak tworzyc dynamiczne zmienne.
   Chodzi mi o to, ze jak np czytam plik z ktorego loguje wystepowanie
   jakegos stringu i stringow takich moze byc wiele (nigdy nie wiadomo ile)
   i chcialbym w oddzielnych zmiennych tworzonych dynamicznie zliczac
   wystepowanie poszczegolnych stringow, cos w rodzaju statystyk. Czy ktos
   moze mi podsunac jakis pomysl. Bede wdzieczny.


Uzyj tablic asocjacyjnych, np tak:

while(<>) {
    chop ;
    @line = split ;
    foreach $word (@line) {
	$wordcnt{$word}++ ;
    }
}

while (($word, $cnt) = each %wordcnt) {
    printf ("%-25s %4d\n", $word, $cnt) ;
}

 Oto efekt:

herbata:/home/zls/benke/Perl>perl -w wordstat.pl
ala ma kota kota kota
ma                           1
ala                          1
kota                         3

Pozdrawiam,
		Marcin Benke
----------------------------------------------------------------------------
"Calm down, it's only ones and zeros!" -  DJ Delorie