Help for this page

Select Code to Download


  1. or download this
    use strict;
&renameFiles( &getArgs() );
...
      rename( $before, $after );
   }
}
  2. or download this
    perl renrx "s|(.*?)(\d\d) ([^_]+) _ (.*?)(\.mp3)|$1$2 $4 _ $3$5|"
  3. or download this
    Maybe-01 Winter Wonderland _ Phantom Planet.mp3 => Maybe-01 Phantom Pl
+anet _ Winter Wonderland.mp3
Rename? [Yes|No|Always|Cancel] y
Maybe-02 Maybe this Christmas _ Ron Sexsmith.mp3 => Maybe-02 Ron Sexsm
+ith _ Maybe this Christmas.mp3
Rename? [Yes|No|Always|Cancel] a