Perl 回调函数例子

发布时间：2020-12-15 23:48:46 所属栏目：大数据来源：网络整理

导读：$label-bind("Any-KeyPress" = [move,Ev('k')]);sub move { my $key = shift; if ($key eq 'k') { move_left(); } elsif ($key eq 'l') { move_right(); }}

$label->bind("<Any-KeyPress>" => [&;move,Ev('k')]);
sub move {
    my $key = shift;
    if ($key eq 'k') {
       move_left();
    } elsif ($key eq 'l') {
       move_right();
    }
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!