[Perl] Random

[Carmen Marcela Alegria C.]

Q tal??

 como no entendi para q es el ciclo foreach, para
obtener solo una linea, lo haria asi


 #!/usr/bin/perl


open(LTN,"mibase.txt");

@reg=<LTN>;
print $reg[int(rand(@reg+0))];

close(LTN);


Saludos,

Marcela Alegria



 --- "Ariel E. Pedrozo - Sysadmin"
<sysadmin en cabal.com.py> escribió:


---------------------------------
Hola listeros como andan ??? espero que bien quisiera
hacerles una consultita tengo un pequeño problema
tengo un archivo de n lineas y quisiera sacar 1 sola
linea de forma randomica, pero el scripcito no me esta
devolviendo nada les paso el codigo 

#!/usr/bin/perl                                       
                                                      
                                                      
                                                      
                                          

open(LTN,"mibase.txt");
                                                      
                                                      
               
@reg=<LTN>;
$ruser=rand(@reg);
                                                      
                                                      
               
foreach $ltn (@reg){
    if ($ltn == $ruser){
        print $ltn;
    }
}                                                     
                                                      
              
close(LTN);

es una de la formas que puse para probar pero igual no
devuelve nada, espero sus comentarios desde ya muchas
gracias.

Saludos !!!


------------------------------------- 
Ariel E. Pedrozo 
DBA & Network Administrator 
Coop. Cabal LTDA 
Ed. Ahorros Paraguayos 5to. Piso 
Tel: 453009 int. 192 
Mov: 0971 730744 
Asuncio - Paraguay
> _______________________________________________
> Perl mailing list
> Perl en tlali.iztacala.unam.mx
>
http://tlali.iztacala.unam.mx/cgi-bin/mailman/listinfo/perl
> 



	
	
		
___________________________________________________________ 
Do You Yahoo!? 
La mejor conexión a Internet y <b >2GB</b> extra a tu correo por $100 al mes. http://net.yahoo.com.mx