小骆驼 第六章 哈希

#!/usr/bin/perl use strict; use warnings; my %fruit; $fruit{'ap'.'ple'} = 1; $fruit{'banana'} = 2; $fruit{'peach'} = 3; foreach my $choice (qw(apple banana peach x)) { print "$fruit{$choice}\n"

>>阅读原文<<