aboutsummaryrefslogtreecommitdiff
path: root/mkmv
diff options
context:
space:
mode:
authorJohn Ankarström <john@ankarstrom.se>2021-05-03 21:46:33 +0200
committerJohn Ankarström <john@ankarstrom.se>2021-05-03 21:46:33 +0200
commitf2b75f9fcf40e72a3c0a0a95bb35a408bd19501a (patch)
treeeacec264e00d0d0369863fbc26addd634082a181 /mkmv
parent0d0d8d994603a740446085c6ba096642acaf50d4 (diff)
downloadxutil-f2b75f9fcf40e72a3c0a0a95bb35a408bd19501a.tar.gz
Add 'mkmv' utility
Diffstat (limited to 'mkmv')
-rwxr-xr-xmkmv23
1 files changed, 23 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 {}