[SOLVED] gui DNA Java Perl

Perl

Perl

2015.1

3

4

7

WindowsPerl

11

perl

13

perl

15

perl

18

perl

20

perl

22

perl

24

perl

Perlperlperl8

20151

1

WindowsPerl

windowsPerl

Perl

Perl
1 win 95/98InstMsi.exe
WIN NTWinntInstMsi.exeInstMsi.exeInstMsi.exe ActivePerl

nstMsi.exeWIN 2000/XP
InstMsi.exe (for NT)
InstMsi.exe (for 9x)
2perlActivePerlFor Win, ActivePerl V5.8.8 for Windows
c:perlbin
cmdc:cd perlcd binPerl.exe

3

#!c:/perl/bin/perl

use strict;
{
print hello perl world, test success!
;
}

test.plperl test.plhello perl world, test success! ,

apache+perl5.8.exeperl

bioperl
1http://www.bioperl.org/wiki/Installing_BioPerl
To install ActivePerl:
1) Download the ActivePerl MSI from ActiveState

2) Run the ActivePerl Installer (accepting all defaults is fine).

GUI Installation
1) Start the Perl Package Manager GUI from the Start menu.

2) Go to Edit >> Preferences and click the Repositories tab. Add a new repository for each of the following (note the difference based on the perl version):

Repositories to add

3) Select View >> All Packages.
4) In the search box type bioperl.

5) Right click the latest version of Bioperl available and choose install. (Note for users of previous Bioperl releases: you should not have to use the Bundle-BioPerl package anymore.)

5a) From bioperl 1.5.2 onward, all optional pre-requisites will be marked for installation. If you see that some of them complain about needing a command-line installation (eg. XML::SAX::ExpatXS), and you want those particular pre-requisites, stop now (skip step 6) and see the Command-line Installation section.

6) Click the green arrow (Run marked actions) to complete the installation.

2
use Bio::Seq;
use Bio::SeqIO;

# create a sequence object of some DNA

my $seq = Bio::Seq->new(-id => testseq, -seq => CATGTAGATAG);

# print out some details about it

print seq is , $seq->length, bases long
;

print revcom seq is , $seq->revcom->seq,
;

# write it to a file in Fasta format

my $out = Bio::SeqIO->new(-file => >testseq.fsa, -format => Fasta);

$out->write_seq($seq);

perlbioperl

1
perl

perl

Perl

Perl

perl5

Perl

Perl
Perl
Perl
Perl
perlperl

perl

23

perl

perl

Perl

Perl

4perl

1
2
3
4
5/
6
7poppushshiftunshiftsplicereversesort

8

perl

4

perl

Perl

Perl

Perl

1 +
2 [][^]
3 *?
4
5
6
7
8
9
10
11
12
13
14
15

1(g)
2(i)
3(m)
4
5
6

1
2
3
4
Perl

perl

perl

Perl

Perl

Perl

A Perl

1while
2until
3for
4()foreach
5do
6
7goto

BPerl

1&
2
3
4do

1
2

perljavac

perl

Perl

Perl

Perl

1()
2
3

perl

perl

Perl

Perl

Perl

1
2
3
4

printf

perl

perl

Perl

Perl

Perl

perl