Mega Code Archive

 

Categories / Perl / Hash

 

Demonstrating hash slices

%romanNumerals = ( one   => 'I',                    two   => 'II',                    three => 'III',                    four  => 'IV',                    five  => 'V',                    six   => 'VI',                    seven => 'VII',                    eight => 'VIII',                    nine  => 'IX',                    ten   => 'X' ); print "The Roman numerals for three, five and eight are: ",       "@romanNumerals{ 'three', 'five', 'eight' }\n";