[Perl] Perlhilfe benötigt

[Dooboy]

Hi,

nun versuche ich mich an Perl.

Ich muss eine Lösung finden um per Telnet auf eine AGFEO (TK-Anlage) zuzugreifen und dann darauf warten das ein neuer Anfruf erfolgt.

Wenn ein Anruf erfolgt, muss eine url aufgerufen werden die per GET/POST , die Anrufer Daten sendet.

So nun mal bis wohin ich gekommen bin:

Telnet verbindung aufgebaut

$t->waitfor('/[* ]/i'); # Nach den Einloggvorgang kommt eine Blanke Seite, hoffe die regex ist richtig

$lastLine="";
$para = "";
while($t){
if($lastLine!=$t->getline()){
$para .= $t->getline(); # Parameter zusammenbau
}

$lastLine = $t->getline();

## Hier müsste dann der Aufruf erfolgen, OHNE das Script zu unterbrechen

}

$t->close();

Es sind bestimmt viele Fehler, drinne.
Das ist mein erster Kontakt zu Perl, läuft dafür aber schon gut.

Dachte auch das ich es Fertig hätte, aber da habe ich wohl nicht ganz zugehört, als die Wünsche geäußert worden sind.

Ich hoffe hier wird mir geholfen