our Army $winner<br>local Phone $extension<br><br>都差不多的，看看前面的章节应该不难理解 my/our/local <br><br><div><span class="gmail_quote">在06-6-1，<b class="gmail_sendername">黄叶</b> &lt;<a href="mailto:hylinux@gmail.com">hylinux@gmail.com</a>
&gt; 写道：</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div>今天读到一个例子。<br>这个里在这里：<br><br><a href="http://www.pgsqldb.org/twiki/bin/view/Perl/Objects2" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
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><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><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>
</div><br>_______________________________________________<br>China-pm mailing list<br><a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:China-pm@pm.org">China-pm@pm.org</a><br><a onclick="return top.js.OpenExtLink(window,event,this)" href="http://mail.pm.org/mailman/listinfo/china-pm" target="_blank">
http://mail.pm.org/mailman/listinfo/china-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>God May Always Inspire Life =&gt; Gmail