Forum Discussion
Mark_Worrell_98
Dec 28, 2011Historic F5 Account
Let's try that again and see if the system will preserve the indentation:
@list = @{$soap_response->result};
foreach $guest (0 .. $list) {
$ref = $list[$guest];
$n = @$ref - 1;
printf(STDOUT "Guest: %s\n", $opt_n);
foreach $slot (0 .. $n) {
$foo = $list[$guest][$slot];
$slot_id = $foo->{"slot_id"};
$requested_state = $foo->{"requested_state"};
$request_complete = $foo->{"request_complete"};
$status = $foo->{"status"};
$comment = $foo->{"comment"};
printf(STDOUT "Slot ID: %s\n", $slot_id);
printf(STDOUT "Requested State: %s\n", $requested_state);
printf(STDOUT "Request Complete: %s\n", $request_complete);
printf(STDOUT "Status: %s\n", $status);
printf(STDOUT "Comment: %s\n", $comment);
}
}