程嶏清单9-13.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 16 行

sub card {
  my %card_map;
  @card_map{1..9} = qw( one two three four five six seven eight nine );
  my($num) = @_;
  if ($card_map{$num}) {
    $card_map{$num}; # return value
  } else {
    $num; # return value
  }
}
# driver the routine:
while (<>) {
  chomp;
  print "card of $_ is ", &card($_), "\n";
}