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

Posted 小方666

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了perl怎么拷贝一个文件到另一个文件夹中或者怎么拷贝文件夹到另一个文件夹相关的知识,希望对你有一定的参考价值。

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)

以上是关于perl怎么拷贝一个文件到另一个文件夹中或者怎么拷贝文件夹到另一个文件夹的主要内容,如果未能解决你的问题,请参考以下文章

linux中怎么拷贝文件到指定目录下?

linux文件拷贝到其他机器

linux 怎么将文件拷贝到目录

将一个Linux系统中的文件或文件夹复制到另一台Linux服务器上(scp的使用)

MySQL两个数据库之间数据的拷贝

大家好!我想把linux服务器上的oracle客户端拷贝到另一台linux主机上请要考哪些文件啊 ,怎么个弄法?谢谢