八、Perl文件操作

1、Perl句柄

• 句柄的定义
  • Perl通过句柄和“外面”的世界连接
  • 句柄是一个顺序号，对于打开的文件是唯一的识别依据
  • 是一种特殊的“数据类型”
  • 间接文件句柄
    • 任何有效的Perl标识符，由大小写字母、数字和下划线字符组成
    • 不同于其他变量的是，简洁Perl文件句柄没有标志性的前缀
    • 经常以全部大写字母表示他们
    • 输入输出句柄：STDIN, STDOUT和STDERR
• 输入输出句柄
  • STDIN
    • 标准输入，默认的输入间接Perl文件句柄
    • 文件句柄读取的数据取自用户选择的输入设备，通常是键盘

print "please input the data\n";
my $data = <STDIN>;
print "The data is $data\n";

• STDOUT
  • 标准输出，默认的输出间接Perl文件句柄
  • 发送给该句柄的数据在用户指定的输出设备上显示，通常为命令窗口

print "Here is the example\n";
print STDOUT "Here is the example";

• STDERR
  • 标准错误，用于错误信息、诊断、调试和其他类似的偶发输出
  • 默认情况下，STDERR和STDOUT使用相同的输出设备

use warnings;
my $data1 = "abc";
my $data2 = abc;  ## error
print $data1;
print $data2;

• 自定义句柄
  • 由用户自己指定文件，获取该文件的标识

2、打开文件

• 使用open函数打开文件

  • 语法：open(filehandle, pathname)
  • 第一个参数为文件句柄
  • 第二个参数为文件路径名
  • 打开成功，返回一个非0值，否则返回一个undef（假）
  • 路径名：
    • 不指定路径名时，默认使用当前目录下的文件
    • 若要打开位于另一个目录中的文件，必须使用路径名

    • 设定路径名时，需要根据操作系统而定

      image.png

• 编程习惯

  • 编写程序时，不可盲目自信
  • 为了避免致命错误，应该进行防错性编程
  • 使用文件句柄时，应确保操作成功后再进行下一步
  • die函数：
    • 在Perl中，die函数可以用来在出现错误时停止解释程序的运行
    • 并放出一条有意义的出错信息：died at scriptname line xxx
    • 语法：open(FILE, pathname) || die;或者open(FILE, pathname) or die;
    • 函数也可以带自定义的参数，这些参数将会取代默认消息被输出，die “info”
    • 使用”$!”得到系统所需要的最后一个操作的出错信息

    print "script start\n";
    open(MYFILE, "test.txt) || die "This file not exists";
    open(MYFILE, "test.txt) || die "Cannot open myfile: $!\n";
    

  • warn函数：
    • 用来发出一个警告
    • 不会终止程序的运行

       if(!open(FILE, "test.txt")){
           warn "cannot read the file: $!";
           else {
               print "start to read the file";
           }
       }
       print "here is another command\n";
      

3、读写文件

• 读入文件
  • 使用文件输入操作符（尖括号运算符、钻石符）读取文件
  • 语法：
    • open(FILE, “filename”) || die “Can’t open the file”;
    • $line = <FILE> ##读取文件

      open(FILE, "test.txt") || die "can't open the file:$!\n";
      $line = <FILE>;
      print "$line\n";
      close FILE;
      

  • 说明：
    • 尖括号运算符每次读取文件的一行输入
    • 文件读取完时，返回值为undef
    • 对于多行数据文件，需要利用循环结构来读取所有数据

      open(FILE, "test.txt") || die "can't open the file:$!\n";
      while($a=<FILE>){
          print $a;
      }
      

    • 通过数组一次接收所有输入数据（对于小文件）

      open(FILE, "test.txt") || die "can't open the file:$!\n";
      my @array = <FILE>;
      print @array;
      

• 写入文件
  • 语法:
    • open(FILE, “>pathname”) ##覆盖写入文件
    • open(FILE, “>>pathname”) ## 追加写入文件
  • 写入具体内容
    • 使用print函数
    • 语法为：print filehandle LIST
    • 注意，上面的语句中没有逗号隔开
• 关闭文件句柄
  • 使用close(FILE)
  • 每次打开一个文件句柄时，读写结束后尽量关闭文件句柄

4、文件测试运算符

• 测试文件的必要性
  • 实际的读写速度比较慢
  • 读写时容易产生错误
  • Perl提供了文件测试运算符

• 文件测试运算符

  image.png

  $myfile = "./test.txt";
  if (-w $myfile){
      print "we can write it\n";
      }
      else {
          print "we can't write it\n";
      }
  print (-s $myfile);

image.png

  $myfile = "./test.txt";
  print (-M $myfile);

参考来源：https://www.jikexueyuan.com/course/2081.html