perl目录文件操作--复制,移动,重命名
来源:互联网 发布:淘宝冲洗胶卷 编辑:程序博客网 时间:2024/05/24 02:50
perl目录操作,
创建目录句柄指向要操作的目录。 打开目录句柄使用 opendir ;
opendir dirhandle,directory ;
例:取某目录下文件的列表:
opendir (e,'E:\娱乐\music\阿杜')|| die"can't open e: $!" ;
@files=readdir e;
closedir(e) ;
for($index=0;$index<@files ;$index++){
print "@files[$index]\n" ;
}
#输出指定目录下的所有文件(该目录不包含子目录)。
创建目录:mkdir
mkdir('d:\test',0755)||die "can't create directory: $!" ;
删除目录 rmdir
rmdir('d:\perl\wzj')||die "can't remove diretory: $!"; #删除之前目录必须为空。
在某一目录内找指定文件:
例:在d盘下找311.txt
use strict ;
use File::Find ;
sub wanted{
if ($_ eq "311.txt"){
print $File::Find::name ;
print "\n" ;
}
}
find \&wanted ,"d:/";
列出指定目录下所有的文件,包含子目录的内容:
use strict ;
use File::Find ;
sub wanted{
if (-f $File::Find::name){ #判断传入的是文件而不是目录。
print "remove $File::Find::name ";
print "\n";
# unlink $File::Find::name ;
}
}
find \&wanted,'E:\nero\Content' ;
查找指定目录下某类型文件:
例:查找e盘下所有exe文件
use strict ;
use File::Find ;
sub wanted{
if (-f $File::Find::name){
if ($File::Find::name =~/\.exe$/i){
print "remove $File::Find::name ";
print "\n";
}
# unlink $File::Find::name ;
}
}
find \&wanted,'E://' ;
文件复制
use File::Copy ;
use strict ;
copy("d:/book/三国演义.txt","d:/book/aa")||warn "could not copy files :$!" ;
#将d:/book/三国演义.txt复制到d:/book/aa下
文件移动
use File::Copy ;
use strict ;
move("d:/book/ss.txt","d:/book/aa")||warn "could not copy files :$!" ;
文件改名
use File::Copy ;
use strict ;
rename("d:/perl/tt.txt","d:/perl/tttttt.txt");
#将d:/perl/tt.txt改名为d:/perl/tttttt.txt
创建目录句柄指向要操作的目录。 打开目录句柄使用 opendir ;
opendir dirhandle,directory ;
例:取某目录下文件的列表:
opendir (e,'E:\娱乐\music\阿杜')|| die"can't open e: $!" ;
@files=readdir e;
closedir(e) ;
for($index=0;$index<@files ;$index++){
print "@files[$index]\n" ;
}
#输出指定目录下的所有文件(该目录不包含子目录)。
创建目录:mkdir
mkdir('d:\test',0755)||die "can't create directory: $!" ;
删除目录 rmdir
rmdir('d:\perl\wzj')||die "can't remove diretory: $!"; #删除之前目录必须为空。
在某一目录内找指定文件:
例:在d盘下找311.txt
use strict ;
use File::Find ;
sub wanted{
if ($_ eq "311.txt"){
print $File::Find::name ;
print "\n" ;
}
}
find \&wanted ,"d:/";
列出指定目录下所有的文件,包含子目录的内容:
use strict ;
use File::Find ;
sub wanted{
if (-f $File::Find::name){ #判断传入的是文件而不是目录。
print "remove $File::Find::name ";
print "\n";
# unlink $File::Find::name ;
}
}
find \&wanted,'E:\nero\Content' ;
查找指定目录下某类型文件:
例:查找e盘下所有exe文件
use strict ;
use File::Find ;
sub wanted{
if (-f $File::Find::name){
if ($File::Find::name =~/\.exe$/i){
print "remove $File::Find::name ";
print "\n";
}
# unlink $File::Find::name ;
}
}
find \&wanted,'E://' ;
文件复制
use File::Copy ;
use strict ;
copy("d:/book/三国演义.txt","d:/book/aa")||warn "could not copy files :$!" ;
#将d:/book/三国演义.txt复制到d:/book/aa下
文件移动
use File::Copy ;
use strict ;
move("d:/book/ss.txt","d:/book/aa")||warn "could not copy files :$!" ;
文件改名
use File::Copy ;
use strict ;
rename("d:/perl/tt.txt","d:/perl/tttttt.txt");
#将d:/perl/tt.txt改名为d:/perl/tttttt.txt
0 0
- perl目录文件操作--复制,移动,重命名
- 文件操作 复制移动删除重命名文件文件夹(转帖)
- 文件操作 复制移动删除重命名文件文件夹(转帖)
- PHP文件操作(文件移动和复制、删除、重命名)
- PHP文件操作(文件移动和复制、删除、重命名)
- delphi 重命名、复制、移动文件
- 重命名、移动和复制文件
- 【Unix/Linux】【命令】【文件,目录操作工具】移动,重命名文件,目录——mv命令
- perl 文件,目录操作
- perl 文件目录操作
- [API学习]删除、复制、重命名、移动文件
- VC 复制移动删除重命名文件文件夹
- VC 复制移动删除重命名文件文件夹 .
- Perl 中的文件操作:删除和重命名
- ASP.NET中的文件操作(文件信息,新建,移动,复制,重命名,上传,遍历)(亲测详细)
- Python文件管理对相应目录下的进删除、重命名、移动文件等相应操作
- Delphi 文件的操作:重命名、复制、移动、删除(制作一个信息上传控件)
- Delphi 文件的操作:重命名、复制、移动、删除(制作一个信息上传控件)
- Hive的数据类型解析和表的操作实例
- 路由器开发(二)—— 路由器工作原理
- NFC读取数据
- VRP平台总体介绍及基础配置
- html5新增标签
- perl目录文件操作--复制,移动,重命名
- Swift - UIColor使用自定义的RGB配色
- SVN不能提交.a .so 文件的解决方法
- 路由器基础知识详解
- Flume-ng的原理和使用
- CSS中position的百分比表示法及绝对定位居中
- Shell 命令大全Xhell入门
- canvas 变形记——移动、旋转、缩放、变形
- iOS-生成Bundle包-引入bundle-使用bundle