请教windows下Perl移动文件并改名

xinganling

非常感谢, trying....

cobrawgl

刚才考虑不周，把 wanted 改改吧

sub wanted {
        unless (-d) {
                my ($filename, $dir) = File::Basename::fileparse($File::Find::name);
                $dir =~ s{\w:/}{};
                $dir =~ s{/}{_}g;
                $filename = File::Spec->catfile('d:/tt', $dir.$filename);
                File::Copy::move($File::Find::name, $filename);
        }
}

forlorngenius

xinganling

我把"my @dir = qw(c:/目录1 c:/目录2 c:/目录3);"一句改成了"my @dir = qw(c:/abc/a c:/abc/b c:/abc/c c:/abc/d c:/abc/e.....);
目录大约有二十个, 运行出错:  (注: 脚本文件名为yy.pl)

Global symbol "$filename" requires explicit package name at yy.pl line 13.
Global symbol "$dir" requires explicit package name at yy.pl line 13.
Global symbol "$dir" requires explicit package name at yy.pl line 13.
Unmatched right curly bracket at yy.pl line 18, at end of line
  (Might be a runaway multi-line // string starting on line 13)
syntax error at yy.pl line 18, near "$dir =~ s{\w:/}"
Global symbol "$dir" requires explicit package name at yy.pl line 19.
Global symbol "$filename" requires explicit package name at yy.pl line 20.
Global symbol "$dir" requires explicit package name at yy.pl line 20.
Global symbol "$filename" requires explicit package name at yy.pl line 20.
Global symbol "$filename" requires explicit package name at yy.pl line 21.
Unmatched right curly bracket at yy.pl line 22, at end of line
yy.pl has too many errors.

是不是目录穷举得不对了?

cobrawgl

天知道你怎么复制的

capypara

为什么不用nested subroutine 呢？这正是它大显身手的时候啊。

forlorngenius

错误信息已经比较明显了