Add 'mkmv' utility

2 files changed, 58 insertions, 0 deletions

diff --git a/mkmv b/mkmv
new file mode 100755
index 0000000..b3452c0
--- /dev/null
+++ b/mkmv
@@ -0,0 +1,23 @@
+#!/usr/bin/perl -w
+
+# mkmv -- move files to new directory
+
+use Getopt::Std;
+use File::Copy qw/mv/;
+
+getopts('t:', \%opt);
+&usage if not $opt{t};
+&usage if not @ARGV;
+
+mkdir "$opt{t}.tmp" or die "Could not create directory $opt{t}.tmp: $!\n";
+mv $_, "$opt{t}/$_" or warn "Could not move $_ to $opt{t}/$_: $!\n" for @ARGV;
+mv "$opt{t}.tmp", $opt{t} or warn "Could not move $opt{t}.tmp to $opt{t}: $!\n";
+
+sub usage { &HELP_MESSAGE; exit 1; }
+sub HELP_MESSAGE {
+	print STDERR <<OPT;
+usage: $0 -t target file [...]
+  -t	the target directory
+OPT
+}
+sub VERSION_MESSAGE {}
diff --git a/mkmv.1 b/mkmv.1
new file mode 100644
index 0000000..7087769
--- /dev/null
+++ b/mkmv.1
@@ -0,0 +1,35 @@
+.Dd $Mdocdate$
+.Dt mkmv 1
+.Os
+.
+.Sh NAME
+.Nm mkmv
+.Nd move files to new directory
+.
+.Sh SYNOPSIS
+.Nm
+.Fl t Ar target
+.Ar file ...
+.
+.Sh DESCIPTION
+.Pp
+.Nm
+moves the specified files into a new directory named
+.Ar target .
+It correctly handles the (not uncommon) case
+where one of the moved files has the same name
+as the target directory.
+
+Note that
+.Nm
+does not support the argument syntax of
+.Xr mv 1 .
+The explicit
+.Fl t
+flag is obligatory.
+.
+.Sh AUTHORS
+.Pp
+.Nm
+is written by John Ankarström
+.Aq Mt john (at) ankarstrom.se .