Help for this page

Select Code to Download


  1. or download this
    open (Mer, "Extracted.c")
%vars;
...
  $vars{$mer} = 1;
}
print "$_" foreach(keys %vars);
  2. or download this
    open (Mer, "Extracted.c")
%vars;
...
  $vars{$mer} = 1;
  print $mer;
}
  3. or download this
    use strict;
use IO::File;
...
while my $mer (<$Mer>) {
...
}