求一个用perl语言写的程序

这个用bioperl来做非常简单，但有一些模块需要你自己安装。这就需要你熟悉cpan上模块的安装。或者参见我空间里bioperl安装的内容。

这里直接用到的就是Bio::SeqIO module,但它可能依赖于一些相关模块，所以最好装全bioperl。

装好之后就可以用下面的script。

#!/usr/bin/perl # the directory of you perl binary file

use strict;

use warnings;

my $in = Bio::SeqIO->newFh(-file => "inputfilename" ,

-format => 'swiss');

my $out = Bio::SeqIO->newFh(-file => "outputfilename",

-format => 'fasta');

print $out $_ while <$in>;

# 注意根据你的需要改变-file和-format的参数值。

# good luck

open SRC, "slyM82srna" or die "Can't open file";

my ( %type, $count) ;

while ( ! eof SRC ) {

my $rna_type = <SRC>; <SRC>;

$type{ (split/_/,$rna_type)[2] } ++ ;

++$count;

}

close SRC;

print "How many RNA = $count$/" ;

print "How many types = " , scalar ( keys %type ) ;

perl 的图形有两种玩法, Tk 和 Tkx Tk 是纯 Perl 的, 但能用的 widget (即那些 button, menu, scrollbar )比较少; Tkx 则需要你先装有 Tcl/Tk , 但能用的 widget 比较多 一个最简单的例子就是

use Tk; # 导入 tk 模组

use strict;

my $mw = MainWindow->new; # 创建窗口

my $labelObj = $mw->Label(-text => 'Hello, world!'); # 创建一个 label 物件

$labelObj ->pack; # pack() 是将物件程现的方法, 你再翻翻书, 还有 grid() 和 place() 的风格

$mw->Button(

-text => 'Quit',

-command => sub { exit },

)->pack;

MainLoop; # 每个 tk 程序都要等到呼叫 MainLoop 才会出现

最後, 你还得知道一个(差不多)每个物件都会的方法, 叫 configure, 你会以此对物件进行重新定义, 或附加设定

你的源码应该没有太大问题，除了else写成了eles。所以你帖的源码与你的执行码应该是不同的。在这里问程序相关的问题，要用复制粘帖的形式，因为很可能哪些少了一个符号就造成了运行错误。

至于有多个>chr1的形式，是因为你打开文件时使用了append的形式，每次会在原文件后面添加新内容，所以你程序执行了多次，就出现了多个这个内容。

以上就是关于求一个用perl语言写的程序全部的内容，包括:求一个用perl语言写的程序、一个关于Perl语言编程的具体问题。、如何使用Perl语言在windows下编写图形化窗口程序啊，求大师，最好给个例子瞅瞅等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！