Script beenden ? - #76380 (Allgemeines zu Perl)

BrownWolf

2003-12-19 01:32

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

Ok jetzt möchte ich das eine Meldung nur zu einem bestimmten Socket gesendet wird.
Ich dachte es mir so:

Code (perl): (dl )

our %private;
if($client eq $server) {
     $client = $server->accept();
     $select->add($client);
     $private{"musteruser1"} = $client;

 .....

}

Später wenn man diesen Client etwas senden möchte:

Code (perl): (dl )

1
2

my $sock = $private{"musteruser1"};
print $sock "Meldung....";

Funktioniert auch schon soweit, nur das wenn mehr als 1 Benutzer verbunden sind, dann kommt diese Nachricht mehrmals an! Weiss jemand warum :P ?\n\n

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;