perl - 使用 Perl 子例程得到错误的结果

Question

我有一个看起来像这样的测试文件：

my $int = new Services::Plugins::FTP::ftp;
$int->AddUser("durr");

该模块具有以下代码：

sub AddUser {

my( @username ) = @_;
print "@_\n";  

}

但我的结果看起来像： Services::Plugins::FTP::ftp=HASH(0x2490160)durr

我只想要'durr'。

为什么我会得到额外的东西？

Answer 1

您正在处理面向对象的 Perl。如果您在对象实例上调用函数，例如在您的情况下使用$instance->function()，那么第一个参数是对实例本身的引用。它最常被称为$self。

一个常用的习惯用法是这样编写实例方法：

sub some_method {
  my ($self, @args) = @_;
}

我建议您在perlootut 手册页中阅读 Perl 的面向对象系统（一个很好的教程）。

Answer 2

第一个论点$foo->bar()是$foo

sub AddUser {
    my($self, @username ) = @_;
    print "@_\n";  
}

Answer 3

您正在使用面向对象的方法（$int->AddUser("durr")是一种方法调用）。调用方法时，第一个参数始终是应用该方法的对象或类。