indietro

Usate for/foreach:

    for (@linee) {
		s/pippo/pluto/;     # cambia quella parola
		y/XZ/XZ/;           # scambia quelle lettere
    }

Ecco un altro metodo; calcoliamo i volumi sferici:

    for (@volumi = @raggi) {    # @volumi ha parti cambiate
		$_ **= 3;
		$_ *= (4/3) * 3.14159;  # questo calcolo diventera` una costante
    }

che può essere fatto anche con map() che è fatto apposta per trasformare una lista in un'altra:

	@volumi = map {$_ **3 * (4/3) * 3.14159 } @raggi;

Se volete fare la stessa cosa per modificare i valori di un hash, potete servirvi della funzione values. Con Perl 5.6 i valori non vengono copiati, quindi se modificate $orbita (in questo caso), modificate il valore.

    for $orbita ( values %orbite ) {
		($orbita **= 3) *= (4/3) * 3.14159;
    }

Prima di perl 5.6 values restituiva copie dei valori, dunque il codice perl più vecchio spesso contiene costruzioni come @orbite{keys %orbite} al posto di values %orbite quando l'hash deve essere modificato.

vedi in inglese