mvallHEADmaster

1 files changed, 22 insertions, 0 deletions

diff --git a/mvall b/mvall
new file mode 100755
index 0000000..91a7b4f
--- /dev/null
+++ b/mvall
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+
+use File::Basename qw<fileparse>;
+use File::Copy qw<move>;
+use File::Path qw<make_path>;
+
+use warnings;
+use strict;
+
+my $dest = shift;
+my @srcs = @ARGV;
+
+my ($name, $path, $suffix) = fileparse($dest, qr/\..*$/);
+make_path($path);
+
+my $n = 1;
+foreach my $src (@srcs) {
+    my $dest = "$path$name$n$suffix";
+    print "$src\n  -> $dest\n";
+    move($src, "$dest") || print STDERR "  ERROR: $!\n";
+    $n++;
+}