Help for this page

Select Code to Download

Select or download this

$hash = { 'foo.bar' => 'foo.bar_v', 
          'foobar'  => 'foobar_v' 
...
print $hash->{foo.bar};
__DATA__
foobar_v   <-- note we have lost the . in the key so get the wrong val
+ue

Select or download this

$VAR1 = 
{ 
...

print "Response: ", $VAR1->{'wellmed'}->{'wellmed.ack'}->{'wellmed.res
+ponse'},
      "\nErrors: ", $VAR1->{'wellmed'}->{'wellmed.ack'}->{'errors'},