perl中的几种文件操作

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;