Estimados, necesito hacer "shuffling" de caracteres en un array o un string.
Parece que lo mejor es instalar el módulo Math::Random::MT::Auto 5.04. No puedo hacerlo, al instalarlo me pide cada vez que baje más mádulos como: Objet, Class, inheritance (hasta aquí llegué, el último no lo pude instalar).
¿Hay alguna versión de Perl para Linux que lo tenga integrado, o alguna forma más sencilla de hacerlo?
¡¡Muchas gracias!!
Cris.
-
- Publicidad
Math::Random::MT::Auto 5.04
5 mensajes
• Página 1 de 1
Math::Random::MT::Auto 5.04
por Cristina » 2009-02-05 11:00 @500
- Cristina
- Perlero nuevo
- Mensajes: 14
- Registrado: 2009-02-05 10:17 @470
Publicidad
por explorer » 2009-02-05 13:14 @593
Bienvenida a los foros de Perl en Español, Cristina.
Para barajar el contenido de un arreglo, lo puedes hacer con el módulo List::Util:
En cuanto al string, se podrían pasar los caracteres a un arreglo (con la ayuda de split //,$string), hacer el barajamiento y luego rehacer el string con un join "", @arreglo.
Algo así:
Para barajar el contenido de un arreglo, lo puedes hacer con el módulo List::Util:
Using perl Syntax Highlighting
#!/usr/bin/perl
use Modern::Perl;
use List::Util qw(shuffle);
my @mazo = 1 .. 52;
say join " ", @mazo;
@mazo = shuffle @mazo;
say join " ", @mazo;
__END__
use Modern::Perl;
use List::Util qw(shuffle);
my @mazo = 1 .. 52;
say join " ", @mazo;
@mazo = shuffle @mazo;
say join " ", @mazo;
__END__
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
En cuanto al string, se podrían pasar los caracteres a un arreglo (con la ayuda de split //,$string), hacer el barajamiento y luego rehacer el string con un join "", @arreglo.
Algo así:
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por explorer » 2009-02-06 05:01 @250
Eso es que no lo tienes instalado.
Prueba a instalarlo, con el comando
cpan Modern::Perl
Pero eso sí... ese módulo solo te funcionará si tienes el Perl versión 5.10. Si tienes otro más antiguo, quita la línea del "use ..." y cambia los say() por print() con un "\n" al final.
Prueba a instalarlo, con el comando
cpan Modern::Perl
Pero eso sí... ese módulo solo te funcionará si tienes el Perl versión 5.10. Si tienes otro más antiguo, quita la línea del "use ..." y cambia los say() por print() con un "\n" al final.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
5 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: Google [Bot] y 13 invitados