Help for this page

Select Code to Download


  1. or download this
    my %h1;
    while (<ONE>) {
    ...
    while (<TWO>) {
      /^(\d)+\s+(.+)/;
      printf "Match: %s\t%s\n", $1, $2 if exists $h1{$1};