#!/usr/bin/perl -Tw use Data::Dumper; my $collections; my $ccode; my %hash = ( 'a' => 'whatever', '0' => 'breaks things', '' => 'can this be' ); $collections = \%hash; print Dumper($collections) . "\n"; $ccode = undef; $collections = undef; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( defined($collections) && exists( $collections->{$ccode} ) ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = ''; $collections = undef; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( defined($collections) && exists( $collections->{$ccode} ) ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = 0; $collections = undef; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( defined($collections) && exists( $collections->{$ccode} ) ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = 'a'; $collections = undef; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( defined($collections) && exists( $collections->{$ccode} ) ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = undef; $collections = \%hash; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( defined($collections) && exists( $collections->{$ccode} ) ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = ''; $collections = \%hash; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( defined($collections) && exists( $collections->{$ccode} ) ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = 0; $collections = \%hash; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( defined($collections) && exists( $collections->{$ccode} ) ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = 'a'; $collections = \%hash; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( defined($collections) && exists( $collections->{$ccode} ) ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } print "====\n"; $ccode = undef; $collections = undef; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( $ccode && $collections && $collections->{$ccode} ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = ''; $collections = undef; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( $ccode && $collections && $collections->{$ccode} ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = 0; $collections = undef; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( $ccode && $collections && $collections->{$ccode} ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = 'a'; $collections = undef; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( $ccode && $collections && $collections->{$ccode} ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = undef; $collections = \%hash; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( $ccode && $collections && $collections->{$ccode} ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = ''; $collections = \%hash; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( $ccode && $collections && $collections->{$ccode} ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = 0; $collections = \%hash; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( $ccode && $collections && $collections->{$ccode} ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = 'a'; $collections = \%hash; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( $ccode && $collections && $collections->{$ccode} ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } print "====\n"; $ccode = undef; $collections = undef; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( defined($ccode) && $collections && ( $collections->{$ccode} ) ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = ''; $collections = undef; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( defined($ccode) && $collections && ( $collections->{$ccode} ) ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = 0; $collections = undef; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( defined($ccode) && $collections && ( $collections->{$ccode} ) ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = 'a'; $collections = undef; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( defined($ccode) && $collections && ( $collections->{$ccode} ) ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = undef; $collections = \%hash; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( defined($ccode) && $collections && ( $collections->{$ccode} ) ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = ''; $collections = \%hash; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( defined($ccode) && $collections && ( $collections->{$ccode} ) ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = 0; $collections = \%hash; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( defined($ccode) && $collections && ( $collections->{$ccode} ) ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; } $ccode = 'a'; $collections = \%hash; $s1 = $ccode // 'UNDEFINED'; $s2 = $collections // 'UNDEFINED'; if ( defined($ccode) && $collections && ( $collections->{$ccode} ) ) { print "($s1), ($s2) = TRUE\n"; } else { print "($s1), ($s2) = FALSE\n"; }