abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
    dnes 15:11 | Bezpečnostní upozornění

    V Redisu byla nalezena a v upstreamu již opravena kritická zranitelnost CVE-2025-49844 s CVSS 10.0 (RCE, vzdálené spouštění kódu).

    Ladislav Hagara | Komentářů: 0
    dnes 14:00 | IT novinky

    Ministr a vicepremiér pro digitalizaci Marian Jurečka dnes oznámil, že přijme rezignaci ředitele Digitální a informační agentury Martina Mesršmída, a to k 23. říjnu 2025. Mesršmíd nabídl svou funkci během minulého víkendu, kdy se DIA potýkala s problémy eDokladů, které některým občanům znepříjemnily využití možnosti prokázat se digitální občankou u volebních komisí při volbách do Poslanecké sněmovny.

    Ladislav Hagara | Komentářů: 2
    dnes 12:33 | Zajímavý software

    Společnost Meta představila OpenZL. Jedná se o open source framework pro kompresi dat s ohledem na jejich formát. Zdrojové kódy jsou k dispozici na GitHubu.

    Ladislav Hagara | Komentářů: 0
    dnes 03:33 | IT novinky

    Google postupně zpřístupňuje českým uživatelům Režim AI (AI Mode), tj. nový režim vyhledávání založený na umělé inteligenci. Režim AI nabízí pokročilé uvažování, multimodalitu a možnost prozkoumat jakékoliv téma do hloubky pomocí dodatečných dotazů a užitečných odkazů na weby.

    Ladislav Hagara | Komentářů: 0
    včera 18:11 | Nová verze

    Programovací jazyk Python byl vydán v nové major verzi 3.14.0. Podrobný přehled novinek v aktualizované dokumentaci.

    Ladislav Hagara | Komentářů: 2
    včera 16:33 | IT novinky

    Bylo oznámeno, že Qualcomm kupuje Arduino. Současně byla představena nová deska Arduino UNO Q se dvěma čipy: MPU Qualcomm Dragonwing QRB2210, na kterém může běžet Linux, a MCU STM32U585 a vývojové prostředí Arduino App Lab.

    Ladislav Hagara | Komentářů: 2
    včera 15:55 | Nová verze

    Multiplatformní open source voxelový herní engine Luanti byl vydán ve verzi 5.14.0. Podrobný přehled novinek v changelogu. Původně se jedná o Minecraftem inspirovaný Minetest v říjnu loňského roku přejmenovaný na Luanti.

    Ladislav Hagara | Komentářů: 0
    včera 13:22 | Nová verze

    Byla vydána nová stabilní verze 6.10 (YouTube) multiplatformního frameworku a GUI toolkitu Qt. Podrobný přehled novinek v poznámkách k vydání.

    Ladislav Hagara | Komentářů: 0
    6.10. 23:55 | Komunita

    Ubuntu 26.04 LTS bude (𝕏) Resolute Raccoon (rezolutní mýval).

    Ladislav Hagara | Komentářů: 5
    6.10. 21:00 | Nová verze

    Netwide Assembler (NASM) byl vydán v nové major verzi 3.00. Přehled novinek v poznámkách k vydání v aktualizované dokumentaci.

    Ladislav Hagara | Komentářů: 0
    Jaké řešení používáte k vývoji / práci?
     (39%)
     (45%)
     (15%)
     (17%)
     (21%)
     (15%)
     (17%)
     (15%)
     (15%)
    Celkem 196 hlasů
     Komentářů: 13, poslední dnes 07:41
    Rozcestník

    Dotaz: IRC Perl Bot

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

    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.