Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl
    my @array;
    ...
             $filtered{$split[1]}{$split[4]} = "1\t$split[1]\t$split[2]";
             }
    }
    
  2. or download this
    use strict;
    use warnings;