[Gllug] perl script

[Chris Ball]

>> 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.
-- 
$a="printf.net";  Chris Ball | chris at void.$a | www.$a | finger: chris@$a


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