bin/fix_numbering/fix4400

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