StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POPerl Comparison with Bot::BasicBot( testing Equality )
primarykey
Id
7845106
data
AcceptedAnswerId
7845947
AnswerCount
1
ClosedDate
CommentCount
2
CommunityOwnedDate
CreationDate
2011-10-21T04:54:16.970
FavoriteCount
0
LastActivityDate
2011-10-21T06:54:33.357
LastEditDate
2011-10-21T06:54:33.357
LastEditorUserId
968206
OwnerUserId
968206
ParentId
0
PostTypeId
1
Score
0
ViewCount
324
LastEditorDisplayName
text
Body
I've figured it out it appears that I was testing each key individually and thats why it kept saying i wasn't in the Operators list. trick was to move the else statement out of foreach and to change it to a if statement. then a rather nasty hack inside the test for not equal original: <pre><code>if($config->{'OP'}[$key] ne $message->{who}) </code></pre> new: <pre><code>if($config->{'OP'}[$key-1] ne $message->{who}) </code></pre> final complete code: <pre><code>#!/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(); </code></pre>
Tags
<perl><comparison><bots>
Title
Perl Comparison with Bot::BasicBot( testing Equality )
singulars
PostAcceptedAnswerId
1. PO
 singulars
 PostTypePostTypeId
 PTAnswer
PostParentId
1. This table or related slice is empty.
PostTypePostTypeId
1. PTQuestion
UserLastEditorUserId
1. USAquertu
UserOwnerUserId
1. USAquertu
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. PO
 singulars
 PostTypePostTypeId
 PTAnswer
VotesPostIdCreationDate
1. This table or related slice is empty.
CommentsPostId
1. COOn the line `if($message->{body} =~ 'opme'){` do you really mean that the body simply contains the substring 'opme' or do you want the body to equal 'opme'. If you want contains replace the quotes with slashes (`=~ /opme/`) which makes your intend much clearer. If you mean equals then write `eq 'opme'`. Mixing the binding operator and the string leaves it open to doubt IMHO.
 singulars
 PostPostId
 POPerl Comparison with Bot::BasicBot( testing Equality )
 UserUserId
 USaparker42
2. CObefore i was regex'ing but just getting use to using it though before it was /\bWORD\b/.
 singulars
 PostPostId
 POPerl Comparison with Bot::BasicBot( testing Equality )
 UserUserId
 USAquertu

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.