perl从文件中读取数据并输出的实现代码

2020-10-31 15:18:29

字体：大中小

来源：转载

供稿：网友

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:/>

上一篇：perl高级排序，&lt;=&gt;操作符，飞船操作符

下一篇：perl处理csv文件的小例子