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
Hallo,
ich bin immernoch dabei an meinem Chat zu programmieren.
Heut ist mir eine komische Sache aufgefallen.
Wenn man folgendes aufruft:
Dann gibt er alle 200 Sekunden ein Kommentar aus. Das soll dazu gut sein damit das Message Fenster aktiv bleibt und nicht stehen bleibt.
Doch bei mir in der While schleife öffne ich noch eine Pipe und lese daraus. Danach gebe ich den Text aus ....
Mein Perlcode Programm gibt aber nicht alle 200 Sekunden den Kommentar aus sondern nur wenn der Benutzer etwas abschickt und er aus der Pipe liest. Warum ist das so ?
Ich verstehe es bis jetzt noch nicht.
Gruß BrownWolf\n\n
<!--EDIT|BrownWolf|1065054977-->
ich bin immernoch dabei an meinem Chat zu programmieren.
Heut ist mir eine komische Sache aufgefallen.
Wenn man folgendes aufruft:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
$|=1;
my $recv = 0;
while(1) {
if($recv > 200) {
print "<!-- //--> ";
undef $recv;
}
sleep 1;
## Weiterer Programmcode
}
Dann gibt er alle 200 Sekunden ein Kommentar aus. Das soll dazu gut sein damit das Message Fenster aktiv bleibt und nicht stehen bleibt.
Doch bei mir in der While schleife öffne ich noch eine Pipe und lese daraus. Danach gebe ich den Text aus ....
Mein Perlcode Programm gibt aber nicht alle 200 Sekunden den Kommentar aus sondern nur wenn der Benutzer etwas abschickt und er aus der Pipe liest. Warum ist das so ?
Ich verstehe es bis jetzt noch nicht.
Gruß BrownWolf\n\n
<!--EDIT|BrownWolf|1065054977-->
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;