如何用perl实现文件的拷贝删除？

linlin326 2004-09-27 10:58:53

例如我有个文件在export/home/ww/ww.xml下
要把这个文件拷在export/home/linlin/ww.xml下，然后删除export/home/ww/ww.xml
小弟在线急等谢谢

...全文

92 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

yourway 2004-09-27

打赏
举报

回复

可以直接调用shell的mv命令呀。
system("mv export/home/ww/ww.xml export/home/linlin/ww.xml");
或者：
`mv export/home/ww/ww.xml export/home/linlin/ww.xml`;

一些基本的CD命令，适合新手……

Perl 的文件操作

当时需要处理simulink模型，而我当时的M脚本水平比较差，Perl的水平也不高，于是就把两部分功能糅合到了一块儿来使用。而且，从自己自学参考的教程中抄了一段我至今也没怎么学会的代码（如今有些不想学了，因为我掌握更为简单易懂又易写易维护的方式）。以我现在的水平，断然不会写出那么差劲儿的代码。虽说那段代码能够正常使用，不过维护总还是需要的，不知道我给现在的那个倒霉蛋留下了这个随时肯能钻出马蜂的马蜂窝。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...

以下三个是核心包提供的 1 unlink @files 删除指定的文件集合参数：文件集合返回：删除的文件数 2 rmdir FILENAME 删除指定的目录参数：目录名返回：成功时为true，失败时为false，错误信息存储于 $_中注：该函数只能删除空目录，即该目录内没有文件和子目录 3、mkdir FILENAME,MASK 创建目录参数：...

2,204

社区成员

4,518

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章