• Publicidad

Selección aleatoria de líneas

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Selección aleatoria de líneas

Notapor Reina » 2008-05-16 05:31 @271

Buenas perler@s:

Se me presenta el siguiente problema: tengo una lista en .txt con muchísimos equipos, para que os hagáis una idea os he seleccionado una muestra de ésta.

Código: Seleccionar todo
(null);PC-000000;
(null);PC-000001;
(null);PC-000008;
(null);PC-001558;
(null);PC-987654654;
(null);PT-6542358;
(null);PT-9851357;
(null);PT-9873215;
(null);PT-902548;
(null);PT-865472;
(null);PT-999999;
(null);PT-002255;

La cosa es que me gustaría hacer un script que me seleccionara por ejemplo 500 líneas de éstas de forma aleatoria. ¿Cómo se podría hacer?

Gracias y saludos.
Reina
Perlero nuevo
Perlero nuevo
 
Mensajes: 18
Registrado: 2008-04-25 06:47 @324

Publicidad

Notapor monoswim » 2008-05-16 07:44 @364

Si quieres sacar un número aleatorio del 1 al 999 podrías hacer
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
my $randnum = int( rand() * 1000 );
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


y si tienes en un array todos los elementos puedes hacer
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
my $elemento = $array[$randnum];
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Y si quieres 500 solamente tienes que hacer esa función 500 veces, en un bucle claro está...

Espero que te sirva.

Saludos
MonoSwim
Perl Programming Language
Avatar de Usuario
monoswim
Perlero nuevo
Perlero nuevo
 
Mensajes: 452
Registrado: 2003-11-18 16:13 @717
Ubicación: Buenos Aires

Notapor explorer » 2008-05-16 08:01 @375

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl
open HOSTS, "<hosts.txt";
my @hosts = <HOSTS>;
close HOSTS;

print splice( @hosts, rand @hosts, 1) for 1 .. 500;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 27 invitados