程嶏清单14-18.txt

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

sub printType  {
     my $class = shift @_;
     print "The type of Bean is $class->{'Bean'} \n";
}