Help for this page

Select Code to Download


  1. or download this
    if ($content->{Addresses}{ArrayOfAddressResponse}{AddressResponse} =~ 
+/HASH/) {

foreach my $response ( keys %{$content->{Addresses}{ArrayOfAddressResp
+onse}} ) {
...do stuff...
  2. or download this
    if ( $content->{Addresses}{ArrayOfAddressResponse}{AddressResponse} =~
+ /ARRAY/) {

foreach my $response ( @ {$content->{Addresses}{ArrayOfAddressResponse
+}{AddressResponse}} ) {
  3. or download this
            print "street: $response->{Street}<br>";
        print "street2: $response>{Street2}<br>";
        print "apt: $response->{UnitNumber}<br>";