Help for this page

Select Code to Download


  1. or download this
    for ('A'..'Z'){
  ++$absent{$_} unless exists $prot{$_};
}
  2. or download this
    # print absent counts
for (sort keys %absent){
  printf "%s=%d\n",$_,$absent{$_};
};
  3. or download this
    #!/usr/bin/perl
use strict;
...
for (sort keys %absent){
  printf "%s=%d\n",$_,$absent{$_};
};