🚀 go-pugleaf

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On 23.07.2002, Eva Riart wrote in es.comp.os.linux.programacion

>  Como puedo hacer, de la forma m�s simple posible la siguiente operaci�n en
>  Perl?
>  
>               Dado un array de enteros:
>                                            my @array_de_enteros;
>  
>               y un string como el siguiente:
>  
>                                            $string="10,20,40-45,50";
>  
>               Obtener en @array_de_enteros=[10,20,40,41,42,43,44,45,50];

Llevo muy poco tiempo programando en perl, pero se me ocurre lo
siguiente:

    $str = "10,20,40-45,50";
    foreach (split /,/, $str) {
        if (/^(\d+)-(\d+)$/) {
            push @a, $_ for ($1..$2)
        } else {
            push @a, $_;
        }
    }
    print "@a";

A ver si te sirve..
Saludos.

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.7 (GNU/Linux)

iD8DBQE9Pdg6J/HgPjz2jQERAvPnAJ4oKiHT3fH+MlRYnYjoERSX8tEBzgCdF+Q8
8jrEY5WAUOJhvbD/YI6i6c0=
=Lqdi
-----END PGP SIGNATURE-----