Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
warn "\n\nProcessed $. sequences";
warn "Average length: ", $totalLen / $.;
close SEQ;
  2. or download this
    [ 6:57:56.46] P:\test\demerphq>
..\406836-3 
...
Average length: 1000 at P:\test\406836-3.pl line 58, <SEQ> line 1.

[ 8:36:54.42] P:\test\demerphq>