[Gllug] perl script
Chris Ball
chris at void.printf.net
Wed Aug 21 18:41:36 UTC 2002
>> 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
More information about the GLLUG
mailing list