X-Git-Url: https://git.rmz.io/dotfiles.git/blobdiff_plain/61d7dd11d4a450a64f2817ee4db0ec7fa5880b42..b9e4a0c3af29391c27e9a020693541b9a86c4d14:/bin/fixFarthingWood?ds=sidebyside diff --git a/bin/fixFarthingWood b/bin/fixFarthingWood deleted file mode 100755 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); -}