window下讀取某個(gè)文件,格式是:
open (filehand,"路徑e.g:d:\\data.txt");
然后將打開(kāi)的內(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:\>