使用Perl子例程获得错误的结果
使用Perl子例程获得错误的结果
提问于 2012-10-16 00:19:02
我有一个测试文件，如下所示：
my $int = new Services::Plugins::FTP::ftp;
$int->AddUser("durr");该模块的代码如下：
sub AddUser {
my( @username ) = @_;
print "@_\n";
}但是我的结果看起来像: Services::Plugins::FTP::ftp=HASH(0x2490160)durr
我只想要“durr”
为什么我会得到额外的东西？
回答 3
Stack Overflow用户
发布于 2012-10-16 00:22:33
您正在处理面向对象的Perl。如果在对象实例上调用函数，就像使用$instance->function()时一样，那么第一个参数就是对实例本身的引用。它通常被称为$self。
一个常用的习惯用法是像这样编写实例方法：
sub some_method {
my ($self, @args) = @_;
}我建议您在perlootut man page中阅读Perl的面向对象系统(这是一个很好的教程)。
Stack Overflow用户
发布于 2012-10-16 00:22:56
$foo->bar()的第一个参数是$foo
sub AddUser {
my($self, @username ) = @_;
print "@_\n";
}Stack Overflow用户
发布于 2012-10-16 00:23:37
您正在使用面向对象的方法($int->AddUser("durr")是一种方法调用)。调用方法时，第一个参数始终是应应用该方法的对象或类。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/12899757
复制相关文章
相似问题
腾讯云开发者
