[Linux-Biella] script....

[CIARROCCHI Paolo]

From: Claudio [mailto:cmaffio@bilug.linux.it]
> Il Thu, 29 May 2003 16:49:39 +0200
> Claudio <cmaffio@bilug.linux.it> scrisse:
>=20
> C> open IN, "< dati.txt";
>=20
> alla fine metti anche un
>=20
> close IN;

C'e' ancora qualcosa che non va ;-(

$ cat prova.pl
#!/usr/bin/perl

open IN, "< XXXX.txt";

while (<IN>) {
        chop;
        /(\S+\s\S+)\s+(\w+)/;
        $data =3D $1;
        $numero =3D $2;
        if (exists $listagiorni{$data}) {
                $listagiorni{$data} =3D $listagiorni{$data} + $numero;
        }
        else {
                $listagiorni{$data} =3D $numero;
        }
}

while (($key,$value) =3D each %listagiorni) {
        print "$key : $value;\n";
}
close IN;

$ perl prova.pl >out.txt

$ head -2 out.txt
 : ;
27-may-2003 22:00 : 553;
			  ^^^^ dovrebbe esserci un 4

$ head -5 XXXX.txt
27-may-2003 20:00                    2
27-may-2003 20:00                    1
27-may-2003 20:00                    1
27-may-2003 20:01                    1
27-may-2003 20:02                    2


Ciao,
			Paolo