perl读写文件的几个小例子，供大家学习参考。
1）文件读取的3中方法
复制代码 代码如下:
#按行读，存入标量
while (<FILE>) { print; }
#按行读，存入数组
@array = <FILE>;
#读入整个文件 ，存入标量
$string = do { local $/; <FILE>; };
2）读文件实例
复制代码 代码如下:
open (EP,"/etc/passwd");
while (<EP>) {
chomp;
print "I saw $_ in the password file!n";
}
3）读写文件实例
复制代码 代码如下:
open(IN,$a) || die "cannot open $a for reading: $!";
open(OUT,">$b") || die "cannot create $b: $!";
while (<IN>) { # read a line from file $a into $_
print OUT $_; # print that line to file $b
}
close(IN) || die "can't close $a: $!";
close(OUT) || die "can't close $b: $!";
