SPUG: Diff keys(%hast0) with keys(%hash1) both ways ?

[Ivan Heffner]

# For Verbosity's Sake
# Get a list of all tests were run
my @tests = ( keys( %dirtytests ), keys( %cleantests ) );

# iterate over the tests, giving dirty / clean counts for each
for my $test ( @tests) {
    my $dirty = $dirtytests{ $test } || 0;      # avoid the warning
    my $clean = $cleantests{ $test } || 0;      # avoid the warning

    # gives a line that looks like 'foo:0_0'
    printf "%s:%d_%d\n", $test, $dirty, $clean;
}

--
Ivan Heffner
Sr. Software Engineer
DAS Lead
WhitePages.com