1 perl中复制文件
use File::Copy;
copy( $original, $new_copy ) or die "Copy failed: $!";
2.从一个路径中提取文件名,或者把文件的路径跟文件名分开保存在两个变量中
use File::Basename qw<basename dirname>;
my $filename = basename $file_with_full_path;
my $dirname = dirname $file_with_full_path;
3 用Perl以追加方式写文件
用 >> open my $fh,">>","test.txt"; #do sth... closr $fh;