程嶏清单9-15.txt

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

sub card {
	  my %card_map;
	  @card_map{0..9} = qw( zero one two three four five six seven eight nine );
	  my($num) = @_;
	  my($negative);
	  if ($num < 0) {
	    $negative = "negative ";
	    $num = - $num;
	  }
	  if ($card_map{$num}) {
	    $negative . $card_map{$num}; # return value
	  } else {
	    $negative . $num; # return value
	  }
}