Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
}

print "$_ => $matches{$_}\n" for sort keys %matches;
  2. or download this
    F_00034 => G_00162
F_00035 => G_00163
F_00036 => G_00164
  3. or download this
    use strict;
use warnings;
...
$sth->execute ();

print "$_->{ci} => $_->{ur}\n" while $_ = $sth->fetchrow_hashref ();
  4. or download this
    F_00034 => G_00162
F_00035 => G_00163
F_00036 => G_00164