use strict;
use Encode;
use Win32::Clipboard;
use File::Basename qw/dirname basename/;
use IO::Handle;
use Time::HiRes 'sleep';
STDOUT->autoflush(1);

my $clip;
our @files;
$clip = Win32::Clipboard();

$clip->Empty();
while (scalar(@files) <= 1) {
    @files = $clip->GetFiles();
    print ".";
    sleep 0.5;
}
print "Got it! \n";
&deal();

sub deal {
    open WRT, ">:raw", dirname(__FILE__)."\\repair_fname.pl" or die "WHAT? $!";
    our @files;
    my $i;
    my $path_and_name;
    my $left = "";
    $left = shift @ARGV if (defined $ARGV[0]);
    $i = 0;
    foreach (@files) {
        if (! -e $_) {
            print "File not exists!\n";
            last;
        }
        $i++;
        /\.(.{1,3})$/;
        $path_and_name = sprintf(
                "%s\\%s%03d.%s", 
                dirname($_), $left, $i, $1
            );
        if (-e $path_and_name) {
            print "WARNNING: The same file name does exists!\n";
            last;
        }

        print WRT "rename(\'$path_and_name\', \'$_\');" . "\r\n";
        print basename($_), " => ", basename($path_and_name) ,"\n";
        rename ($_, $path_and_name) or warn "$!";
    }
    close WRT;
}
复制代码