perl从文件中读取数据并输出的实现代码
- 作者: 迷恋你的小嘴唇
- 来源: 51数据库
- 2020-08-09
perl从文件中读取数据并输出,附一个蛋白质序列的读取,有需要的朋友可以参考下
#!/bin/perl
open (PROTEINFILE,"f:\\perl\\data.txt")||die("can not open the file!");
$protein =<PROTEINFILE>;
close PROTEINFILE;
print $protein;
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:\>
推荐阅读