perl怎么拷贝一个文件到另一个文件夹中或者怎么拷贝文件夹到另一个文件夹

Posted 2020-09-22 小方666

File::Copy 主要提供了copy和move函数#!/usr/bin/perluse strict;

use warnings;
use File::Copy;
my $filein=$ARGV[0];
my $fileout=$ARGV[1];
#copy($file1, $dir1);将文件$file1复制到文件夹$dir1中；
copy($filein,$fileout) or die "copy $filein to $fileout failed\n";
#move($file2，$dir2)；将文件$file2移动到文件夹$dir2中
move($fileout,"$fileout.test") or die "mv $fileout to $fileout.txt failed\n";

#如果文件夹不存在，则创建该文件夹
if(!(-e $dir)){
　　mkdir $dir or die ;
　}

cp($dir3,$dir4);#把文件夹$dir3复制到文件夹$dir4
rename($dir4，‘dir_4‘) ;#将文件夹dir4重命名为dir_4
rmove($dir5，$dir6);#将文件夹dir5移动到dir6

 

注意哦，上面删除文件用的是rmdir()，这个要求必须是空文件夹才可以删除；

实话说，这个空文件夹的删除用的实在是少啊；

所以，安利remove_tree，可以移除非空文件夹；

但是需要导入模块File::Path；

也就是在程序开头加入:use File::Path qw（make_path remove_tree）