Help for this page

Select Code to Download


  1. or download this
    my $string = quotemeta shift;
die "Not a valid nucleotide sequence" if $string =~ /[^AGTC]/;
  2. or download this
    my $string = "TGAT";
my @nts = map { 
    my $tmp = $string;
...
{
    print "Matched $1 ending at position ", pos $sample, "\n";
}
  3. or download this
    @_=qw;
Just another Perl hacker,;
;$_=q=print
"@_"= and eval;