Help for this page

Select Code to Download


  1. or download this
    my $key1 = sprintf "%.2f", 45.20;
    my %ITEMS = ( $key1 => 'item 1');
    
  2. or download this
    $key1 = sprintf "%.2f", 52.30;
    my %ITEMS = (
    ...
    if (exists $ITEMS{$input}) {
        print $ITEMS{$input} . "\n";
    }