Posted on 07-08-2008
Filed Under (技术) by waterlin

在Perl中如果需要写有关文件移动或是拷贝的命令,可以使用kurila-1.11_0下面的File::Copy模块来实现这个功能。

使用起来相当的简单与灵活:

use File::Copy;

copy(“file1″,”file2”) or die “Copy failed: $!”;
copy(“Copy.pm”,\*STDOUT);
move(“/dev1/fileA”,”/dev2/fileB”);

use File::Copy “cp”;

$n = FileHandle->new(“/a/file”,”r”);
cp($n,”x”);

© 2008, 浏忙大爆炸. All rights reserved.
除非注明,浏忙大爆炸文章均为原创,转载请以链接形式标明本文地址。

Comments

[…] 如果要方便移植的话,还是推荐多用一用cpan的包,比如这里就应该用File::copy来实现拷贝和移动文件的功能。不过,如果使用你脚本的人,没有安装这个File::copy包,也会碰到一系列的问题。 整个 Yo2 上的相关文章:使用Perl连接Mysql数据库 String Trim in perl 在zeus下配置mod_perl [Perl笔记] 使用 IO::String 将字符串变成文件句柄 在vim中使用perltidy美化perl代码 printYo2FavControl(“”,””,”Perl命令System的使用与Shell的关联很紧密”,”今天在写Perl脚本的时候,碰到一个语句: system (“copy /y $XMLInputFile  $UpdatedXMLFile”) == 0 or die “$!n”; 刚开始没注意,在Cygwin下死活执行不了,提示错误说: $ perl IntruShieldSigUpdate_v1.pl input.txt No such file or directory 后来想到了,可能copy只是Windows才有的命令,于是切换到Windows Command Li”);最近阅读过此文章的网友:     Read More    Post a Comment […]


[…] 1) 先把目录打包,再把File::copy来复制这个打成包的文件到目的地,再解压。 […]


Post a Comment
Name:
Email:
Website:
Comments: