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: $!";