perl文件复制问题

system(”copy -y d:\\22&33.rar d:\\1“);
复制不成是22&33.rar 文件名有&的原因吗？应该怎么样写“？？

1、复制不成是因为两个原因:&符号属于特殊符号，因此完整文件名需要用引号标记。

所以你的文件名应该是：
system(`copy \"d:\\22&33.rar\" d:\\1`);

2、copy命令的参数应该写成/y，而不是-y，因为文件名是支持 -y这样的，不信你可以建立一个文件，将其名字改为-y，系统是允许的。

所以你的命令完整应该写为：
system(`copy /y \"d:\\22&33.rar\" d:\\1`);

perl复制整个文件夹的方法

use strict;

use cwd;

user file::copy;

my $curpath = getcwd; 

my $destpath = "";         # 目标目录 

foreach my $dir(<*>){

        if(-d $dir){

             move "$curpath/$dir", "$destpath/$dir" or die $!;

         }

}

# 试试看吧，是不是你要的