在本章中将要学习:(1)如何获得目录列表 (2)如何创建和删除文件 (3)如何创建和删除目录 (4)如何获取关于文件的信息。
一、获得目录列表
目录句柄与文件句柄的不同之处是:文件是通过读取文件句柄获得文件的内容,而目录是通过使用目录句柄来读取目录的内容。
opendir dirhandle ,directory
在上面这个语句,dirhandle是要打开的目录句柄,directory是要读取目录的内容。
opendir(TEMPDIR, '/tmp') || die "Cannot open directory"
readdir dirhandle;
目录句柄打开后,可以使用readdir函数来读取它的内容。
closedir dirhandle;
当完成目录句柄的操作后,应该使用closedir函数将它关闭。
opendir(TEMP,'/tmp') || die "Cannot open /tmp: $!\n";
@FILES=readdir TEMP;
closedir(TEMP);
在上面这个代码中,整个目录被读取@FILES中。
@FILES=grep(!/^\.\.?$/, readdir TEMP);
排除 . 和 ..
若要获得带有特定扩展名的全部文件,可以使用下面代码
@FILES=grep(/\.txt$/i, readdir TEMP);
readdir返回的文件名并不包含opendir使用的路径名。因此以下代码可能有问题
opendir(TD, '/tmp') || die "Cannot open /tmp: $!\n";
while($file=readdir TD) {
open(FILEH, $file) || die "Cannot open $file: $!\n";
}
closedir(TD);
正确的代码应该改成 open(FILEH,'/tmp/$file')
==========================================
二、Globbing
读取目录中的文件名的另一种方法是使用globbing
glob的模式与正则表达式的模式不同
? 单个字符 f?d fud fad
* 任何数据的字符 f*d fod food
[chars] 用于匹配任何一个chars f[ou]d fod fud
{a.b,.....} 既可以匹配字符串a,也可以匹配b f*{txt,doc}用于匹配以f开头的,以txt或doc结尾的文件。
@a=glob('/tmp/*');
print "@a\n"; 返回/tmp/a /tmp/b 显示目录名和文件名,而readdir不能。
@file=glob('/usr/include/*.h');
@curfiles=glob('*1999*.{txt,doc}')
$count=1;
while($name=glob('*')) { 读取当前目录下的所有文件和目录
print "$count . $name\n";
$count++;
}
下面是使用glob与opendir/readdir/closedir之间的差别;
glob只能返回有限数量的文件,而readdir则不存在这个问题。
glob返回模式中使用的路径名,而readdir则不能。
perl提供另外一种方法,用于编写模式glob。 只需要将模式放入<>中。
@a=<*.c>
chkdir newdir; chdir函数将当前工作目录改为newdir。chdir对目录的改变时暂时的,一旦perl程序执行完毕,就返回之前的目录。
=========================================
三、创建和删除目录
print "Directory to create?";
my $newdir=<STDIN>;
chomp $newdir;
mkdir( $newdr, 0755) || die "Failed to create $newfile: $!\n";
rmdir pathname 可以删除目录
rmdir($newdir);
rmdir函数只删除完全是空的目录。
=====================================
四、删除文件
unlink list_of_files;
unlink @badfiles;
$erased=unlink 'old.exe' , 'a.out';
unlink ;
若要检查文件列表是否已被删除,必须对想要删除的文件数量与已删除的文件数量进行比较。
@files=<*.txt>;
@erased=unlink @files;
if ($erased != @files) {
print "Files failed to erase: ";
join(',' , <*.txt>),"\n";
}
在上面这个代码中,被unlink删除的文件数量存放在$erased中。
=====================================
五、给文件改名
rename oldname, newname;
if (! rename "myfile.txt", "archive.txt") {
warn "Could not rename myfile.txt: $!";
}
======================================
六、了解文件的所有信息
可以使用perl的stat函数
@stuff=stat('file');
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,
$mtime,$ctime,$blksize,$blocks)=stat('outfile')
本文出自 “我的地盘听我的” 博客,转载请与作者联系!