perl怎么拷贝⼀个⽂件到另⼀个⽂件夹中或者怎么拷贝⽂件夹到
cp复制文件到指定目录下另⼀个⽂件夹
File::Copy 主要提供了copy和move函数#!/usr/bin/perl use 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,"$st") or die"mv $fileout to $ 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）

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。