--foo -a --foobar="Hey there" --lol=laugh -dw randomtext texttext

Into this:

$switch = array ('-a' => true, '-d' => true, '-w' => true);
$parameter = array ('foo' => true, 'foobar' => "Hey there", 'lol' => "laugh");
$misc_args = array ('randomtext' => true, 'texttext' => true);

At the moment, I’m just exploding at spaces which makes $parameter['foobar'] impossible.

//  Whatever's after the function name are arguements, we'll need those too
$argument = explode (' ', trim (preg_replace("/^".quotemeta ($function_name)."/", '', $_GET['r'])));

//  These need to exist
$parameter = array ();
$misc_args = array ();
$switch = array ();

//  If the first array element is empty, they're all empty so remove the array # This is caused by a weird bug, wherein the explode always finds space to explode...
if (empty ($argument[0])) unset ($argument); else {
  //  Look at each argument
  foreach ($argument as $arg) {
    //  Now we need to work out which switches and arguements were included, there are two possible ones: --, and -
    if ($arg[0] == $arg[1] && $arg[1] == "-") {
      //  This could be in the format simply "--hello" or "--hello=weclome", we need to find out which
      if (strpos ($arg, '=') === FALSE) {
        //  Just the simple version
        $parameter[trim ($arg, '-')] = TRUE;
      } else {
        //  Split up the parameter and the value
        $arr_arg = explode ('=', trim ($arg, '-'));
        $parameter[$arr_arg[0]] = $arr_arg[1];
      }
    } elseif ($arg[0] == "-") {
      //  Go through each letter, and add it to the switch array
      for ($x = 1; $x < strlen ($arg); $x++) $switch["-".$arg[$x]] = TRUE;
    } else {
      //  This is just any other random junk
      $misc_args[] = $arg;
    }
  }
}

I haven’t got time to check this out at the moment, but here’s a possible solution I got:

14:15 preg_replace(‘/((?(?=^).*?#OQ#|G)(?:(?!#CQ#).)*?)s+/g’, ‘$1#SP#’, $text)
14:16 though, it would probably be better to split it into two statements. One to
find all #OQ#..#CQ#, another to replace s+ with #SP#.
14:19 preg_replace(‘/(?< =#OQ#)(.*?)(?=#CQ#)/ge’,
‘preg_replace(‘/s+/’,'#SP#’,'$1′)’, $text) or something…
14:23 maybe move the second preg_replace into a function

So I started. After researching, I found an O’Reilly tutorial on how to make an IRC bot in perl so I’m using that as a template. Here’s what I have so far:

#!/usr/bin/perl

use strict;

# We will use a raw socket to connect to the IRC server
use IO::Socket;

# The server to connect to and our details
my $server = "irc.dal.net";
my $nick = "PirateBot";

# Connect to the IRC server.
my $sock = new IO::Socket::INET(PeerAddr => $server,
                                PeerPort =>; 6667,
                                Proto =>; 'tcp') or
                                    die "Can't connectn";

# Log on to the server.
print $sock "NICK $nickrn";
print $sock "USER $nick 3 * :Pirate Botrn";

# Read lines from the server until it tells us we have connected.
while (my $response = ) {
  # Check the numerical responses from the server.
  if ($response =~ /004/) {
    # We are now logged in.
    last;
  }
  elsif ($response =~ /433/) {
    die "Nickname is already in use.";
  }
}
# Join the channel.
print $sock "JOIN #dmurn";

# Include the functions here
#include "functions.perl";

# Keep reading lines from the server.
while (my $response = ) {
  chop $response;
  #Always print the responses
  print "$responsen";
  if ($response =~ /^PING (.*)$/i) {
    # We must respond to PINGs to avoid being disconnected.
    print $sock "PONG $1rn";
    print "PONG $1rn";
  } elsif ($response =~ /Any pirates around?/i) { #This is just a random test thing
    print $sock "PRIVMSG #dmu :Hell yes!nr";
    print "PRIVMSG #dmu :Hell yes!nr";
  } elsif ($response =~ /^:(.+)!~.+ JOIN :#dmu/i) { #This just says hello to people as they come into the room
    my $usersNick = $1;
    if ($usersNick eq $nick) {
      print $sock "PRIVMSG #dmu :Ahoy! Did you miss me?rn";
      print "PRIVMSG #dmu :Ahoy! Did you miss me?rn";
    } else {
      print $sock "PRIVMSG #dmu :Ahoy, $usersNick.rn";
      print "PRIVMSG #dmu :Ahoy, $usersNick.rn";
    }
  } elsif ($response =~ /^$nick, seen (.+).*?/i) { #Seen command
    print $sock "PRIVMSG #dmu :I can't do that just yet...rn";
    print "PRIVMSG #dmu :I can't do that just yet...rn";
  }
}

The problem with that is that I can’t do much with it… To do the seen command I want I’d need to do a ULIST -c #dmu and grab that output, but that’d make it go around the loop again… So, I’ll need to rethink that design…