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)