bin/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 }