cleaning up bin

[dotfiles.git] / bin / fix_numbering / fix4400

diff --git a/bin/fix_numbering/fix4400 b/bin/fix_numbering/fix4400
new file mode 100755 (executable)
index 0000000..b9cead6
--- /dev/null
+++ b/bin/fix_numbering/fix4400
@@ -0,0 +1,23 @@
+#! /usr/bin/perl
+
+###################################################################
+# This script fixes the series numbering for season 2 of the 4400 #
+###################################################################
+
+use warnings;
+use strict;
+
+foreach my $file (<*>) {
+    my $new_file;
+    if ($file =~ /part1/) {
+        $new_file = "2x01.avi";
+    } else {
+        $file =~ /E(\d+)/;
+        my $n = scalar $1;
+        $n += 1; 
+        $n = length($n) == 1 ? "0$n" : $n;
+        $new_file = "2x$n.avi";
+    }
+    print "$file -> $new_file\n";
+    rename($file,$new_file);
+}