Perl对剪贴板文件批量重命名

523066680

环境, Active Perl for Win32

　　执行脚本开始循环读取剪切板待命，这时选中一批文件，然后Control+C ，即可实现对文件批量按序号命名。
默认是001 002 003 + .扩展名    如果使用命令行带参数调用，则用第一个参数作为前缀，
比如
───────────┐
Terminal>rn.pl PIC-   │
───────────┘
则对读取到的文件列表命名为 PIC-编号.扩展名 的形式 还有很多可以完善的地方。执行后生成一个：repair_fname.pl
可以用于恢复最近一次修改的文件名。

1. use strict;
   
2. use Encode;
   
3. use Win32::Clipboard;
   
4. use File::Basename qw/dirname basename/;
   
5. use IO::Handle;
   
6. use Time::HiRes 'sleep';
   
7. STDOUT->autoflush(1);
   
8. 
   
9. my $clip;
   
10. our @files;
    
11. $clip = Win32::Clipboard();
    
12. 
    
13. $clip->Empty();
    
14. while (scalar(@files) <= 1) {
    
15.     @files = $clip->GetFiles();
    
16.     print ".";
    
17.     sleep 0.5;
    
18. }
    
19. print "Got it! \n";
    
20. &deal();
    
21. 
    
22. sub deal {
    
23.     open WRT, ">:raw", dirname(__FILE__)."\\repair_fname.pl" or die "WHAT? $!";
    
24.     our @files;
    
25.     my $i;
    
26.     my $path_and_name;
    
27.     my $left = "";
    
28.     $left = shift @ARGV if (defined $ARGV[0]);
    
29.     $i = 0;
    
30.     foreach (@files) {
    
31.         if (! -e $_) {
    
32.             print "File not exists!\n";
    
33.             last;
    
34.         }
    
35.         $i++;
    
36.         /\.(.{1,3})$/;
    
37.         $path_and_name = sprintf(
    
38.                 "%s\\%s%03d.%s",
    
39.                 dirname($_), $left, $i, $1
    
40.             );
    
41.         if (-e $path_and_name) {
    
42.             print "WARNNING: The same file name does exists!\n";
    
43.             last;
    
44.         }
    
45. 
    
46.         print WRT "rename(\'$path_and_name\', \'$_\');" . "\r\n";
    
47.         print basename($_), " => ", basename($path_and_name) ,"\n";
    
48.         rename ($_, $path_and_name) or warn "$!";
    
49.     }
    
50.     close WRT;
    
51. }
    

复制代码