cleaning up bin

[dotfiles.git] / bin / fix4400

diff --git a/bin/fix4400 b/bin/fix4400
deleted file mode 100755 (executable)
index bce4286..0000000
--- a/bin/fix4400
+++ /dev/null
@@ -1,23 +0,0 @@
-#! /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);
-}