3

配列をPOEヒープに配置し、そこにデータをプッシュ/ポップするにはどうすればよいですか?

次の配列をヒープに配置しようとしています:

@commands = (
    ["quit",\&Harlie::Commands::do_quit,10],
    ["part",\&Harlie::Commands::do_part,10],
    ["join",\&Harlie::Commands::do_join,10],
    ["nick",\&Harlie::Commands::do_nick,10],
    ["module",\&Harlie::Commands::do_modules,10],
    ["uptime",\&Harlie::Commands::do_uptime,0]
);

また、含まれている関数参照にアクセスするにはどうすればよいでしょうか? 現在、次の方法で実行できます。

@commands->[$foo]->(@bar);

私はそれが単にそうであると仮定するのが正しいでしょうか?:

$heap->{commands}->[$foo]->(@bar);
4

1 に答える 1

0

POE ヒープで配列を作成/使用するには、参照を "@{...}" でラップするだけです。例えば：

use strict;
use warnings;
use POE;
use POE::Kernel;

POE::Session->create(
    inline_states =>{
        _start =>   \&foo,
        bar    => \&bar}  
);

sub foo{
    my ($kernel, $heap) = @_[KERNEL, HEAP];
    @{$heap->{fred}} = ("foo","bar","baz");
    $kernel->yield("bar");
}

sub bar{
    my ($kernel, $heap) = @_[KERNEL, HEAP];
    print "Length of array fred... " . ($#{$heap->{fred}}+1) . "\n";
    print "Contents of fred... ";
    foreach(@{$heap->{fred}}){
    print $_ . " ";  }
    print "\n";
}

POE::Kernel->run();

ただし、配列の配列はそれほど単純ではありません。上記から論理的に続くプログラム...

use strict;
use warnings;
use POE;
use POE::Kernel;

POE::Session->create(
    inline_states    => {
    _start =>    \&foo,
    bar    =>    \&bar
    }
    );

sub foo{
    my ($kernel, $heap) = @_[KERNEL, HEAP];

    @{$heap->{fred}} = (
        ["foo","bar","baz"],
        ["bob","george","dan"]
    );
    $kernel->yield("bar");
}

sub bar{
    my ($kernel, $heap) = @_[KERNEL, HEAP];
    print "Length of array fred... " . ($#{$heap->{fred}}+1) . "\n";
    print @{$heap->{fred}}[0][0];

}

POE::Kernel->run();

...単に次のエラーが発生します。

perl ../poe-test.pl

../poe-test.pl 26 行目の "][" 付近に構文エラーがあります

コンパイル エラーのため、../poe-test.pl の実行が中止されました。

于 2010-02-01T13:03:35.197 に答える