perl学习笔记（五）文件句柄

---

前言

本文主要记录perl学习过程中的文件句柄。

---

5 文件句柄

5.1 读文件

读取文件，并打印每一行的信息。

if(! open MYFILE, "<", "a.txt") { #打开一个文件句柄，作为输入，文件名是a.txt
    die "Cannot open file: $!"; # 打印错误信息并退出
}
while(<MYFILE>){
    print $_;
}
close MYFILE;

5.2 写文件

写入文件。

if(! open FILE, ">", "b.txt") {  #打开一个文件句柄，作为输出，文件名是b.txt
    die "Cannot open file: $!";# 打印错误信息并退出
}
print FILE "Hello Perl!\n";
close FILE;

if(! open FILE, ">>", "b.txt") {#打开一个文件句柄，作为追加输出，文件名是b.txt
    die "Cannot open file: $!";# 打印错误信息并退出
}
print FILE "Hello Perl again!";
close FILE;

---

总结

本文主要记录一下如何利用perl操作文件句柄进行读写文件操作。