Hi,
I've been playing around with the Tie::IxHash module.
Here is my part of my code:
tie my %commands, "Tie::IxHash";
%commands = ('sol'=>{'hostname' =>'uname -n',
'os' =>'unamed -s',
'over' =>'uname -r',
'osrel' =>'cat /etc/release | awk
\'{print $3}\'',
'srvtype' =>'uname -p',
'srvmodel' =>'uname -i | cut -f2 -d ","',
'memory' =>'prtconf | grep Memory | awk
\'{print $3}\'',
'cpu' =>'psrinfo | awk \'{print
$1}\' | wc -l'}
);
foreach $OS (keys %commands){
print "OS: $OS \n";
while (( $OS, $CMD ) = each %commands ) {
print "$OS Commands are $items .\n"; *****
}
}
If I change the $items variable in the print statement where the asterisk is
to $CMD I get nothing but a hex value output. Has anyone have a suggestion
what I'm doing wrong.
Phillip Bruce
