程嶏清单14-6.txt

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

sub new { 
my $type = shift;
my %parm = @_;
my $this = {};
$this->{'Name'} = $parm{'Name'};
$this->{'x'} = $parm{'x'};
$this->{'y'} = $parm{'y'};
bless $this, $type; 
}