[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);
}

参考网页

  • File::Copy - Copy files or filehandles
  • 发表回响

    你的电子邮件位址并不会被公开。 必要字段标记为 *