Guido Brugnara wrote: scrivendo a getto lo script Perl sotto riportato non mi ero accorto che non stampo i dati di un file se ho il caso di una ugualianza come ultimo file nella lista; lo script modificato diventa quindi _____________________________________________________ #!/usr/bin/perl # Autore Guido Brugnara gdo@xxxxxxxxx (ITALY-BRGGDU62M29L378L) # Autorizzazione alla distribuzione concessa # GPL (http://www.gnu.org/licenses/gpl.txt) # $prev_name="|"; $prev_dim="-1"; $prev_dir=''; $print_prev=0; while(<>){ chop; ($name,$dim,$dir)=split /\|/, $_; if($prev_name eq $name && $prev_dim == $dim){ print "$dir/$name $dim\n"; $print_prev=1; }else{ if($print_prev){ $print_prev=0; print "$prev_dir/$prev_name $prev_dim\n"; } $prev_name=$name; $prev_dim=$dim; $prev_dir=$dir; } } if($print_prev){ $print_prev=0; print "$prev_dir/$prev_name $prev_dim\n"; } _______________________________________________________ N.B. Ho usato $print_prev in quanto in questo modo gestisco anche il caso di file uguali in numero maggiore di due. ciaociao Guido Brugnara -- ing. Guido Brugnara tel.+39(461)390804 fax.396028 Leader.IT S.r.l. (Leader Information Technology) Strada della Pozzata, 41 www.leader.it/srl 38050 Villazzano TRENTO (ITALY) info@xxxxxxxxx -- PROSSIMA ASSEMBLEA: venerdi` 19 ottobre 2001 20:30 a Madrano di Pergine. Per iscriversi (o disiscriversi), basta spedire un messaggio con SOGGETTO "subscribe" (o "unsubscribe") a mailto:linuxtrent-request@xxxxxxxxxxxxxxxxx