perl包中函数的调用问题

gx303841541

刚接触perl,请教一个问题：
我在公司的perl脚本中看到这样一段：

1. #!/usr/bin/perl
   
2. ...
   
3. use CTS::Suite;
   
4. ...
   
5. 
   
6. $suite = new CTS::Suite(...);
   

复制代码

其中CTS为一个子目录名字，Suite为一个包名，Suite.pm文件内容如下：

1. package CTS::Suite;
   
2. use strict;
   
3. use vars qw(@ISA $VERSION $SUITEID $BUNDLEINFO $EMAILNOTIFICATION $TESTID $DEBUG $SIGINT $FAILEDEXECID $VERBOSE $SUBCASEID);
   
4. no strict 'refs';
   
5. ...
   
6. 
   
7. 
   
8. # Constructor....
   
9. sub new {
   
10.   my $proto = shift;
    
11.   my $class = ref($proto) || $proto;
    
12.   my %arg = @_;
    
13.   my $self  = {};
    
14.   my $config;
    
15. ...
    
16.       return $self;
    
17.   }
    
18. 
    

复制代码

我的问题是：要调用Suite包中的new函数不应该是$suite = CTS::Suite::new(...);吗？为啥可以这样$suite = new CTS::Suite(...);写呢？


望大家指点，谢谢！

gx303841541

我勒个去。。。，没人理我

shijiang1130

$suite = CTS::Suite::new(...);好像没有这种写法，只有$suite = CTS::Suite->new(...); 和 $suite = new CTS::Suite;

gx303841541

回复 3# shijiang1130 不是吧，

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use Personal;

复制代码

上面是一本书中的例子，它调用包Personal中的adv函数就是Personal::adv(@age);用的呢？

   

stanley_tam

1. $suite = new CTS::Suite  => 这种是比较传统的写法。。。
   
2. 类似javascript中的var arrObj = new Array();

复制代码

laputa73

建议LZ学习一下基础的面向对象的知识
任何语言的都类似
了解一下类,构造函数这些概念