今天读到一个例子。<br>这个里在这里：<br><br><a href="http://www.pgsqldb.org/twiki/bin/view/Perl/Objects2">http://www.pgsqldb.org/twiki/bin/view/Perl/Objects2</a><br><br>代码在这里：<br><br><pre><font color="brown">package</font> Person;<br><font color="brown">
use</font> fields <font color="navy">qw</font>(naem race aliases);<br><font color="brown">sub</font> new {<br>        <font color="brown">my</font> $type = <font color="maroon">shift</font>;<br>        <font color="brown">
my</font> Person $self = fields::new(<font color="maroon">ref</font> $type || $type);<br>        $self-&gt;{name} = &quot;unnamed&quot;;<br>        $self-&gt;{race} = &quot;unknown&quot;;<br>        $self-&gt;{aliases} = [];
<br>        <font color="brown">return</font> $self;<br>}<br><font color="brown">sub</font> name {<br>        <font color="brown">my</font> Person $self = <font color="maroon">shift</font>;<br>        $self-&gt;{name} = <font color="maroon">
shift</font> <font color="brown">if</font> @_;<br>        <font color="brown">return</font> $self-&gt;{name};<br>}<br><font color="brown">sub</font> race {<br>        <font color="brown">my</font> Person $self = <font color="maroon">
shift</font>;<br>        $self-&gt;{race} = <font color="maroon">shift</font> <font color="brown">if</font> @_;<br>        <font color="brown">return</font> $self-&gt;{race};<br>}<br><font color="brown">sub</font> aliases {
<br>        <font color="brown">my</font> Person $self = <font color="maroon">shift</font>;<br>        $self-&gt;{aliases} = <font color="maroon">shift</font> <font color="brown">if</font> @_;<br>        <font color="brown">
return</font> $self-&gt;{aliases};<br>}<br>1;<br><br>这里的my Persion $self 是什么概念呢？<br><br><br></pre><br>