perl 讀寫檔案

perl 讀檔案

open(FILE,"filename.txt");

my $record;

while($record=<FILE>)

{

print("file record is : $record/n");

}

close(FILE);

perl 寫檔案

覆蓋寫入

open(FILE,">filename.txt");

syswrite(FILE,"This is my write file contents/n");

close(FILE);

追加寫入

open(FILE,">>filename.txt");

syswrite(FILE,"This is my write file /n");

syswrite(FILE,"This is my write file contents /n");

close(FILE);

原文出處(點擊此處)