📄 perl13.htm
字号:
my $this = {};<br>
$this->{'Name'} = $parm{'Name'};<br>
$this->{'x'} = $parm{'x'};<br>
$this->{'y'} = $parm{'y'};<br>
bless $this, $type;
</blockquote>
}
</blockquote>
用数组保存的代码如下：<br>
<blockquote>
sub new {<blockquote>
my $type = shift;<br>
my %parm = @_;<br>
my $this = [];<br>
$this->[0] = $parm{'Name'};<br>
$this->[1] = $parm{'x'};<br>
$this->[2] = $parm{'y'};<br>
bless $this, $type;
</blockquote>
}
</blockquote>
构造对象时，可以如下传递参数：<br>
$mug = Cocoa::new( 'Name' => 'top','x' => 10,'y' => 20 );<br>
操作符=>与逗号操作服功能相同，但=>可读性好。访问方法如下：<br>
print "Name=$mug->{'Name'}\n";<br>
print "x=$mug->{'x'}\n";<br>
print "y=$mug->{'y'}\n";<br>
<a name="5">五、方法</a><br>
Perl类的方法只不过是一个Perl子程序而已，也即通常所说的成员函数。Perl的方法定义不提供任何特殊语法，但规定方法的第一个参数为对象或其被引用的包。Perl有两种方法：静态方法和虚方法。<br>
静态方法第一个参数为类名，虚方法第一个参数为对象的引用。方法处理第一个参数的方式决定了它是静态的还是虚的。静态方法一般忽略掉第一个参数，因为它们已经知道自己在哪个类了，构造函数即静态方法。虚方法通常首先把第一个参数shift到变量self或this中，然后将该值作普通的引用使用。如：<br>
<blockquote>
1. sub nameLister {<br>
2. my $this = shift;<br>
3. my ($keys ,$value );<br>
4. while (($key, $value) = each (%$this)) {<br>
5. print "\t$key is $value.\n";<br>
6. }<br>
7. }
</blockquote>
六、方法的输出<br>
如果你现在想引用Cocoa.pm包，将会得到编译错误说未找到方法，这是因为Cocoa.pm的方法还没有输出。输出方法需要Exporter模块，在包的开始部分加上下列两行：<br>
require Exporter;<br>
@ISA = qw (Exporter);<br>
这两行包含上Exporter.pm模块，并把Exporter类名加入@ISA数组以供查找。接下来把你自己的类方法列在@EXPORT数组中就可以了。例如想输出方法closeMain和declareMain，语句如下：<br>
@EXPORT = qw (declareMain , closeMain);<br>
Perl类的继承是通过@ISA数组实现的。@ISA数组不需要在任何包中定义，然而，一旦它被定义，Perl就把它看作目录名的特殊数组。它与@INC数组类似，@INC是包含文件的寻找路径。@ISA数组含有类(包)名，当一个方法在当前包中未找到时就到@ISA中的包去寻找。@ISA中还含有当前类继承的基类名。<br>
类中调用的所有方法必须属于同一个类或@ISA数组定义的基类。如果一个方法在@ISA数组中未找到，Perl就到AUTOLOAD()子程序中寻找，这个可选的子程序在当前包中用sub定义。若使用AUTOLOAD子程序，必须用use Autoload;语句调用autoload.pm包。AUTOLOAD子程序尝试从已安装的Perl库中装载调用的方法。如果AUTOLOAD也失败了，Perl再到UNIVERSAL类做最后一次尝试，如果仍失败，Perl就生成关于该无法解析函数的错误。<br>
七、方法的调用<br>
调用一个对象的方法有两种方法，一是通过该对象的引用（虚方法），一是直接使用类名（静态方法）。当然该方法必须已被输出。现在给Cocoa类增加一些方法，代码如下：
<blockquote>
package Cocoa;<br>
require Exporter;<br>
@ISA = qw(Exporter);<br>
@EXPORT = qw(setImports, declareMain, closeMain);<br>
#<br>
# This routine creates the references for imports in Java functions<br>
#<br>
sub setImports{<br>
my $class = shift @_;<br>
my @names = @_;<br>
foreach (@names) {<br>
print "import " . $_ . ";\n";<br>
} <br>
}<br>
#<br>
# This routine declares the main function in a Java script<br>
#<br>
sub declareMain{<br>
my $class = shift @_;<br>
my ( $name, $extends, $implements) = @_;<br>
print "\n public class $name";<br>
if ($extends) {<br>
print " extends " . $extends;<br>
}<br>
if ($implements) {<br>
print " implements " . $implements;<br>
}<br>
print " { \n";<br>
}<br>
#<br>
# This routine declares the main function in a Java script<br>
#<br>
sub closeMain{<br>
print "} \n";<br>
}<br>
#<br>
# This subroutine creates the header for the file.<br>
#<br>
sub new {<br>
my $this = {};<br>
print "\n /* \n ** Created by Cocoa.pm \n ** Use at own risk \n */ \n";<br>
bless $this;<br>
return $this;<br>
}<br>
<br>
1;
</blockquote>
现在，我们写一个简单的Perl脚本来使用该类的方法，下面是创建一个Java applet源代码骨架的脚本代码：
<blockquote>
#!/usr/bin/perl<br>
use Cocoa;<br>
$cup = new Cocoa;<br>
$cup->setImports( 'java.io.InputStream', 'java.net.*');<br>
$cup->declareMain( "Msg" , "java.applet.Applet", "Runnable");<br>
$cup->closeMain();<br>
</blockquote>
这段脚本创建了一个叫做Msg的Java applet，它扩展(extend)了java.applet.Applet小应用程序并使之可运行(runnable)，其中最后三行也可以写成如下：
<blockquote>
Cocoa::setImports($cup, 'java.io.InputStream', 'java.net.*');<br>
Cocoa::declareMain($cup, "Msg" , "java.applet.Applet", "Runnable");<br>
Cocoa::closeMain($cup);
</blockquote>
其运行结果如下：
<blockquote>
/*<br>
** Created by Cocoa.pm<br>
** Use at own risk <br>
*/<br>
import java.io.InputStream;<br>
import java.net.*;<br>
<br>
public class Msg extends java.applet.Applet implements Runnable {<br>
}
</blockquote>
注意：如果用->操作符调用方法（也叫间接调用），参数必须用括号括起来，如：$cup->setImports( 'java.io.InputStream', 'java.net.*');而双冒号调用如：Cocoa::setImports($cup, 'java.io.InputStream', 'java.net.*');也可去掉括号写成：Cocoa::setImports $cup, 'java.io.InputStream', 'java.net.*' ;<br>
<a name="8">八、重载</a><br>
有时需要指定使用哪个类的方法，如两个不同的类有同名方法的时候。假设类Espresso和Qava都定义了方法grind，可以用::操作符指定使用Qava的方法：<br>
$mess = Qava::grind("whole","lotta","bags");<br>
Qava::grind($mess, "whole","lotta","bags");<br>
可以根据程序的运行情况来选择使用哪个类的方法，这可以通过使用符号引用去调用来实现：<br>
$method = $local ? "Qava::" : "Espresso::";<br>
$cup->{$method}grind(@args);<br>
<a name="9">九、析构函数</a><br>
Perl跟踪对象的链接数目，当某对象的最后一个应用释放到内存池时，该对象就自动销毁。对象的析构发生在代码停止后，脚本将要结束时。对于全局变量而言，析构发生在最后一行代码运行之后。<br>
如果你想在对象被释放之前获取控制权，可以定义DESTROY()方法。DESTROY()在对象将释放前被调用，使你可以做一些清理工作。DESTROY()函数不自动调用其它DESTROY()函数，Perl不做内置的析构工作。如果构造函数从基类多次bless，DESTROY()可能需要调用其它类的DESTROY()函数。当一个对象被释放时，其内含的所有对象引用自动释放、销毁。<br>
一般来说，不需要定义DESTROY()函数，如果需要，其形式如下：<br>
<blockquote>
sub DESTROY {<br>
#<br>
# Add code here.<br>
#<br>
}
</blockquote>
因为多种目的，Perl使用了简单的、基于引用的垃圾回收系统。任何对象的引用数目必须大于零，否则该对象的内存就被释放。当程序退出时，Perl的一个彻底的查找并销毁函数进行垃圾回收，进程中的一切被简单地删除。在UNIX类的系统中，这像是多余的，但在内嵌式系统或多线程环境中这确实很必要。<br>
<a name="10">十、继承</a><br>
类方法通过@ISA数组继承，变量的继承必须明确设定。下例创建两个类Bean.pm和Coffee.pm，其中Coffee.pm继承Bean.pm的一些功能。此例演示如何从基类（或称超类）继承实例变量，其方法为调用基类的构造函数并把自己的实例变量加到新对象中。<br>
Bean.pm代码如下：<br>
<blockquote>
package Bean;<br>
require Exporter;<br>
@ISA = qw(Exporter);<br>
@EXPORT = qw(setBeanType);<br>
<br>
sub new {<br>
my $type = shift;<br>
my $this = {};<br>
$this->{'Bean'} = 'Colombian';<br>
bless $this, $type;<br>
return $this;<br>
}<br>
<br>
#<br>
# This subroutine sets the class name<br>
sub setBeanType{<br>
my ($class, $name) = @_;<br>
$class->{'Bean'} = $name;<br>
print "Set bean to $name \n";<br>
}<br>
1;
</blockquote>
此类中，用$this变量设置一个匿名哈希表，将'Bean'类型设为'Colombian'。方法setBeanType()用于改变'Bean'类型，它使用$class引用获得对对象哈希表的访问。<br>
Coffee.pm代码如下：<br>
<blockquote>
1 #<br>
2 # The Coffee.pm file to illustrate inheritance.<br>
3 #<br>
4 package Coffee;<br>
5 require Exporter;<br>
6 require Bean;<br>
7 @ISA = qw(Exporter, Bean);<br>
8 @EXPORT = qw(setImports, declareMain, closeMain);<br>
9 #<br>
10 # set item<br>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -