发布时间：2015-11-26 20:41:33

#!/usr/bin/perl $example = <<e>A|c21852_g1f1XXXXXX>B|10011958mXXXXXX>C|311240XXXXXX>D|AT1G01880XXXXXX............E;open IN,"<FILE";<file";<rr.faa.muscle";open OUT,">result";while (){chomp;if(/^>/){ $key =$_;}else{$hash{$key}.=$_}}foreach $line(keys %hash){ chomp$line;  .........【阅读全文】

发布时间：2015-11-26 20:39:03

#!/usr/bin/perl #open IN,'<','FILE';open OUT,">Result";while (<IN>){chomp;@arr = split(/\s+/,$_);$title = shift @arr;$num = pop @arr;$other = join("\t",@arr);     if($hash{$title}){        if ($num > $hash{$title}){    &nbs.........【阅读全文】

发布时间：2015-04-21 08:16:00

#!/usr/bin/perl -w use strict;#use Perl::Tidy;#use Getopt::Long;my ($head,%h,$key,$len,@len_arr,$total,$num,$sub_count,$first);print "input your sequence file name,then press Enter!\n";$first=<STDIN>;open IN,"<$first";while (<IN>){ chomp; if(/^>/){ $head=$_;}else{$h{$head}.=$_}}#  .........【阅读全文】

发布时间：2015-04-10 13:34:04

#####################安装 using the mysql yum repository #########yum list | grep mysql   rpm -qa|grep mysql 检查是否安装过yum install libaio### 这个下载时需要注册一下 Goto “Download MySQL Yum Repository” to download the release package forLinux 7 “mysql-community-.........【阅读全文】

发布时间：2015-04-01 11:01:42

##########################   bioperlinstall    ##############################win7 bioperl安装用cpan安装1）通过PPM安装MinGW（环境需要），输入cmd进入DOS界面，ppm installMinGW（ppm install MinGW64默认32位），事先需要安装activeperl或者strabberyperl。注意：需要考.........【阅读全文】

发布时间：2015-03-20 10:59:20

#!/usr/bin/perl -wuse strict;##############################使用方法：windows的dos界面或者linux下：perl file_name###########################my ($input_file,$head,$line,$width,%seq);print "输入文件名称，并按Enter\n";$input_file=<STDIN>;  chomp$input_file;open IN,"<$input_file";open OUT.........【阅读全文】

发布时间：2015-01-04 15:23:59

##用到的函数opendir DIRHANDLE, EXPR  # To open a directoryreaddir DIRHANDLE        # To read a directoryrewinddir DIRHANDLE      # Positioning pointer to the beginingtelldir DIRHANDLE      &.........【阅读全文】