perl script vraagje: post & get extern script

[kookiewookie]

Hoi! Hoop dat iemand een suggestie, oplossing heeft:

Mijn vraag is nu het volgende:

In een php script heb ik het volgende wat werkt:

$m5 = md5($emailbe);
SendSB($socket, rtrim(str_replace('<br />', "\r\n", nl2br(html_entity_decode(strip_tags(GetBetween(postAndFetch(myndomein, '/program/interface/talk.php', array('input' => $message, 'PHPSESSID' => $m5, 'botname' => 'Mybotname')), '<B>Mybotname: ', '<BR>')))))));

In PERL zou dit ongeveer er zo uit moeten zien volgens mij en anderen:

use Digest::MD5 qw(md5);
my $md5 = md5($emailbe);

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $response = $ua->post('http://mydomainname.com/program/interface/talk.php',
[
'input' => $message,
'PHPSESSID' => $md5,
'botname' => 'Mybotname'
]);
my $answer = $response->content =~ m[<B>Mybotname: (.*?)<BR>]sg;
$answer =~ s[<br />][\r\n]isg; # I think you'll only need \n, but w/eva

$self->sendMessage($answer);

MAAR dit klopt nog niet helemaal...... ergens zit er iets niet goed want ik krijg een 1 steeds terug... m.a.w. de verbinding naar dit externe php script loopt niet helemaal lekker....


Ik draai ActivePerl.. laatste versie en heb een hele zooi extra modules erin geknald voor de zekerheid:Alles met LWP... en Fetch ... en www.


Enig idee? Suggestie? Oplossing?

Veel dank!!