Opened by Mat at 2011-08-31 17:04
Hallo Perl Gemeinde
ich lese die serielle Schnittstelle ein. Danach splite ich die Eingabe für die Verarbeitung. Nun möchte ich, dass wenn "$message" das gleiche enthält wie "$message" bis zehn schleifen zuvor, das Skript nichts macht (print ""). Muss ich eine neue Schleife nach dem Aufspliten machen oder ist es komplizierter als angenommen?
Last edited: 2011-08-31 17:21:31 +0200 (CEST)
ich lese die serielle Schnittstelle ein. Danach splite ich die Eingabe für die Verarbeitung. Nun möchte ich, dass wenn "$message" das gleiche enthält wie "$message" bis zehn schleifen zuvor, das Skript nichts macht (print ""). Muss ich eine neue Schleife nach dem Aufspliten machen oder ist es komplizierter als angenommen?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
...
open(LOG,">>${LOGDIR}/${LOGFILE}") ||die "Logfile kann nicht geöffnet werden\n";
select(LOG), $| = 1;
open(DEV, "<$PORT") || die "Kann den Port $PORT: $_ nicht öffnen";
while($_ = <DEV>){
# Aufspliten der Nachricht für die Verarbeitung
($start, $ric, $date, $time, $message, $end) = split(/::/, $_);
print $message;
}
undef $ob;
Last edited: 2011-08-31 17:21:31 +0200 (CEST)