Perl 与 Bot::BasicBot 比较（测试相等性）

Question

我发现我似乎正在单独测试每个键，这就是为什么它一直说我不在操作员列表中。

技巧是将 else 语句从 foreach 中移出，并将其更改为 if 语句。

然后在测试中对不等于

原始：

if($config->{'OP'}[$key] ne $message->{who})

新：

if($config->{'OP'}[$key-1] ne $message->{who})

最终完整代码进行了相当令人讨厌的黑客攻击：

#!/usr/bin/perl

use strict;
use warnings;

package kbot;
use base qw(Bot::BasicBot);
use YAML;
use Data::Dumper;


my $bot = kbot->new(
                server => 'irc.saurik.com',
                channels => ['#spam','#kbot'],
                nick => 'kbot',);


sub reload{
        system("perl kbot.pl");
}


sub said {
        my ($self, $message) = @_;
        my $config = YAML::LoadFile('kelbot.yml');
        if($message->{body} =~ 'reload'){
                reload();
        }

        if($message->{body} =~ 'opme'){
                  foreach $::key (keys $config->{OP}){
                        print $config->{OP}[$::key],"\n";
                        if($config->{OP}[$::key] eq $message->{who}){
                                $bot->mode($message->{channel}.' +o '.$message->{who});

                        } #end of if op
                  } #end of foreach
                  if($config->{OP}[$::key-1] ne $message->{who}){
                                $bot->say( channel => $message->{channel},
                                body => 'You aren\'t in the Operators list.',
                                address => $message->{who},
                                 );
                } #end of optest
        } #end of opme

} #end of said

sub chanjoin {
        my ($self, $message) = @_;
        return 'kbot now online!';
}

$bot->run();

Answer 1

在 Perl 中，有比尝试创建 C 式循环更好的方法。从代码来看， $config->{'OP'} 是一个数组，但我对您使用数组下标（[]) 和同时按下键。如果它是一个数组，那么只需使用 grep

if (grep { $_ eq $message->{who} } @{ $config->{OP} }) {
    $bot->mode("$message->{channel} +o $message->{who}");
} else {
    $bot->say(channel => $message->{channel},
              body => q{You aren't in the Operators list.},
              address => $message->{who});
}

此代码将完全替换您的 foreach 循环。 grep 命令是循环遍历整个列表并查找 $message->{who} 是否出现在其中的命令。由于这可以在一条语句中轻松完成，因此关于在它出现或不出现的情况下做什么的 if 条件非常简单。