Hallo
Kann mir jemand bei einem entsprechenden Perl-Script weiterhelfen? Daten auf die serielle Schnittstelle zu schreiben funktioniert einwandfrei, doch kann ich mit dem Skript keine Daten empfangen bzw. ausgeben. Öffne ich eine neue Shell und gebe zusätzlich die Daten mit cat /dev/ttyS0 aus, funktioniert alles einwandfrei.
Hier der Code:
Code:
#!/usr/bin/perl
my $port = "/dev/ttyS0";
system("stty 57600 cs8 -F $port -echo);
open(READ, "<$port");
open(WRITE, ">$port");
print WRITE $cmd_version;
my @in = <READ>;
foreach my $ausgabe (@in)
{
print "Ausgabe: $ausgabe\n";
}
close(READ);
close(WRITE);
Sieht jemand das Problem? Besten Dank schon zum Voraus.
Lesezeichen