Help for this page

Select Code to Download


  1. or download this
    my $inFile = shift; 
open (IN, "$inFile");
$/ = ">";
...
chomp $record; 
my ($defLine, @seqLines) = split /\n/, $record;
my $sequence = join('',@seqLines);
  2. or download this
    use CGI qw(:cgi-lib :standard);
print "Content-type: text/html\n\n";
my $seq = param('sequence');
$/ = ">";
chomp $seq; 
my ($defLine, @seqLines) = split /\n/, $seq;