>>>>> "G" == GregLondon <[EMAIL PROTECTED]> writes:
G> foreach my $t (@test)
G> {
G> next unless(exists($apples{$t}));
G> print "$t not found\n" unless $apples{$t}{weight}
G> }
as i said in another post, the exists there is not needed. assuming that
all the values at the top level of %apples are hash refs, then a simple
boolean test at the top level will work just fine.
uri
--
Uri Guttman ------ [EMAIL PROTECTED] -------- http://www.stemsystems.com
----- Stem and Perl Development, Systems Architecture, Design and Coding ----
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
Damian Conway Perl Classes - January 2003 -- http://www.stemsystems.com/class
_______________________________________________
Boston-pm mailing list
[EMAIL PROTECTED]
http://mail.pm.org/mailman/listinfo/boston-pm
