[Perl]如何複製檔案及目錄
use File::Copy; copy('file1.txt','file2.txt') or die "can't copy: $!\n";
複製目錄
sub copy_dir{ my $source = $_[0]; my $target = $_[1]; use File::Copy; opendir(DIR,$source); while(my $filename = readdir(DIR)){ if(-f "$source/$filename")){ copy("$source/$filename","$target/$filename") or die "can't copy: $!\n"; } } close(DIR); }
No comments yet.