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;