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:>perla.pl
MNIDDKLEGLFLKCGGIDEMQSSRTMVVMGGVSGQSTVSGELQDSVLQDRSMPHQEILAADEVLQESEMRQQDMISHDEL
MVHEETVKNDEEQMETHERLPQGLQYALNVPISVKQEITFTDVSEQLMRDKKQIR

F:>

perl高级排序，<=>操作符，飞船操作符
按照要求进行的排序：#!/bin/perl@number=qw/5101532486/;my@descending=sort{$a=$b}@number;#这里$a=5,$b=10,因为$a在前，perl得到的结果是小数在前，也就是升序排列print"@des

perl的格式化输出及chomp的重要性分析
#!/bin/perlprint"pleaseinputsomelines,thenpressCtrl+Z.n";chomp(@s=STDIN);print"1234567890"x3."n";#做为输出结果的一个标尺foreach$s(@s){printf"%20sn",$s;#输出的格式为右对齐，所

perl子程序的运用及子程序中变量私有(my)声明的重要性
一个转换程序，简单的把DNA序列中的A转变成T，第一种情况没有使用私有变量。#!/bin/perl#下面是一段DNA序列$DNA=ATTATATAT;#这里是我们的序列$result=A_to_T($DNA)