Help for this page

Select Code to Download


  1. or download this
    sub AddToUserArray {
    my ($UserID) = @_; # Like this because it scales well for many par
+ams
...
    push @Participants, $UserID;
    return; # Generally better to return undef than 0
}
  2. or download this
    use strict;
use warnings;
...
Annie Red Team
Lee Green Team
Steve Green Team
  3. or download this
        next if ! defined ($name) || exists $Participants{$name};
    $Participants{$name} = $tail;