From c02e37c869cff3939bf191c46c06a8db857d7e9d Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Tue, 14 Jan 2025 20:34:06 +0100
Subject: mvall

---
 mvall | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 mvall

(limited to 'mvall')

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++;
+}
-- 
cgit v1.2.3