cleaning up bin

[dotfiles.git] / bin / fixFarthingWood

diff --git a/bin/fixFarthingWood b/bin/fixFarthingWood
deleted file mode 100755 (executable)
index 82ec50c..0000000
--- a/bin/fixFarthingWood
+++ /dev/null
@@ -1,20 +0,0 @@
-#! /usr/bin/perl
-
-###################################################################
-# This script fixes the series numbering for The Animal of        #
-# Farthing Wood
-###################################################################
-
-use warnings;
-use strict;
-
-foreach my $file (<*>) {
-       my $new_file;
-       $file =~ /(\d+)- (.*)/;
-       my $n = scalar $1;
-       $n -= 26; 
-       $n = length($n) == 1 ? "0$n" : $n;
-       $new_file = "3x$n $2";
-       print "$file -> $new_file\n";
-       rename($file,$new_file);
-}