Perl学习笔记（2）

haoman

　　在本章中将要学习：(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=
　　chkdir  newdir;   chdir函数将当前工作目录改为newdir。chdir对目录的改变时暂时的，一旦perl程序执行完毕，就返回之前的目录。
　　=========================================
　　三、创建和删除目录
　　print  "Directory to create?";
　　my  $newdir=;
　　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=;
　　@erased=unlink @files;
　　if ($erased != @files) {
　　print "Files failed to erase: ";
　　join(',' , ),"\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')