Ver Tema

wampaier · Mié Jul 01, 2009 12:04 pm

¿Qué tal...? Me podrían ayudar con la función random()?... Encontrar un script... pero ¿cómo podría hacerle para que yo introduzca una lista de 88 números y me escogiera 5 al azar...?

wampaier · Mié Jul 01, 2009 12:28 pm

Tengo este script... solo que no sé cómo introducir dicha lista de 88 números aleatorios para que me escoja 5 números de dicha lista...

Este es el código:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl

use strict;

use warnings;

my $range = 88;

my $minimum = 5;

for (my $i = 1; $i <=5; $i++) {

        my $random_number = int(rand($range)) + $minimum;

        print $random_number . "\n";

}

netsoul · Mié Jul 01, 2009 4:47 pm

Utilizando módulos podrías simplificar:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl

use strict;

use warnings; 

use Math::Random::OO::Uniform;

for (0..4){

        $a = int(Math::Random::OO::Uniform->new(5,88)->next());

        print "$a\n";

}

Como se puede observar, los parámetros son: 5 para el mínimo, y 88 para el rango (máximo).

=)

wampaier · Jue Jul 02, 2009 9:44 am

Gracias... encontré una forma diferente de hacerlo... pero de todas maneras se agradece... el script que hice tiene un poco más de líneas pero a fin de cuentas salió...

De todas maneras se agradece el apoyo

Publicidad

Socializa