<HTML>
<HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META content="OPENWEBMAIL" name=GENERATOR>
</HEAD>
<BODY bgColor=#ffffff>
<font size="2">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
<br />
<br />#!/usr/bin/perl
<br />
<br />open(LTN,"mibase.txt");
<br />
<br />@reg=<LTN>;
<br />$ruser=rand(@reg);
<br />
<br />foreach $ltn (@reg){
<br /> if ($ltn == $ruser){
<br /> print $ltn;
<br /> }
<br />}
<br />close(LTN);
<br />
<br />es una de la formas que puse para probar pero igual no devuelve nada, espero sus comentarios desde ya muchas gracias.
<br />
<br />Saludos !!!
<br />
<br />
<br />-------------------------------------
<br />
Ariel E. Pedrozo
<br />
DBA & Network Administrator
<br />
Coop. Cabal LTDA
<br />
Ed. Ahorros Paraguayos 5to. Piso
<br />
Tel: 453009 int. 192
<br />
Mov: 0971 730744
<br />
Asuncio -
Paraguay
<br />
</font>
</BODY>
</HTML>