UBB.Developers Forums Community Development Programming PHP and Server-side Scripting [Perl] File IO

   my $pm_user_exists = 0;
   foreach $psn (@thegoodguys) { 
      if ($psn eq $pm_command[1]) {
         $pm_user_exists = 1;
      }
   }
   if ($pm_user_exists ne '1') {
      $mymsg = &html(qq~<b>$pm_command[1]</b> is not a registered Member of TPMBot.~);
      goto PMNOUSERNAME;
   }

   my $pm_user_exists = 0;
   foreach $psn (@thegoodguys) { 
      if ($psn eq $pm_command[1]) {
         $pm_user_exists = 1;
         last; # so that if we have a match at the beginnig, 
               # we dont waste our time with an unnecessary loop
      }
   }
   if ($pm_user_exists != 1) {# for numbers, always use numerical operators...
      $mymsg = &html(qq~<b>$pm_command[1]</b> is not a registered Member of TPMBot.~);
      goto PMNOUSERNAME;
   }

   PMNOUSERNAME: $nothing = '1';

   PMNOUSERNAME: $nothing = 1;