From f2b75f9fcf40e72a3c0a0a95bb35a408bd19501a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Mon, 3 May 2021 21:46:33 +0200 Subject: Add 'mkmv' utility --- mkmv | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100755 mkmv (limited to 'mkmv') 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 <