[bcn-pm] Expresiones regulares.

[TooManySecrets]

Alex Muntada escribió:

> * TooManySecrets <toomany at toomany.net>:
>   [2005-04-12 11:52:09 +0200]
>
> >>perl -pe '$_=(join " ",(split /\s+/)[reverse 0..4])."\n"'
>
> >Me miraré qué hace para intentar comprenderlo antes de usarlo.
>
>
> @columnes = 0 .. 4;                 # d'1 a 5 però des de 0
> @senmuloc = reverse @columnes;      # columnes invertides
>
> while (<>) {
>     @elements = split /\s+/, $_;    # $_ és opcional
>     $sortida = join " ", @elements[@senmuloc];
>
>     print $sortida, "\n";
> }


Muchas gracias!! Con profesores como vosotros todo es "fácil" XDDD

-- 
                                                \|/ ____ \|/
Have a nice day   ;-)              "@'/ ,. \'@"
TooManySecrets                     /_| \__/ |_\
                                                 \__U_/
============================
Nine megs for the secretaries fair,
Seven megs for the hackers scarce,
Five megs for the grads in smoky lairs,
Three megs for system source;

One disk to rule them all,
One disk to bind them,
One disk to hold the files
And in the darkness grind 'em.
============================