Question

我想添加一个向数组添加数字的命令。

这就是我所拥有的：

my $ownerids = ('374867065');

然后在脚本中我有这个：

if($ownerids == $spl2[0]){
    if (index($message, "!adduser") != -1) {
        $msg = $spl[1];
        $send = "<m t=\"User Added $msg\" u=\"$botid\"  />\0";
        $socket->send($send);
        push (my $ownerids, "$msg");
    }
}

我在聊天室，这是一个聊天机器人，我想在我说的时候制作它！adduser（thereid）它将它们添加到列表中并且他们可以使用机器人命令，而且我还想要一个删除用户，如果你可以帮忙解决这个问题。

Answer 1

如果您希望所有者成为数组，则必须在其前面添加@

my @ownerids = ('374867065');

然后要添加元素，您可以push

push @ownerids, "$msg";

但是，您需要修复对@ownerids的其他引用，以便将其视为数组。例如，您的第一个看起来似乎打算查看$spl2[0]是否为所有者。如果是这样，那么您需要grep数组：

if(grep {$_ == $spl2[0]} @ownerids) {

如何将此值添加到数组并保留在脚本中

1 个答案: