程嶏清单9-14.txt

< linux网络编程工具>>配套源码

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";