1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
# examples of using the options HASH from C<File::Rename::Options::GetOptions>
# based on code from "Craig Sanders" <cas@taz.net.au>
# Bug #146138 for File-Rename: how to access options hash in rename script?
# [rt.cpan.org #146138]
#
# with renaming code in the script
#
use strict;
use warnings;
use File::Rename qw(rename);
use File::Basename qw(dirname);
use File::Path qw(make_path);
my $options = File::Rename::Options::GetOptions(1) or # don't read code
die "Bad options\n";
@ARGV = map {glob} @ARGV if $^O =~ m{Win}msx;
my %seen;
my $code = sub {
s{^}{my_new_dir/}; # example user code to rename file
my $dir = dirname($_);
if (! -e $dir) {
if ($options->{no_action}) {
print "#mkdir($dir)\n" unless $seen{"$dir"}++;
} else {
make_path("$dir", { verbose => 1 });
};
} elsif (! -d "$dir") {
print STDERR "$_: $dir exists but is not a directory!\n";
return
}
};
rename(\@ARGV, $code, $options);
|
