perl從檔案中讀取資料並輸出的實現代碼_perl

window下讀取某個檔案，格式是：
open (filehand,"路徑e.g：d:\\data.txt"); 

然後將開啟的內容賦值給一個變數：
$protein=<filehand>; 

附：一個讀取蛋白質序列的程式。

複製代碼 代碼如下:

#!/bin/perl
open (PROTEINFILE,"f:\\perl\\data.txt")||die("can not open the file!"); 
$protein =<PROTEINFILE>; 
close PROTEINFILE; 
print $protein;

結果如下：
F:\>perl\a.pl 
MNIDDKLEGLFLKCGGIDEMQSSRTMVVMGGVSGQSTVSGELQDSVLQDRSMPHQEILAADEVLQESEMRQQDMISHDEL 
MVHEETVKNDEEQMETHERLPQGLQYALNVPISVKQEITFTDVSEQLMRDKKQIR 

F:\>