Nikola Janceski wrote:
> 
> That would be my grep method
> 
> $pc = grep $testvalue eq $HASH{$_}, keys %HASH;
> 
> any ideas on how to create reverse hash quick?
> This returns an odd number of elements:
> 
> my %BYNAME = map { { "$ALL{$_}" => "$_" } } keys %ALL;

$ perl -le'
%hash = (
PC1 => "Nikola Janceski",
PC2 => "Some Moron",
PC3 => "Some Other Moron"
);
print $hash{PC2};
%byname = reverse %hash;
print $byname{"Some Moron"};
'
Some Moron
PC2



John
-- 
use Perl;
program
fulfillment

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to