Perl学习笔记（2）

在本章中将要学习：(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 "@an";?????????????????? 返回/tmp/a?? /tmp/b?? 显示目录名和文件名，而readdir不能。

@file=glob('/usr/include/*.h');

@curfiles=glob('*1999*.{txt,doc}')

$count=1;

while($name=glob('*')) {??????????????? 读取当前目录下的所有文件和目录

??????? print "$count . $namen";

??????? $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')