程嶏清单14-6.txt

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

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