[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [RiminiLUG-General] Perl

riccardo wrote on 12/16/03 11:18 AM:

Esatto. Devo poi capire quali sono i prezzi giusti ma per questo devo fare
l'analisi dei costi
e riallineare i listini. Attualmente non c'è un listino giusto. Purtroppo ci
sono solo quelli sbagliati. :(


quindi qualcosa del genere:


hash = {};

foreach $linea (<STDIN>){
        my ($chiave, $valore) = split('\s+', $linea);
        if (exists($hash{$chiave}) and $hash{$chiave} != $valore){
                print "$chiave\t$valore";
        }else{
                $hash{$chiave}=$valore;
        }
}
poi lo adatti alle tue esigenze come meglio credi, l'ho banalmente testato ma non prende in considerazione righe anomale, ogni riga deve iniziare con un non-spazio e la colonna b e' distinta dalla a perche' separate da uno o piu' spazi 

spero che possa esserti utile,
filippo

--
Mailing list info: http://lists.linux.it/listinfo/riminilug-general