in reply to Hash Nightmare

@keys = ("key1","key2,"key3","key4");
foreach $key (@keys) {
    print "$key\n";
    print "$hash1{$key} , \$hash1\n";
    print "$hash2{$key} , \$hash2\n";
    print "$hash3{$key} , \$hash3\n";
    print "$hash4{$key} , \$hash4\n\n";
}

[download]
I think this should work. But no guarentees.

- p u n k k i d
"Reality is merely an illusion, albeit a very persistent one." -Albert Einstein

Replies are listed 'Best First'.
(zdog) RE: (2) Hash Nightmare
by zdog (Priest) on Oct 06, 2000 at 21:11 UTC
    All the keys in each hash are the same so couldn't you do the following:

    foreach (keys %hash1) {
   ...  # here you would use $_ as the variable for the keys
}

    [download]
    This eliminates the creation of the @keys and $key variables. Hope that helps.

    Zenon Zabinski | zdog | zdog7@hotmail.com

[reply]
[d/l]

In Section Seekers of Perl Wisdom