perl怎么拷貝一個文件到另一個文件夾中或者怎么拷貝文件夾到另一個文件夾

File::Copy 主要提供了copy和move函數#!/usr/bin/perluse strict;

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

 

注意哦，上面刪除文件用的是rmdir()，這個要求必須是空文件夾才可以刪除；

實話說，這個空文件夾的刪除用的實在是少啊；

所以，安利remove_tree，可以移除非空文件夾；

但是需要導入模塊File::Path；

也就是在程序開頭加入:use File::Path qw（make_path remove_tree）