perl学习笔记七----文件

 文件和文件夹
一 打开/关闭文件
   open(file_handle,"file_path")
   close(file_handle)
   
二 读文件
语句＄line = <MYFILE>;从文件中读取一行数据存储到简单变
量＄line中并把文件指针向后移动一行。
语句@array = <MYFILE>;把文件的全部内容读入数组@array，
文件的每一行(含回车符)为@array的一个元素。

三 写文件
open(file_handle,">file_patch")写入的数据覆盖原先的数据
open(file_handle,">>file_patch")写入的数据追加原先的数据后
写入
print file_handle data

四 文件测试
语法 if（-para file）
para有如下几种：
-b 是否为块设备 
-c  是否为字符设备  
-d  是否为目录  
-e  是否存在  
-f  是否为普通文件  
-g  是否设置了setgid位  
-k  是否设置了sticky位  
-l  是否为符号链接  
-o  是否拥有该文件  
-p  是否为管道  
-r  是否可读  
-s  是否非空  
-t  是否表示终端  
-u  是否设置了setuid位  
-w  是否可写  
-x  是否可执行  
-z  是否为空文件  
-A  距上次访问多长时间  
-B  是否为二进制文件  
-C  距上次访问文件的inode多长时间  
-M  距上次修改多长时间  
-O  是否只为“真正的用户”所拥有  
-R  是否只有“真正的用户”可读  
-S  是否为socket  
-T  是否为文本文件  
-W  是否只有"真正的用户"可写  
-X  是否只有"真正的用户"可执行  

五 打开/关闭目录
opendir(dir_handle,"patch")
close(dir_handle)

六 读取目录
@file=readir(dir_handle)