程嶏清单14-8.txt

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

sub nameLister {
my $this = shift;
my ($keys ,$value );
while (($key, $value) = each (%$this)) {
      print "\t$key is $value.\n";
}
} 
sub get_name {
    my $self = shift;
    return $self->{NAME};
} 
sub set_name {
    my $self      = shift;
    $self->{NAME} = shift;
}