Thread Fehler bei While mit sleep (2 answers)
Opened by kami at 2010-11-11 15:22

kami
 2010-11-11 15:22
#142639 #142639
User since
2010-03-17
92 articles
BenutzerIn
[default_avatar]
Hi,

ich bin Newbie, deswegen sorry die Blöde Frage. Aber ich kriege immer keinen Output bei folgendem Skript, wenn ich in die While Schleife ein Sleep mit aufnehme. Und die Datei wird auch nicht immer nur mit dem Inhalt "0" beschrieben. Nur Append klappt bei dem File.

Gruß kami

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
#!/usr/bin/perl

use warnings;
use strict;

use Device::SerialPort;



my $port = Device::SerialPort->new( "/dev/ttyUSB0" );
$port->baudrate(57600);
$port->databits(8);
$port->stopbits(1);
$port->parity("none");

my $bytestring ="";
my $status =0;


while(1) {


  my $byte=$port->read(1);
     
      if ($byte =~ /L/) {
           $bytestring="";
                   $status=1;
      }
      
      if ($status==1) {
          $bytestring=$bytestring.$byte; 
      }
      if ($byte =~ /;/) {
          my @data = split(/=/, $bytestring);
           
             if ($data[0] =~ /L/) {
               if (scalar(@data)>3) {
               
                  

               }
               else  {
      
                  if (($data[scalar(@data)-1]=~ /20/)) {
                  print "Check Okay";
                  
                  
               }             
               }
            }   
           $status=0;

          }
          else 
          {
          
          print "Failure";
       
          open (FILE, '>statusrf12.txt');

         
          print FILE "0";
          close FILE;
          }
    sleep(3);

     }

View full thread Fehler bei While mit sleep