window下讀取某個(gè)文件，格式是：
open (filehand,"路徑e.g：d://data.txt"); 

然后將打開的內(nèi)容賦值給一個(gè)變量：
$protein=<filehand>; 

附：一個(gè)讀取蛋白質(zhì)序列的程序。

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

結(jié)果如下：
F:/>perl/a.pl 
MNIDDKLEGLFLKCGGIDEMQSSRTMVVMGGVSGQSTVSGELQDSVLQDRSMPHQEILAADEVLQESEMRQQDMISHDEL 
MVHEETVKNDEEQMETHERLPQGLQYALNVPISVKQEITFTDVSEQLMRDKKQIR 

F:/>