in reply to Re^5: Not an ARRAY reference
in thread Not an ARRAY reference

Thanks for your response, Please check my Json data one more time. This is an example. There will be 30000 data like this and i am suspecting one of the records creating an issue which JSON response had some issue, The users records under {}, under [] Its not line specific but a record under {}, under []. Will your above code works for each users JSON response? The JSON responses hold by $responsetextall[$i] 

[
          {
            'status' => 'ACTIVE',
            'activated' => '2020-04-29T17:58:43.000Z',
            'created' => '2020-04-29T17:58:42.000Z',
            '_links' => {
                          'self' => {
                                      'href' => 'https://ssoqa.abcoffi
+ce.com/api/v1/users/abcdefghijklmno55'
                                    }
                        },
            'passwordChanged' => undef,
            'lastUpdated' => '2020-11-06T19:09:08.000Z',
            'id' => '00abcdefghijklmn6',
            'lastLogin' => '2020-10-05T15:16:53.000Z',
            'profile' => {
                           'email' => 'soula.olla@abc.com',
                           'middleName' => 'Y',
                           'countryCode' => 'IN',
                           'login' => '123456789@ADSYF.SYFBANK.COM',
                           'streetAddress' => '14-45,idhaian',
                           'organization' => 'ABC Organization',
                           'employeeNumber' => '123456789',
                           'division' => 'ABC - IT',
                           'AWSrole' => [],
                           
                         },
            'type' => {
                        'id' => 'omstdyc'
                      },
            'credentials' => {
                               'provider' => {
                                               'type' => 'AD',
                                               'name' => 'AD.COM'
                                             }
                             },
            'statusChanged' => '2020-06-01T08:56:35.000Z'
          },
          {
            'id' => '00mnopqrstq6',
            'lastLogin' => ${\$VAR1->[0]{'passwordChanged'}},
            'profile' => {
                           'managerId' => '2456789',
                           'userType' => 'Contract',
                           'city' => 'Stamford',
                           'zipCode' => '00009',
                           'JobFunction' => 'IT',
                           'manager' => 'Kal, R',
                           'department' => 'IT - IN - CS&T - Client Ec
+om',
                           'displayName' => 'Bh, M',
                           'lastName' => 'Bht',
                           'streetAddress' => '7 Lo Ri Rd',
                           'email' => 'R.Kal@syf.com',
                         
                         },
            'type' => {
                        'id' => 'obcdefghijklmn5'
                      },
            'credentials' => {
                               'provider' => {
                                               'type' => 'AD',
                                               'name' => 'AD.ABC.COM'
                                             }
                             },
            'statusChanged' => '2020-04-29T17:58:49.000Z',
            'status' => 'ACTIVE',
            'activated' => '2020-04-29T17:58:49.000Z',
            'created' => '2020-04-29T17:58:47.000Z',
            '_links' => {
                          'self' => {
                                      'href' => 'https://ssoqa.abc.com
+/api/v1/users/00abcdefghijkl6'
                                    }
                        },
            'passwordChanged' => ${\$VAR1->[0]{'passwordChanged'}},
            'lastUpdated' => '2020-11-06T19:09:10.000Z'
          },
          
]

[download]
for my $i (0..$#responsetextall) {
 $responsetextall[$i] =~ s/]\[/,/g;
      for my $j (0..$#{$responsetextall[$i]}) {
      my $responseid = $responsetextall[$i][$j]{id};
           my $responsests = $responsetextall[$i][$j]{status};
                       if ($responsests ne "Deactivated") {           
+         
            run_api_call($apiurluser. $responseid . $apiurl2); 
        my @responsetext4 = parse_json ($client->responseContent());
              my $responsecode1 = $client->responseCode() ;
         for  my $m (0..$#responsetext4) {
                  for my $n (0..$#{$responsetext4[$m]}) {             
+    
             $response1 = $responsetext4[$m][$n]{id};
                                $resplable = $responsetext4 [$m][$n]{l
+abel};
                   push @mouapps, $resplable;
                  }
      }
                         my $newurl = ($apiurluser . $responseid );   
+   
                                         run_api_call($newurl);       
+ 
                                    my @responsetext1 = parse_json ($c
+lient->responseContent());
                    print Dumper @responsetext1 ;
        for my $l (0..$#responsetext1) {        
               my $response2 = $responsetext1[$l]{id};
               my $response3 = $responsetext1[$l]{profile}{firstName};
               my $response4 = $responsetext1[$l]{profile}{lastName};
               my $response5 = $responsetext1[$l]{profile}{email};
               my $response6 = $responsetext1[$l]{credentials}{provide
+r}{name};
  
  ## Wrting to the reporting file.
  
                    $worksheet->write(0, 0, 'OKTA-ID');
          $worksheet->write(0, 1, 'FIRST NAME');
                     $worksheet->write(0, 2, 'LAST NAME');
                     $worksheet->write(0, 3, 'EMAIL-ID');
                     $worksheet->write(0, 4, 'Profile-Master');
           $worksheet->write(0, 5, 'APPS');
               
     $worksheet->write($r, 0, $response2);
                $worksheet->write($r, 1, $response3);
                $worksheet->write($r, 2, $response4);
                $worksheet->write($r, 3, $response5);
      $worksheet->write($r, 4, $response6);
                                                  foreach (@mouapps) {
                                          
         local $" = '|';
                   my $response7 = join ("|","@mouapps");
         $worksheet->write($r, 5, $response7);
         }
                $r += 1;
                                            }

        } else {
    
         print "Do Nothing" ;
    
       }
       
    
       }

}
$workbook->close;
print "Spreadsheet saved.\n";

[download]

2020-11-09 Athanasius added code tags around JSON data.

Replies are listed 'Best First'.
Re^7: Not an ARRAY reference
by roboticus (Chancellor) on Nov 08, 2020 at 21:11 UTC

    chandantul:

    The JSON parser I use decodes an entire record at one time, so either the whole JSON record parses correctly or it's rejected. I only showed a text file line-based example because it was easy. If you want to handle a response at a time, it would be essentially the same: Wrap the JSON decode operation in an eval { } block, then check the $@ variable to see if there's an exception after the eval block and choose to process the data or handle the error.

    ...roboticus

    When your only tool is a hammer, all problems look like your thumb.

[reply]
[d/l]
[select]

      The issue has been resolved once changed the API call. The issue was with JSON response

[reply]

In Section Seekers of Perl Wisdom