Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-08 04:45:41 -04:00
Code Issues Releases Wiki Activity

i'm trying to make it more complicated than it needs to be

Browse source
This commit is contained in:
Ryan Voots 2010-10-05 00:49:04 -04:00
parent f40e38f095
commit 3febcdedbc
1 changed files with 2 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
plugins/8ball.pm
View file

@ -24,21 +24,13 @@ sub {
my( $said ) = @_; my( $said ) = @_;
my $ors =()= $said->{body}=~m/\bor\b/g; my $ors =()= $said->{body}=~m/\bor\b/g;
my $commas =()= $said->{body}=~m/,(?=.*\bor\b)/g;
my $common = ""; my $common = "";
my @a; my @a;
if ($ors == 1) if ($ors >= 1)
{
if ($commas > 0)
{
@a = split(/\bor\b/, $said->{body});
}
else
{ {
@a = split(/(?:\bor\b|\s*,\s*)+/, $said->{body}); @a = split(/(?:\bor\b|\s*,\s*)+/, $said->{body});
}
s/^\s*//, s/\s*(\?\s*)?$// for @a; #trim them up s/^\s*//, s/\s*(\?\s*)?$// for @a; #trim them up