Kontinuierlich Net-Stream anzeigen - #154455 (Allgemeines zu Perl)

topeg

2011-11-24 13:17

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Um mit ein paar Missverständnissen auf zu räumen.
Was du da hast ist kein Stream. Bei einem Stream bleibt die Verbindung bestehen. Bei dir wird ein disconnect ausgeführt.
Die Daten sind nicht verschlüsselt. Eine Verschüsselung dient dazu das sinnvolle Interpretieren von Daten zu verhindern. Deine Daten sind nur kodiert. Der Inhalt nur ist Platzsparend verpackt und es gibt feste Regeln um die Daten lesbar zu extrahieren.

Die Konstruktion:

Code (perl): (dl )

foreach  my $v (split("\r",$buffer))
{
  print STATION $v."\n";
}

Ist unnötig komplex. Du kannst auch das schreiben:

Code (perl): (dl )

1
2

$buffer=~s/\r/\n/gs;
print STATION $buffer;

wobei ich vermute dass du auch einfach

Code (perl): (dl )

print STATION $buffer;

schreiben kannst.

Zu deinem Problem.
Schaue dir genau an was die einzelnen Funktionen in PHP machen und bilde sie in perl exakt nach. Perl und PHP sind sind sich so ähnlich, dass du dann das Hauptprogramm fast 1zu1 übernehmen kannst.