Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
    
    ...
    close $data_fh;
    
    print for @output;
    
  2. or download this
    123 string 1
    111 string 1
    ...
    777 string 3
    888 string 3
    999 string 3
    
  3. or download this
    123 string 1
    111 string 1
    
  4. or download this
    111 string 1
    123 string 1
    
  5. or download this
    123 string 4
    111 string 4
    
  6. or download this
    while (<$ref_fh>) {
        chomp;
    ...
        next unless $ref_left{$left} or $ref_right{$right};
        ++$ref_right{$right};
    }