If I'm understanding you correctly, you can just assemble $InfoData and $PerfData as you've detailed and push it onto some array for reference later instead of printing the information out.
$InfoData = sprintf("$targetname Avg.Time= $o_target"); $PerfData = sprintf( "value1=%f value2=%f value3=%f", $value1, $value2, $value3 ); push @results, { InfoData => $InfoData, PerfData => $PerfData, );
Now that you have all your results in @results, you can access it in a variety of ways:
foreach (@results) { my $info_data = $_->{InfoData}; my $perf_data = $_->{PerfData}; # Do whatever you need to... } # Or maybe: my $arb_info = $results[$arbitrary_idx]->{InfoData}; my $arb_perf = $results[$arbitrary_idx]->{PerfData};
Is that what you were asking?
In reply to Re: Returning foreach results in a Nagios-Friendly Fashion
by Riales
in thread Returning foreach results in a Nagios-Friendly Fashion
by bpthatsme
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |