Perl 对象调用方法使用->符号

<pre name="code" class="sql">对象(object)也是一个引用,只不过具有一些额外的位。对象带有"是什么模块创建它"

的相关信息,它以这种方式被‘神圣化’(blessed)而居于特定模块的软件包中。

这些'神圣的' 引用将即系和其他引用样工作。例如,如果一个名为$object的对象时一个

神圣化的散列数组引用,你可按如下所示索引它:

 $object->{last_name};

  使对象不同于一般引用的是它们具有方法(method)。方法调用使用->符号,但后面紧跟着

以子例程和可选的子例程风格的参数:

 $object->print_record();


例子:
use IO::File;
##从命令行取到要执行行计数的文件的名称并将$counter变量初始化为0
my $file = shift;

my $counter = 0;

##我们调用IO::File->new()方法来打开文件,返回一个文件句柄 存储在$fh中

my $fh = IO::File->new ($file) or die;
print "$fh is $fh
";

###在while()循环的测试部分调用了IO::File对象的getline()方法
while (defined (my $line = $fh->getline)){
  $counter++;
  }
STDOUT->print("Counted $counter lines
"