fix-names script to mess with track filenames

[disorder] / scripts / fix-names

diff --git a/scripts/fix-names b/scripts/fix-names
new file mode 100755 (executable)
index 0000000..97845d2
--- /dev/null
+++ b/scripts/fix-names
@@ -0,0 +1,22 @@
+#! /usr/bin/perl -w
+use strict;
+
+my $act = 1;
+
+for my $f (@ARGV) {
+    if($f =~ /^-/) {
+       if($f eq '-n') {
+           $act = 0;
+       } else {
+           die "$0: unknown option: $f\n";
+       }
+       next;
+    }
+    my $t = $f;
+    $t =~ s/[_ ]+/ /g;
+    $t =~ s/(?!(?<=\.)[A-Za-z0-9]+$)\b[a-z]/\U$&\E/g;
+    print "$f -> $t\n";
+    if($act) {
+       (rename $f, $t) or die "$0: $f -> $t: $!\n";
+    }
+}