
09/01/2003, 10:31
|
 | | | Fecha de Ingreso: noviembre-2002
Mensajes: 160
Antigüedad: 22 años, 2 meses Puntos: 0 | |
Código:
@array = ('uno','dos','tres','cuatro','cinco','seis','siete','ocho','nueve','diez');
$bla2 = $bla = int rand @array;
while (($bla2 == $bla) && $#array > 1) { $bla2 = int rand @array }
print "\$bla: $bla - \$array[$bla]: $array[$bla]\n";
print "\$bla2: $bla2 - \$array[$bla2]: $array[$bla2]\n";
|