Perl檔案操作學習筆記

if (open(MYFILE, "E:\\Perl\\Code\\string.pl")) {
   print("success open the file\n");
############################################
#output all of MYFILE's content 1
############################################
    print(<MYFILE>); 
print("=========1=========\n");
############################################
#output all of MYFILE's content 2
############################################
@array = <MYFILE>;
foreach $i (@array) {
 print ($i); 
}
print("========2==========\n");
############################################
#output the first line of MYFILE's content
############################################
$line = <MYFILE>;
print($line);
print("========3==========\n");
}else{
    die ("cannot open input file E:\Perl\Code\string.pl\n");
};
# <MYFILE>的左值其實是個指標，如果運行了 print(<MYFILE>); 剩下的兩步將每人任何輸出，因為指標已經走到了檔案尾。
# 運行了@array = <MYFILE>;也是一樣的， print($line);將不會有任何輸出