Help for this page
#!/usr/bin/env perl -l ... join '', map $code{substr $_[0], $_*3, 3}, 0..length($_[0])/3- +1 } }
ATGCCCGTAC => MPV GCTTCCCAGCGC => ASQR
sub f { state $static_var = ... ... do something with $static_var here ... }
{ my $static_var; BEGIN { $static_var = ... } sub f { ... do something with $static_var here ... } }
{ my $static_var; BEGIN { $static_var = ... } ... sub g { ... do something with $static_var here ... } }
www.com | www.net | www.org
No recent polls found