-----Original Message-----
I need to reformat the output (result set) of an SQL query, using
Win32::ODBC. The result set looks like this:
Server1 JobResult1
Server1 JobResult2
Server1 JobResult3
Server2 JobResult1
Server2 JobResult2
Server2 JobResult3
Server2 JobResult4
Server3 JobResult1
Server3 JobResult2
Server4 JobResult1
Server4 JobResult2
Server4 JobResult3
[etc]
The server names and the number of job results per server vary, and
JobResult is a string (successful, failed, unknown)
The desired format looks like this:
Server1 JobResult1 JobResult2 JobResult3
Server2 JobResult1 JobResult2 JobResult3 JobResult4
Server3 JobResult1 JobResult2
Server4 JobResult1 JobResult2 JobResult3
[etc]
--------------------------
Marco,
Sounds like you could use a hash.
for $line (["Server1","JobResult1"],["Server1","JobResult2"],
["Server1","JobResult3"],["Server2","JobResult1"],
["Server2","JobResult2"],["Server2","JobResult3"],
["Server2","JobResult4"],["Server3","JobResult1"],
["Server3","JobResult2"],["Server4","JobResult1"],
["Server4","JobResult2"],["Server4","JobResult3"]) {
($server,$jobresult)[EMAIL PROTECTED];
$serverjobs{$server}.=" $jobresult";
}
for $server (sort keys %serverjobs) {
print "$server $serverjobs{$server}\n";
}
Chris
LEGAL NOTICE
Unless expressly stated otherwise, this message is confidential and may be privileged.
It is intended for the addressee(s) only. Access to this E-mail by anyone else is
unauthorized. If you are not an addressee, any disclosure or copying of the contents
of this E-mail or any action taken (or not taken) in reliance on it is unauthorized
and may be unlawful. If you are not an addressee, please inform the sender immediately.
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
