为什么perl构造函数不初始化包（class）变量

Question

当调用perl构造函数时，类引用被传递给新函数，但构造函数不初始化类变量，如java或C++ does.inf它创建一个新的哈希和祝福它在类的引用并返回它。这造成了子例程不能直接引用它们必须使用传递的隐式引用的变量的问题。

下面的代码将突出问题： -

package foo; 
use strict; 
my $var1; 
my $var2; 
my $var3; 

sub new { 
    my $class = shift; 
    my $self = { 
     var1 => shift, 
     var2 => shift, 
     var3 => shift 
     }; 

    bless $self, $class; 
    return $self; 

     } 

sub method { 

     my $self = shift; 
     print(
      "variable value are $self->{var1},$self->{var2},$self->{var3}"; 
     #how to directly refer to var1 declared above? instead of self->{var1} 
     } 

明确包装方法有可能使用参考自使用VAR1，VAR2，VAR3 这是不是包变量，但只有哈希的对象。

1： - 这意味着在perl中没有办法初始化包变量？ 2： - 如果我用某种方法明确初始化它们，他们是否有一个副本用于所有对象或每个对象有不同副本

Answer 1

使用包变量的正规途径是our声明它们。在包之外，您可以通过使用包对变量名进行限定来引用它们。

package foo; 
our ($var1, $var2, $var3) = (5, 42, "bar"); 
sub new { bless { var4 => $_[1] }, $_[0] } 
... 
1; 


package main; 
use foo; 
$obj = foo->new(19); # instance of foo 
print "Instance variable is $obj->{var4}\n"; # 19 
print "Package variable is $foo::var1\n";  # 5 

Answer 2

在Perl中，包变量，例如：文件顶部的my $var1实例变量。它们对应于Java或C＃等语言中的静态变量。在Perl中，通常使用$self，其他语言使用this。某些语言（如Java）允许您在引用成员变量时省略使用this。有些像JavaScript和Perl一样。

如果你问的是如何初始化静态变量，你当然可以通过在创建静态变量时分配给它们。

package foo; 
use strict; 
use warnings; 
my $created_at = localtime(); 

sub created_at { 
    return $created_at; 
} 

sub new { 
    my($pkg,$p1,$p2) = @_; 
    my $self = { 
    prop1 => $p1, 
    prop2 => $p2 
    }; 
    return bless $self, $pkg; 
} 

# you can create accessors, think of these as getters and setters, if you pass a value it is set 
sub prop1 { my($self,$v) = @_; $self->{prop1} = $v if @_>1; return $self->{prop1}; } 
sub prop2 { my($self,$v) = @_; $self->{prop2} = $v if @_>1; return $self->{prop2}; } 

sub method { 
    my($self) = @_; 
    print "prop1=",$self->{prop1},"; prop2=",$self->{prop2},"\n"; 
} 

package main; 
use strict; 
use warnings; 

print "created_at = ",foo->created_at,"\n"; 

my $f = foo->new("banana","apple"); 

print "f->created_at = ", $f->created_at,"\n"; 
$f->method(); 
$f->prop1('orange'); 
$f->method(); 

这是一个基于Perl5对Object的初始支持，在Perl中处理OO的较老方法。如果您更熟悉其他对象系统，则可能需要查看Perl的Moose库，这些库提供了更多您可能习惯的内容。

HTH，

凯尔