Hello

I somehow lost a final version of a simple Perl script to compare 2 lists, and cannot seem to figure out what is causing a problem with the version I have.

The simple .pl script takes ListL.txt, compares it to ListH.txt, and then "Flags" any entries from ListH.txt that are on ListL.txt (plus gives two separate Counts at the bottom of the output). Using two short sample lists, the Counts are both correct, but for some reason one of the ListL.txt items that *should* show a ListH.txt "Flag" in the output does not. I've tried switching around Count statements, etc., but am completely baffled. Any insight as to how to fix things would be greatly appreciated.

Here's the short code


use strict;  
use warnings;  
my %H_list;  

open my $H_list, '<', 'listH.txt' or die "Cannot open listH.txt: $!"; 
+ 
while (my $line = <$H_list>) { 
    chomp $line; 
    $line =~ s/\r//g; # removes windows CR characters 
    $line =~ s/\s+$//; # removes trailing white spaces 
    $H_list{$line} = 1 
}  
close $H_list;  

my ($L_count, $H_count); 
open my $L_list, '<', 'listL.txt' or die "Cannot open listL.txt: $!"; 
+ 
while (<$L_list>) {  
    chomp;  
    s/\r//; 
    s/\s+$//; 
    $L_count ++; 
    print;  
    $H_count ++ and print ' On List H' if exists $H_list{$_};
    print "\n";  
} 

print "List L UNIQUES: $L_count; FLAGGED From List H: $H_count \n";

[download]

Here are the two short Test Lists and Test output:

(ListL.txt)
ABC123
DEF456
GHI789

(ListH.txt)
ABC123
GHI789

(Test Output)
ABC123
DEF456
GHI789 On List H
List L UNIQUES: 3; FLAGGED From List H: 2

[download]

As you can see, ABC123 should be also "Flagged" as "On List H", and is driving me NUTS as to why not.

Thanks very much.

-perlmonkster

In reply to List comparison problem by perlmonkster

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.