mvall


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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++;
}