Linuxtrent: Re: Problemino
- From: Guido Brugnara <gdo@xxxxxxxxx>
- To: linuxtrent@xxxxxxxxxxxxx
- Date: Sun, 14 Oct 2001 20:15:30 +0200
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
Other related posts:
