Chat server: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,501: / Line 1,501: @@
     my ($id, $message) = @_;
     print "$message\n";
-    foreach my $i (0 .. $#open) {
+    foreach my $i (keys %users) {
         if ($i != $id) {
             $open[$i]->send("$message\n");
@@ Line 1,559: / Line 1,559: @@
     }
-    for (my $i = 0 ; $i <= $#open ; $i++) {
+    foreach my $i (keys %users) {
         my $conn = $open[$i];
@@ Line 1,582: / Line 1,582: @@
             else {
                 broadcast($i, "--- $users{$i} leaves ---");
-                splice(@open, $i--, 1);
+                delete $users{$i};
+                undef $open[$i];
             }
         }