Perl und ttyS1

Angelo Bindi Angelo.Bindi at weltbild.de
Wed Jan 12 09:07:50 CST 2000


* * * vienna-pm-list * * *


Hallo alle zusammen,

bin ein blutiger Anänger in Perl. Würde jedoch gerne wissen wie es
möglich ist unter Linux eine Serielle Kommunikation zu
protokollieren.Mein vieleicht naiver Ansatz war nun folgende Scripte -
die, wie war es anders zu erwarten, nicht funktionieren :-( .


#!/usr/bin/perl -w

use strict;

open(SERIAL_IN_ttyS0,"/dev/ttyS0") || die "Konnte serielle
Leseverbindung zu Port ttyS0 nicht oeffnen. Folgender Fehler trat auf
->  $!.\n";
    open(SERIAL_OUT_ttyS1,">>/dev/ttyS1") || die "Konnte
Schreibverbindung zu Port ttyS1 nicht oeffnen. Folgender Fehler trat auf
-> $!.\n";
 open(SERIAL_IN_LOG_ttyS0,">>/tmp/serial_in_log_tty0") || die "Konnte
Schreibverbindung zur Datei /tmp/serial_in_log_tty0 nicht oeffnen.
Folgender Fehler trat auf -> $!.\n";

  while (<SERIAL_IN_ttyS0>) {
   chomp $_;
   print "$_\n";
   print SERIAL_OUT_ttyS1 "$_\n";
   print SERIAL_IN_LOG_ttyS0 time.".$_\n";
  }

close(SERIAL_IN_ttyS0) || die "Konnte serielle Leseverbindung ttyS0
nicht schliessen. Folgender Fehler trat auf -> $!.\n";;
    close(SERIAL_OUT_ttyS1) || die "Konnte serielle Schreibverbindung
ttyS1 nicht schliessen. Folgender Fehler trat auf -> $!.\n";
 close(SERIAL_IN_LOG_ttyS0) || die "Konnte Schreibverbindung zur Datei
/tmp/serial_in_log_tty0 nicht schliessen. Folgender Fehler trat auf ->
$!.\n";


Dies war die eine hälft und nun die zweite, die den gelesenen "Kram"
wieder rausschicken soll.


#!/usr/bin/perl -w

use strict;

open(SERIAL_IN_ttyS1,"/dev/ttyS1") || die "Konnte serielle
Leseverbindung zu Port ttyS1 nicht oeffnen. Folgender Fehler trat auf
->  $!.\n";
    open(SERIAL_OUT_ttyS0,">>/dev/ttyS0") || die "Konnte
Schreibverbindung zu Port ttyS1 nicht oeffnen. Folgender Fehler trat auf
-> $!.\n";
 open(SERIAL_IN_LOG_ttyS1,">>/tmp/serial_in_log_tty1") || die "Konnte
Schreibverbindung zur Datei /tmp/serial_in_log_tty1 nicht oeffnen.
Folgender Fehler trat auf -> $!.\n";

    while (<SERIAL_IN_ttyS1>) {
   chomp $_;
   print "$_\n";
   print SERIAL_OUT_ttyS0 "$_\n";
   print SERIAL_IN_LOG_ttyS1 time.".$_\n";
  }

close(SERIAL_IN_ttyS1) || die "Konnte serielle Leseverbindung ttyS1
nicht schliessen. Folgender Fehler trat auf -> $!.\n";;
    close(SERIAL_OUT_ttyS0) || die "Konnte serielle Schreibverbindung
ttyS0 nicht schliessen. Folgender Fehler trat auf -> $!.\n";
 close(SERIAL_IN_LOG_ttyS1) || die "Konnte Schreibverbindung zur Datei
/tmp/serial_in_log_tty1 nicht schliessen. Folgender Fehler trat auf ->
$!.\n";

Vieleicht kann mir ja jemand helfen :-))) ?????


ciao
Angelo

###
You are subscribed to vienna-pm-list
http://www.fff.at/fff/vienna.pm/



More information about the Vienna-pm mailing list