bin/fixFarthingWood

   1 #! /usr/bin/perl
   2
   3 ###################################################################
   4 # This script fixes the series numbering for The Animal of        #
   5 # Farthing Wood
   6 ###################################################################
   7
   8 use warnings;
   9 use strict;
  10
  11 foreach my $file (<*>) {
  12         my $new_file;
  13         $file =~ /(\d+)- (.*)/;
  14         my $n = scalar $1;
  15         $n -= 26;
  16         $n = length($n) == 1 ? "0$n" : $n;
  17         $new_file = "3x$n $2";
  18         print "$file -> $new_file\n";
  19         rename($file,$new_file);
  20 }