monicholas的专栏

#! /usr/bin/perl use Bio::SeqIO; my $in=Bio::SeqIO->new(-file=>'/home/XXX/XXX/all.pep.fa',-format=>'fasta'); my $i=0; while((my $s=$in->next_seq)&&($i {  my $id=$s->id; my $seq=$s->seq; $i++;

#!/usr/bin/perl   2 use DBI;   #启用DBI接口   3 use strict;   4   5 my $dbh = DBI->connect("DBI:mysql:host=localhost",   6                              "root", "PWD",{'RaiseError' => 1});   7 #建库  

open(F1,'  my $a=$/;  undef $/;  my  $s=;  $/=$a;