#!/usr/bin/perl -w
use strict;
use Device::SerialPort;

my $serial = Device::SerialPort->new("/dev/ttyUSB0");

$serial->baudrate(115200);
$serial->databits(8);
$serial->purge_all();
$serial->rts_active(0);
$serial->dtr_active(0);

my $count=0;
open(datei, "<TomCat.ram") || die "Datei wurde nicht gefunden\n";
while(<datei>){
$count=$count+1;
}
close(datei);
$serial->read_const_time(1000);
open(datei, "<TomCat.ram") || die "Datei wurde nicht gefunden\n";
my $count2=0;
my $test="";
my $line="";

while(<datei> ){

	$count2=$count2+1;
	$line=$_;

	while($line =~s/\n//){
	};

	$serial->write("$line");  
	print "$count2/$count: $line\n";
	my $summe=0;
	my $buffer="";

	while (!($buffer =~ m/\+/)){
		my ($anzahl,$saw)=$serial->read(length($line)+1);
		$summe=$summe+$anzahl;	
		$buffer="$buffer$saw";
	}

	print "Rückgabe: $buffer \n";
	if (!($buffer=~/$line/)){

	die "Fehler\n";
	}

	
}
close(datei);

exit;