RO-fan

Код: Выделить всё

my $com = Commands::register (
   ["writename", "Write nickname and result to file.", \&filewrite],
   ["checkname", "check nickname existance in file.", \&fileread],
);

Код: Выделить всё

sub fileread{
   # Насколько я понял тянем инфу после команды [u]checkname[/u]? Там 1 параметр, больше пока не нужно, вопрос только считывает ли эта байда пробел между [u]checkname и параметром[/u]?
   shift;
   my $param = shift;
   open(USERLIST, "< /plugins/botDestroyerUserlist.txt");
      while(<USERLIST>){
         ($nickname, $result) = split(' ');
         if ($param = $nickname) {
            message "---$nickname is already in list---\n";
         }
      }
   close(USERLIST);
}

Код: Выделить всё

sub filewrite{
   shift;
   my $param = shift;
   open(USERLIST,">> /plugins/botDestroyerUserslist.txt");
      print USERLIST "$param\n";
      # Корректно? Если например будет "do writename Nickname success". Оно запишет "Nickname success"?
   close(USERLIST);
}