[Sop.Tec.LinuxPPP] Array en Perl

[lunatico en mail dm com mx (Rodrigo Rios Martinez)]

Hola, muchas gracias por la atencion.

Los datos asignados a un Array no se conservan, y al mandar pedir un dato
del array manda el ultimo valor agregado. Muchas gracias por la ayuda que me
brinden.

#!/usr/bin/perl

@ip=( );

for( $iii=0; $iii < 10; $iii++ )
{
    $ip[ `$iii` ] = $iii * $iii;
    print " $iii $ip[ `$iii` ]\n";
}

for( $iii=0; $iii < 10; $iii++ )
{
    print " $iii $ip[ `$iii` ]\n";            # En este caso imprime 81
}

---------------------------------------------------------------------
Lista de soporte de LinuxPPP
 Reglas de la lista en http://pepe.net.mx/reglas.html