[Gllug] perl script

[Philippe Rousselot]

thank you all

I still have to figure out the meaning of all of that, but it works.

Philippe

Chris Ball wrote:
>>>On Wed 21 Aug 2002 19:23:22, Nick Mailer <nickm at positive-internet.com> said:
>>
> 
>    >> 01_02_03_04.jpeg becomes 02_01_03_04.jpeg
> 
>    NM> { /^(.)(.)(.)(.)(.)(.*)$/; rename ($_, "$4$5$3$1$2$6"); }
> 
> Yuck.
> 
> { /^(\d{2})_(\d{2})_(.*)$/; rename ($_, "$2_$1_$3") or die; }
> 
> - Chris.



-- 
Gllug mailing list  -  Gllug at linux.co.uk
http://list.ftech.net/mailman/listinfo/gllug