perl 文件[四]

-e 文件是否存在

-s 是否为空

文件操作
glob  

@a=glob("*.txt") 返回与模式匹配的所有文件目录。如果赋值给简单变量则一次只返回一个文件.

参数可以是文件名或目录

只能接受有限的文件数,报文件太多错误。用shell来执行的,因为用shell用来解释执行,故运行速度慢。

另一种形式是@a=<*.txt>,是古老的用法,推荐用glob

? 匹配单个字符

* 任何数目的字符

[ab]ab 中的任一个

{a,b.....}匹配a或b，a,b可以不是单字符,如{txt,doc}

truncate(file,length):将文件的长度减少到length字节.如果文件长度已经小于length，

则不做任何事。其中filename可以为文件名,也可以为文件变量。

rename(old,new)成功=1 可以从一个目录移动到另一个目录。不检查new是否存在,可能破坏文件


#!/usr/bin/perl
rmdir(aa) || die $!;
[oracle@jhoa 13]$ perl a1.pl 
Directory not empty at a1.pl line 2.

rmdir :用于删除空目录