Question

Perl里面定义函数开始都写个my $self= shift，有什么用？

Answer 1

类方法的第一个参数是类（包）的名字，也就是把这个类/包的名字作为第一个参数

package House; # Class
2 sub new { # Class method called a constructor
3 my $class = shift;
4 my $ref={"Owner"=>undef, # Attributes of the object
"Price" =>undef, # Values will be assigned later
};
5 bless($ref, $class);

3. 此类子例程接受的第一个参数是包名或类名，在本例中就是House。这是方法和子例程之间
的又一个不同之处。方法的第一个参数必需是一个类名或对象名。