perl 一个简单的面向对象的例子

<pre name="code" class="python">[root@wx03 wx]# cat x1.pm package x1; use Data::Dumper; sub new { my $self ={}; ##引用 my $invocant = shift; my $class = ref($invocant) || $invocant; print "\$c

>>阅读原文<<