Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
MA01001A1A04.f1 300 145334669 DNA
MA01001A1B22.f1 580 77745475 ra
MA01001A1B22.f1 580 30409730 ra
  2. or download this
    while (<DATA>){
    if (!m/^(\S+)/){
...
    } 
    print unless $seen_words{$1}++;
}