dr2tr 发表于 2013-1-27 05:06:40

perl手册学习摘记3

open (filevar, filename),其中filevar为文件句柄
在PERL中有三种访问模式:读、写和添加
写模式将原文件覆盖,原有内容丢失,形式为:open(outfile,">outfile");而添加模式则在原文件的末尾处继续添加内容,形式为:open(appendfile, ">>appendfile")。默认为读方式打开。
 常用:open (MYFILE, "file1") || die ("Could not open file");
  当文件操作完毕后,用close(MYFILE); 关闭文件。
语句$line = <MYFILE>;从文件中读取一行数据存储到简单变量$line中并把文件指针向后移动一行。<STDIN>为标准输入文件,通常为键盘输入,不需要打开。
  语句@array = <MYFILE>;把文件的全部内容读入数组@array,文件的每一行(含回车符)为@array的一个元素。

写文件
  形式为:
    open(OUTFILE, ">outfile");
    print OUTFILE ("Here is an output line.\n");

文件测试操作符
  语法为:-op expr,如:
  if (-e "/path/file1") {
    print STDERR ("File file1 exists.\n");
    }

文件测试操作符
                        操作符            描述                        -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             是否只有"真正的用户"可执行                         注:“真正的用户”指登录时指定的userid,与当前进程用户ID相对,命令suid可以改变有效用户ID。         
页: [1]
查看完整版本: perl手册学习摘记3