Help for this page

Select Code to Download


  1. or download this
    my $fseq6 =   'CCGCGCTC';
my @nsub6 = ( 'CCGCG',
...
              '*****',
                 'CGCGC');
  2. or download this
    $result4 = [
            [ 0,'CCG--'],
...
            [ 2,'--CTC']
            [ 3,'*****'],
          ];
  3. or download this
    my $count;
my @ar;
...
}

print Data::Dumper->Dump([ \@results], ['result']);