Perl深拷贝

使用mkdir可以创建一个目录，但只能创建一个目录。

使用mkpath则可以创建连续的子目录。在linux下使用cp -p同样可以实现同样的功能。 再使用File::Copy来拷贝。

use File::Path; 
use File::Copy;
sub writeSubFolder
 {
       my $root = 'E:/perl_work/'; 
       my $toDir = "project/pages/test/test.jpg" ; 
       my $fileName = "tmp/test.jpg"; 
       $toDir =~ m|(.*)/.+$| ; 
       my $subFolder = $1; 
       print "creating $subFolder"; 
       if( chdir($root) ) 
      { 
           mkpath($subFolder) or die "createFolder error!" unless( -e $subFolder ); 
          copy($fileName , $subFolder) or die "copy error"; 
       } 
}