Witam Mam następujacy problem :
W bocie perlowym jak wiadomo zbieram z rawów przy pierwszym if'ie:Kod:if ($body =~ m/:(.*)!.*PRIVMSG (.*) :!mode/gis) { if ($1 eq $admin){ print $socket "MODE $nick\r\n"; if ($body =~ m/221 $nick (.*)/gis) { print $socket "PRIVMSG POKOJ :NICK_WYDAJACY_POLECENIE Mody :$1\r\n"; } } }
$1 - nick
$2 - pokoj
i chciałbym aby te zmienne zostały jakoś zachowane do wyniku z 3 if'a zreszta... Nie mam pomysłu bo po wysłaniu do serwera rawa "mode $nick" otrzymuje od niego mody na nicku które zbieram w 'if ($body =~ m/221 $nick (.*)/gis) ' ale serwer nie zwraca pokoju i nicku wiec mam problem jak teraz wyprinować wynik czyli pokoj na ktorym została wydana komenda i nick zupełnie nie mam pomysłu
Pozdrawiam