perl怎么拷贝一个文件到另一个文件夹中或者怎

use warnings

use File::Copy

my $filein=$ARGV[0]

my $fileout=$ARGV[1]

#copy($file1, $dir1)将文件$file1复制到文件夹$dir1中；

copy($filein,$fileout) or die "copy $filein to $fileout failed\n"

#move($file2，核基绝$dir2)；将文件$file2移动到改姿文件夹$dir2中

move($fileout,"$fileout.test") or die "mv $fileout to $fileout.txt failed\n"

#如果文件夹不存在，则创建该文件夹

if(!(-e $dir)){

mkdir $dir 锋帆or die 

　}

cp($dir3,$dir4)#把文件夹$dir3复制到文件夹$dir4

rename($dir4，'dir_4') #将文件夹dir4重命名为dir_4

rmove($dir5，$dir6)#将文件夹dir5移动到dir6

　御明　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 $!

       }

}

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

---