Opened by BrownWolf at 2003-10-02 04:35
User since
2003-08-15
308 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
308 Artikel
BenutzerIn
Nein mir kommt das so vor als ob das Programm so vorgeht:
Also ob er nur die Schleife erneut durchlaufen würde wenn er aus der FIFO liest. Aber warum iss das so?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
$|=1;
my $recv = 0; # Setze $recv auf 0
while(1) {
$recv++;
if($recv > 200) { # Wenn $recv über 200 ist
print "<!-- //--> "; # Gebe den Kommentar aus
undef $recv; # Setze $recv auf undef
}
open(FIFO,"<fifo"); # Öffne FIFO
my @read = <FIFO>; # Lese Inhalt
close(FIFO); # Schliesse Fifo
# Warte hier solange bis überhaupt was ausgelesen wurde.
foreach(@read) {
............
}
sleep 1; # Halte das Programm dann für 1 Sekunde an
}
Also ob er nur die Schleife erneut durchlaufen würde wenn er aus der FIFO liest. Aber warum iss das so?
Code (perl): ()
1 2 3
sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};; ${{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};${{}->{q{{{}}}}->[@{{}];} ${{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;