diff options
author | John Ankarström <john@ankarstrom.se> | 2021-07-12 13:24:49 +0200 |
---|---|---|
committer | John Ankarström <john@ankarstrom.se> | 2021-07-12 13:27:07 +0200 |
commit | 03d827e2fbc409ef97829f25b8eeca5204f81a3c (patch) | |
tree | 6099f0feb9adf3425fba87549b164043e18bd0c7 /etc/mkmv | |
parent | 45cddd072119c5abd7ec076cf28d51ee01f125b7 (diff) | |
download | xutil-03d827e2fbc409ef97829f25b8eeca5204f81a3c.tar.gz |
Re-organize files
Diffstat (limited to 'etc/mkmv')
-rwxr-xr-x | etc/mkmv | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/etc/mkmv b/etc/mkmv new file mode 100755 index 0000000..0179bbc --- /dev/null +++ b/etc/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}.tmp/$_" 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 {} |