in reply to Floats with trailing zeros as a hash key
This will work. I tested it as follows:my $key1 = sprintf "%.2f", 45.20; my %ITEMS = ( $key1 => 'item 1');
It printed "item 1" when I entered 52.30.$key1 = sprintf "%.2f", 52.30; my %ITEMS = ( $key1 => 'item 1', 45.25 => 'item 2' ); my $input = <STDIN>; chomp ($input); if (exists $ITEMS{$input}) { print $ITEMS{$input} . "\n"; }
|
|---|