![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
perl
monicholas
这个作者很懒,什么都没留下…
展开
-
bioperl
#! /usr/bin/perluse 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++;原创 2014-08-02 18:07:37 · 445 阅读 · 0 评论 -
perl mysql
#!/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 #建库原创 2014-08-02 18:06:45 · 557 阅读 · 0 评论 -
perl 一次读入整个文件
open(F1,' my $a=$/; undef $/; my $s=; $/=$a;原创 2014-08-02 18:02:43 · 885 阅读 · 0 评论