程嶏清单9-14.txt

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

sub card { ...; } # from previous problem
print "Enter first number: ";
chomp($first = <STDIN>);
print "Enter second number: ";
chomp($second = <STDIN>);
$message = &card($first) . " plus " . &card($second) . " equals " . &card($first+$second) . ".\n";
print "\u$message";