perl 面向对象 -> 符号使用

-> 有两种用法，都和解引用有关。 第一种用法，就是解引用。 根据 -> 后面跟的符号的不同，解不同类型的引用， ->[] 表示解数组引用，->{} 表示解散列引用，->() 表示解子程序引用。 例子： $arr_ref = \@array; $arr_ref->[0] 访问数组 @array 的第一个元素。--------------------------------------------------------[root@master ~]# cat 1.pl @array = qw/1 2 3 4 5/;##创建数组引用$arr_ref = \@array; print "\@array is @array\n";print "\$arr_ref is $arr_ref\n";##访问数组 @array 的第一个元素print "第一个元素是$arr_ref->[0]\n";[root@master ~]# perl 1.pl @array is 1 2 3 4 5$arr_ref is ARRAY(0x1512398)第一个元素是1-------------------------------------------------------- $hash_ref = \%hash; $hash_ref->{foo} 访问 %hash 的 foo 分量 --------------------------------------------------------[root@master ~]# cat 2.pl %hash=('foo',1,'b',2); print  %hash;print "\n";##定义hash引用$hash_ref = \%hash;##访问 %hash 的 foo 分量$var=$hash_ref->{foo};print "\$var is $var\n";[root@master ~]# perl 2.pl b2foo1$var is 1--------------------------------------------------------$sub_ref = \&test; $sub_ref->(1, 2, 3) 使用参数列表 (1,2,3) 来调用 &test 这个子程序。 -------------------------------------------------------[root@master ~]# perl 3.pl $max is 2$max is 3[root@master ~]# cat 3.pl sub test {  $max = shift(@_);  for my $item (@_) {  $max = $item if $max < $item;  print "\$max is $max\n";}};$sub_ref = \&test;  $sub_ref->(1, 2, 3) ;[root@master ~]# perl 3.pl $max is 2$max is 3----------------------------------------------------------第二种用法，就是调用类或者对象的方法。 格式： $obj->method(); 或者 ClassName->method(); 例如： $pop3->login( $username, $password ); my $ftp = Net::FTP->new("some.host.name", Debug => 0); 这两种用法略有不同， 但是总的来说，符合以下规则： 引用：[color=red]假设 -> 的左操作数（就是左边那个值，如 $pop3 和 Net::FTP）是 $left，右操作数（就是右边那个值，如 login 和 new）是 $right，那么 -> 的运算规则就是： if ( ref $left 有效 ){    # 也就是说 $left 是个引用，而不是个裸字    $ClassName = ref $left;  # 取引用的类型，当作类名称}else{    $ClassName = $left;       # 直接把裸字当作类名称} $p = Net::Ping->new("icmp");     ---创建对象  if ($p->ping($host,2))          ----调用对象的方法Net::Ping->new([$proto [, $def_timeout [, $bytes [, $device [, $tos ]]]]]);     新建了一个Net::Ping对象。第一个参数($proto)为协议值，共有六种选择：TCP、UDP、ICMP、STREAM、SYN、EXTERNAL，默认值为TCP主要方法: ------------------------------------------------------------------------------------------------------ Net::Ping->new([$proto [, $def_timeout [, $bytes [, $device [, $tos ]]]]]);     新建了一个Net::Ping对象。第一个参数($proto)为协议值，共有六种选择：TCP、UDP、ICMP、STREAM、SYN、EXTERNAL，默认值为TCP；第二个参数为默认超时值($def_timeout)，以秒为单位，设置此值是为了定义PING方法的超时值，默认为5秒；发送包的数据大小($bytes)会根据你选择的协议不同而有不同的结果，当你选择的协议为TCP时系统忽略此值，当协议为UDP时此值默认为为1(最小值)，其他类型则为0，此值可以选择的最大值为1024；设备选项($device)为输出设备接口；服务类型Type of service($tos)通常可以忽略。可以使用无参数方式调用此方法。调用此方法后的返回值为一个Net::Ping对象变量。