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

私はただ「ダー」が欲しい。

なぜ私は余分なものを手に入れているのですか?

score 9 · Accepted Answer

オブジェクト指向の Perl を扱っています。の場合のように、オブジェクトインスタンスで関数を呼び出す場合、$instance->function()最初のパラメーターはインスタンス自体への参照です。ほとんどの場合、と呼ばれ$selfます。

一般的に使用されるイディオムは、次のようにインスタンスメソッドを記述することです。

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

perlootut の man ページで Perl のオブジェクト指向システムについて読むことをお勧めします(良いチュートリアルです)。

score 5 · Accepted Answer

への最初の引数$foo->bar()は$foo

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

score 3 · Accepted Answer

オブジェクト指向アプローチを使用しています（$int->AddUser("durr")メソッド呼び出しです）。メソッドを呼び出すとき、最初の引数は常にメソッドが適用されるオブジェクトまたはクラスです。

3 に答える 3