abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×

    dnes 08:00 | Humor

    Dnes je to 10 let, co byla vytvořena decentralizovaná kryptoměna Dogecoin. Autoři Billy Markus a Jackson Palmer ji původně zamýšleli jako vtip. Znakem kryptoměny je pes Shiba-Inu známý z internetových memů.

    JZD | Komentářů: 1
    dnes 07:00 | Nová verze

    Google Chrome 120 byl prohlášen za stabilní. Nejnovější stabilní verze 120.0.6099.62 přináší řadu oprav a vylepšení (YouTube). Opraveno bylo 10 bezpečnostních chyb. Vylepšeny byly také nástroje pro vývojáře (YouTube).

    Ladislav Hagara | Komentářů: 0
    včera 20:55 | Nová verze

    Byla vydána nová verze 2023.4 linuxové distribuce navržené pro digitální forenzní analýzu a penetrační testování Kali Linux (Wikipedie). Přehled novinek se seznamem nových nástrojů v oficiálním oznámení. Vypíchnout lze podporu Cloud ARM64, Vagrant Hyper-V a Raspberry Pi 5.

    Ladislav Hagara | Komentářů: 0
    včera 17:00 | IT novinky

    Společnosti IBM, Meta a dalších vice než 50 zakládajících členů (bez Microsoftu a OpenAI) vytvořili mezinárodní alianci AI Alliance pro spolupráci na vývoji a rozvoji otevřené, bezpečné a odpovědné umělé inteligence.

    Ladislav Hagara | Komentářů: 16
    včera 14:44 | IT novinky

    Služba pro hlídání uniklých hesel Have I Been Pwned oslavila 10. výročí. Troy Hunt ji spustil 4. prosince 2013 (Twitter).

    Ladislav Hagara | Komentářů: 2
    včera 06:00 | Humor

    Programovací jazyk HTML.

    Ladislav Hagara | Komentářů: 5
    4.12. 23:00 | Upozornění

    Podpora TORu v Debianu 11 Bullseye a 10 Buster byla ukončena. Doporučuje se přechod na Debian 12 Bookworm.

    Ladislav Hagara | Komentářů: 0
    4.12. 22:33 | IT novinky

    Příkaz "opakuj donekonečna" je nově v rozporu s podmínkami používání ChatGPT. Příkaz vedl k prozrazení trénovacích dat [/.].

    Ladislav Hagara | Komentářů: 7
    4.12. 21:55 | Nová verze

    GNU Project Debugger aneb GDB byl vydán ve verzi 14.1. Podrobný přehled novinek v souboru NEWS. Vypíchnout lze podporu NO_COLOR a Debugger Adapter Protocol (DAP).

    Ladislav Hagara | Komentářů: 0
    4.12. 16:55 | Nová verze

    Byla vydána verze 5.0 webového aplikačního frameworku napsaného v Pythonu Django (Wikipedie). Přehled novinek v poznámkách k vydání.

    Ladislav Hagara | Komentářů: 0
     (38%)
     (12%)
     (50%)
    Celkem 66 hlasů
     Komentářů: 1, poslední 4.12. 22:13
    Rozcestník

    Dotaz: IRC Perl Bot

    9.6.2009 18:19 Mr.S1lent.cz
    IRC Perl Bot
    Přečteno: 381×

    Zdravim,

     

    zacal jsem psat IRC bota v Perlu, v ramci cviceni, ponevadz jsem se tento jazyk zacal nedavno ucit. Zatim se umi jen prihlasit na zadany kanal v connection objectu. Pridal jsem tam i funkci na test obsahu "skla" IRC chatu, ktery projizdim regularem (resp command handler), avsak mi z neznamych duvodu nefunguje... Uz to resim tyden, vim, ze pred tydnem to tak pet minut slo, pote jsem tam neco prepsal a od te doby to nemuzu a nemuzu rozjet. Byl bych vam vdecny za jakekoliv rady, zdrojak mam na pastebin, tady je link:

     

    http://pastebin.com/m4ccd3d6

     

    moc dekuju, uz si opravdu nevim rady :-(

    Odpovědi

    10.6.2009 04:54 zha
    Rozbalit Rozbalit vše Re: IRC Perl Bot
    Jestli nejsou problemy s pripojenim, tak mas chyby v kodu:
    sub command {
    ...
      if ($text =~ /^\!(.+)$/) {
        command_output($conn, $text); # $1 ?
    
    sub command_output {
    ...
      if (/^test$/) { # nebo vykricnik ?
    A taky bude potreba neco jako
    $conn->add_handler('neco', \&command);
    10.6.2009 09:03 Mr.S1lent.cz
    Rozbalit Rozbalit vše Re: IRC Perl Bot

    Dekuji moc, ale stale to bohuzel nefunguje, v prvnim pripade jsem $text nahradil $1, v druhem pripade jsem pridal else s negujicim vystupem (Text neprobehl uspesne), tudiz to by to melo resit pripadnou chybu (ale i tak jsem se inspiroval tutorialem, kde to meli resene takhle) a pres handler to taky checkuju, ale stale nic... problem s pripojenim, to bych nerekl, mam stabilni ping a bot se pripoji bez problemu :-)

    Neni potreba jeste nejaky jiny modul, nez Net::IRC nebo kde by mohla byt chyba? Ja uz opravdu z toho sedivim :-(

     


     

    10.6.2009 18:58 Mr.S1lent.cz
    Rozbalit Rozbalit vše Re: IRC Perl Bot

    Resp. tady je upraveny kod v soucasne podobe: http://pastebin.com/m5b883f58

     

    Pridal jsem tam vypis pomoci $conn->privmsg(); pri join, coz se provede kladne, pote jsem zjednodusil tu cast commands, ale i presto to nikdy nic nevypise, stale nikdo nevi, kde by mohla byt chyba?....

    12.6.2009 00:25 zha
    Rozbalit Rozbalit vše Re: IRC Perl Bot
    Kde jsi prisel na 'syntax_error' ? Ja to v eventech nevidim (http://search.cpan.org/perldoc?Net::IRC::Event). Dej tam 'public'.
    12.6.2009 14:10 Mr.S1lent.cz
    Rozbalit Rozbalit vše Re: IRC Perl Bot

    Dekuji mnohokrat, sice jsem to vyresil, jeste nez mi bylo odpovezeno, ale i tak vas to stalo urcite nejaky ten cas...

     

    Nyni funguje vsechno jak ma, ale neprisel jsem bohuzel na zpusob, jak zjistit prava jednotlivych nicku.

    Mam takovou myslenku, ze bot bude zvladat radu veci na zakladne danych prikazu i kicky a bany nehlede na

    nastaveni danych veci do db apod... Pouzivam tam modul Net::IRC, ktery se chova tak, ze pomoci $conn->prikaz( parametry )

    muzu pouzivat defacto jakekoliv irc prikazy. Prikaz "whois" vypisuje mimojine i to, ve kterych mistnostech se dany uzivatel nachazi

    a i to, jaka ma prava, coz vypisuje na zaklade prefixu u danych mistnosti - napr: +#room @#room nebo %$room, coz by se dalo

    protahnout grepem a vybrat, co potrebuji, to neni slozite, problem je v tom, ze jsem udelal nasledovnou vec:

     

    my $hodnota = $conn->whois( #kanal, $nick ); a pak jsem ji projel dumperem takto: dumper \$hodnota;

    ale bohuzel mi to vypisuje pouze $VAR1 = '24'; mebo jine cislo (u kazdeho nicku je to jine), proto bych se chtel zeptat,

    jestli ty data jdou z te promenne $hodnota nejak vydolovat, nebo jestli mam pouzit jinou metodu, v tom pripade prosim poradte jakou,

     

    moc diky

     

    Mr.S1lent.cz

    13.6.2009 04:54 zha
    Rozbalit Rozbalit vše Re: IRC Perl Bot
    whois (stejne jako dalsi funkce) jen odesle ten prikaz serveru, odpoved nezpracovava. To co ti to vratilo je delka odeslanych dat. Odpoved serveru si musis ohandlovat sam (add_handler) - seznam odpovedi je treba tady: http://www.faqs.org/rfcs/rfc1459.html

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.