Script beenden ? - #76395 (Allgemeines zu Perl)

BrownWolf

2004-12-30 20:29

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

Ich hab ein ChatBefehl geschrieben der den Server neu starten soll. Er sendet eine Nachricht an alle eingeloggten Benutzer das der Chatserver in XX Sekunden neu gestartet wird. Zwischen der Nachricht und der Nachricht muss aber noch ein sleep damit er nicht gleich neu startet. Wenn ich dort aber ein sleep setze, dann stoppt der ganze Server für X Sekunden.

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;