[Linux-Biella] perl

[vallini.daniele a bilug.linux.it]

Fri, Apr 16, 2010 at 08:58:08AM +0200  Claudio M. ha scritto: 

Ho provato ma non funziona correttamente, temo vi sia qualche errore almeno
di sintassi, la i ed il : li ho corretti ma si ostina a non operare con
decenza.

> prova a fare una cosa del genere:
> 
> foreach $pagina (303..310) {
> 	open A, "< /gp/wrai/tmp2/$pagina";      # apro in lettura
> 	open B, "> /gp/wrai/tmp3/$pagina";      # apro in scrittura
> 
> 	$i=0;
> 	$prec = "";
> 	while (<A>) {
> 		chomp $_;

ma il chomp non deve essere dopo la verifica della linea pari?
altrimenti scassa tutti i NL e mi esce una linea unica.
Mi viene anche un dubbio: la linea 0 e' considerata pari?

> 		if (i$i++ %2) {
                    ^ questa i non l'ho capita

> 			$Riga3="$prec$_";
> 		} else {
> 			$prec = $_:
                                  ^ tastiera bacata, mi sa che questo deve essere ;
> 		}
> 		[tutto quello che devi fare con $Riga3]
> 	}
> }