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

 

 

來自：http://yixf.name/2011/04/26/perl%E8%AF%BB%E5%8F%96%E6%96%87%E4%BB%B6%E4%B8%89%E6%B3%95/