Skip to Content

Registrieren Anmelden

Industry Online Support

Technical Forum

Navigation

OBA7 Logger Perl

Erstellt von: worst_case am: 25.03.2012 11:09 (1 Antworten)

Bewertung (0)

Dank 0

2 Einträge

25.03.2012 11:09	Bewerten (0)
worst_case Mitglied Beigetreten: 12.12.2008 Letzter Bes: 18.06.2022 Beiträge: 3 Bewertung: (0)	Hallo, mit Interesse habe ich die Möglichkeiten des loggins von der neuen 0AB7 gelesen. Sofort eine gekauft und mit der Sprache meiner Wahl (Perl, Linux) programmiert. ..... natürlich geht nichts Ich habe das PHP Script als Vorgabe benutzt.... komme aber nicht auf meinen Fehler. IP stimmt denn mit der LOGO-Software komme ich über das Netz auf die Logo. Vielleicht kann einmal jemand drüber sehen. Ich sehe es nicht. [code] use strict; use warnings; use IO::Socket; my $rechnername ="192.168.20.67"; my $port = 10001; # Ausgaben werden nicht gepuffer sonder sofort ausgegeben local $\| = 1; my $socket = new IO::Socket::INET ( PeerAddr => $rechnername, PeerPort => $port, Type => SOCK_STREAM, Proto => 'tcp' ); die print("konnte Socket nicht oeffnen\n") unless defined $socket; my $befehl = "\0x55\0x13\0x13\0x00\0xAA"; my $stop = "\0x55\0x12\0x12\0xAA"; my $start = "\0x55\0x18\0x18\0xAA"; my $status = "\0x55\0x17\0x17\0xAA"; my $sendestring = "nichts"; $socket->send($stop); sleep(1); $socket->recv($sendestring,1); $socket->close(); print $sendestring; [/code] Gruß

Vorschlag Bedanken Zitat Antwort

03.12.2012 01:57	Bewerten (0)
luckygray Mitglied Beigetreten: 21.04.2012 Letzter Bes: 03.01.2023 Beiträge: 5 Bewertung: (0)	Ich bin gar kein perl guru. Die Sendestrings sind falsch aufgesetzt. Mit meinen bescheidenen perl Kenntnissen und Wireshark habe ich ein für mich lauffähiges perl Script gemacht. MfG -- LOGO! ? logo! Dateianhang LOGO_PL.zip (87 Downloads)

Vorschlag Bedanken Zitat Antwort

|

Teile diese Seite:

Teile diese Seite auf...

Verwandte Themen nach Schlüsselwörtern:

LOGO_Datenlogger

Folgen Sie uns auf