#!perl -w

use strict;
use Win32::SerialPort;

my ($count, $result);
$count = 0;
$result = "#";

my $pruefling = new Win32::SerialPort ("COM1") || die "Konnte den Port für den Prüfling nicht öffnen!";


print "Port ist nun geöffnet!\n";
$pruefling->user_msg("ON");
$pruefling->databits(8);
$pruefling->baudrate(1200);
$pruefling->parity("none");
$pruefling->stopbits(1);
$pruefling->handshake("none");
$pruefling->write_settings || undef $pruefling;


print "Einrichten fertig!\n";

$pruefling->read_interval(300); # Zeit Zwischen einzelnen Zeichen, bei Überschreitung Abbruch
$pruefling->read_const_time(1000); # Maximale Gesamtzeit zum Einlesen von Zeichen, dann Abbruch
$pruefling->write("#036\r");

($count, $result) = $pruefling->read(80); # Entweder 80 Zeichen einlesen, oder Zeitaus
print "count = $count, result = $result\n";


undef $pruefling;