interactive-rename

1 files changed, 28 insertions, 0 deletions

diff --git a/dot/local/bin/interactive-rename b/dot/local/bin/interactive-rename
new file mode 100755
index 0000000..e8017c7
--- /dev/null
+++ b/dot/local/bin/interactive-rename
@@ -0,0 +1,28 @@
+#!/usr/bin/perl -w
+use File::Temp ();
+$tmp = new File::Temp(UNLINK=>1);
+
+# TODO:
+# escape & unescape linefeeds
+# handle nonexistent files better
+# handle system() errors
+
+@ARGV = grep {-e $_} @ARGV;
+die "No files!\n" unless @ARGV;
+
+for (@ARGV) {
+  m(\n) && die "Sorry - can't do filenames with linefeeds (yet)\n";
+  print $tmp "$_\n";
+}
+
+$editor = $ENV{VISUAL} || $ENV{EDITOR} || 'vi';
+system($editor, $tmp) == 0 or die;
+
+seek($tmp, 0, 0) or die "seek: $!";
+@newname = <$tmp>;
+chomp for @newname;
+die "number of names changed!\n" unless @newname == @ARGV;
+
+for (0 .. $#ARGV) {
+  rename($ARGV[$_], $newname[$_]) unless $ARGV[$_] eq $newname[$_];
+}