Pokaż wyniki 1 do 5 z 5

Temat: Serwery perl

  1. #1
    Avatar Hardiel
    Hardiel jest offline Damian
    Zarejestrowany
    May 2008
    Skąd
    Kielce
    Postów
    121

    Domyślnie Serwery perl

    Wiem ze Ciagle Wam truje ze skryptami a raczej Ci (TQM), ale to juz na dzis ostatni :P
    Problem jest nastepujacy:

    Mam bota w irssi i podlaczam go do 2 serwerow np.

    irc i ircnet i chcialbym zeby np. komenda wydana na irc byla wykonanana na ircnet
    Czy jest to realne?
    Probowalem na wiele sposobow zawsze zwraca wynik na serwerze na ktorym zostala wydana
    Pozdrawiam

  2. #2
    Zarejestrowany
    Jun 2006
    Skąd
    rand(.eu)
    Postów
    8,748

    Domyślnie

    Powiem szczerze... nie pamietam
    Ostatni raz pod irssi pisalem skrypty jakies hmmmm 5-6 lat temu prawie ale cos mi swita, ze gdzies widzialem gotowy taki skrypt... obraz za mgla i te sprawy hihi ale gdzies to juz widzialem - wykonywanie polecen na kilku serwerach jednoczesnie.
    ctrl-alt-del.cc - soft reset site for IT admins and other staff :-)

  3. #3
    Avatar Hardiel
    Hardiel jest offline Damian
    Zarejestrowany
    May 2008
    Skąd
    Kielce
    Postów
    121

    Domyślnie

    Próbowalem na 'hardcorowe' sposoby ze tak powiem typu win 2 (narzucanie okienka) i msg ale zawsze to samo moze by tak rozpisac jakos zmienna $server->command i narzucic gotowy serwer? :>


    Kod:
    sub kom {
    my ($server, $data, $nick, $rec) = @_;
    my ($chan, $text)=split(/ :/, $data, 2);
    return unless $nick eq 'Hardiel';
    if ($text =~ m/!powitaj (.*)/i) {
    $target = $1;
    $server->command("msg #lol $target witaj!");
     }
     }
    Irssi::signal_add("event privmsg", "kom");
    Dodam kod dla przykladu tego $server
    Ostatnio edytowane przez Hardiel : 05-22-2008 - 20:46

  4. #4
    Zarejestrowany
    Jun 2006
    Skąd
    rand(.eu)
    Postów
    8,748

    Domyślnie

    Tak jak widac z kodu, irssi przekazuje uchwyt wywolujac handler, tak wiec procedurka ktora napiszesz bedzie dzialac na konkretnym polaczeniu do konkretnego serwera - tego ktory irssi przekazalo jako parametr wywolania funkcji. Musialbys sprawdzic w dokumentacji irssi czy jest mozliwosc zmiany tego jakos z poziomu kodu - mozliwe, ze polaczenia do serwerow beda w jakiejs tablicy czy cos... ale jedyne co moge tutaj powiedziec to RTFM lub UTSL ('Use the source, Luke') bo najzwyczajniej nie mam pojecia. Nigdy tego nie robilem w swoim kodzie.
    ctrl-alt-del.cc - soft reset site for IT admins and other staff :-)

  5. #5
    Avatar Hardiel
    Hardiel jest offline Damian
    Zarejestrowany
    May 2008
    Skąd
    Kielce
    Postów
    121

    Domyślnie

    Wiele szukałem w dokumentacij zawsze sie tam odwoluja do [serwer] i wtedy trzeba zmienna $server zastosowac ale nigdzie nei uwzglednili jak ta zmienna sie rozbija I tu jest problem trudno odpuszcze sobie dzieki za proby
    Pozdrawiam

Podobne wątki

  1. [Perl] Kurs Perl - cz.1 - wprowadzenie i podstawy
    By TQM in forum Perl/Python/TCL/Prolog
    Odpowiedzi: 22
    Autor: 10-27-2014, 00:50
  2. Odpowiedzi: 18
    Autor: 07-14-2009, 11:55
  3. Perl los
    By Hardiel in forum Perl/Python/TCL/Prolog
    Odpowiedzi: 7
    Autor: 05-22-2008, 14:21
  4. Odpowiedzi: 31
    Autor: 05-20-2008, 17:01
  5. Serwery Sun - second hand
    By TQM in forum AIX/HP-UX/IRIX/SUN/SCO
    Odpowiedzi: 3
    Autor: 08-15-2007, 23:07

Zasady Postowania

  • Nie możesz zakładać nowych tematów
  • Nie możesz pisać wiadomości
  • Nie możesz dodawać załączników
  • Nie możesz edytować swoich postów
  •  
Subskrybuj