程嶏清单14-7.txt

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

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