Serielle/Parallele Schnittstelle unter Windows XP - #7220 (Perl/CGI)

Dubu

2006-03-31 00:51

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

[quote=Wulli,30.03.2006, 19:43]
Run/Debug zeigt zwar keinen Fehler, aber funktionieren tut's auch nicht...[/quote]
Entschuldige, aber das ist doch auch kein sinnvoller Perlcode. Wo hast du das her?

Code: (dl )

#! c:\perl\bin\perl

Hier fehlen
use strict; use warnings;
Das hätte dir beim Debuggen geholfen.

Code: (dl )

1
2
3

#com1 öffnen
use Win32::SerialPort;
$port="com2";

Hier belegst du eine nicht deklarierte Variable $port mit dem Text "com2".

Code: (dl )

my $port = Win32::SerialPort->new ("COM2");

Hier deklarierst du die eben benutzte Variable neu und weist ihr ein neu erzeugtes Win32::SerialPort-Objekt zu.

Code: (dl )

open("com2");

Hier öffnest du eine Datei(!) namens "com2" auf einem Filehandle "com2". (Diese Variante, dass die Datei den gleichen Namen wie das Filehandle hat, ist recht ungewöhnlich, aber gültiges Perl.) Da du keine Fehler abfängst, fällt dir nicht auf, dass das wahrscheinlich fehlschlägt, weil es im aktuellen Verzeichnis keine Datei mit diesem Namen gibt.

Code: (dl )

1
2

TIOCM_RTS;
TIOCM_DTR;

Zwei Konstanten im void-Kontext?

Code: (dl )

(com2, TIOCMBIS, NULL);

Eine Liste mit drei Barewords im void-Kontext, wenn ich das richtig sehe. Bewirkt höchstwahrscheinlich gar nichts.

Sorry, aber da kann ich nicht mal entfernt draus erkennen, was gemeint ist.