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 17:55 | Zajímavý projekt

    Společnost Hugging Face ve spolupráci se společností Pollen Robotics představila open source robota Reachy Mini (YouTube). Předobjednat lze lite verzi za 299 dolarů a wireless verzi s Raspberry Pi 5 za 449 dolarů.

    Ladislav Hagara | Komentářů: 0
    11.7. 16:44 | Komunita

    Dnes v 17:30 bude oficiálně vydána open source počítačová hra DOGWALK vytvořena v 3D softwaru Blender a herním enginu Godot. Release party proběhne na YouTube od 17:00.

    Ladislav Hagara | Komentářů: 3
    11.7. 14:55 | Humor

    McDonald's se spojil se společností Paradox a pracovníky nabírá také pomocí AI řešení s virtuální asistentkou Olivii běžící na webu McHire. Ian Carroll a Sam Curry se na toto AI řešení blíže podívali a opravdu je překvapilo, že se mohli přihlásit pomocí jména 123456 a hesla 123456 a získat přístup k údajům o 64 milionech uchazečů o práci.

    Ladislav Hagara | Komentářů: 15
    11.7. 00:11 | Nová verze

    Byla vydána (𝕏) červnová aktualizace aneb nová verze 1.102 editoru zdrojových kódů Visual Studio Code (Wikipedie). Přehled novinek i s náhledy a videi v poznámkách k vydání. Ve verzi 1.102 vyjde také VSCodium, tj. komunitní sestavení Visual Studia Code bez telemetrie a licenčních podmínek Microsoftu.

    Ladislav Hagara | Komentářů: 0
    10.7. 21:00 | Bezpečnostní upozornění

    Byla vydána nová verze 2.4.64 svobodného multiplatformního webového serveru Apache (httpd). Řešeno je mimo jiné 8 bezpečnostních chyb.

    Ladislav Hagara | Komentářů: 4
    10.7. 15:22 | Nová verze

    Společnost xAI na síti 𝕏 představila Grok 4, tj. novou verzi svého AI LLM modelu Grok.

    Ladislav Hagara | Komentářů: 12
    10.7. 12:55 | Bezpečnostní upozornění

    Ministerstvo vnitra odhalilo závažný kyberincident v IT systému resortu. Systém, do kterého se dostal útočník bez oprávnění, byl odpojen a nedošlo k odcizení dat [𝕏].

    Ladislav Hagara | Komentářů: 16
    10.7. 11:55 | Humor

    Před rokem byla streamovací služba HBO Max přejmenována na Max. Dle managementu slovo HBO v názvu nebylo důležité. Včera byl Max přejmenován zpět na HBO Max. Kolik milionů dolarů to stálo? 😂

    Ladislav Hagara | Komentářů: 16
    10.7. 02:11 | Nová verze

    Byla vydána nová major verze 8.0.0 svobodného systému pro detekci a prevenci průniků a monitorování bezpečnosti počítačových sítí Suricata (Wikipedie). Přehled novinek v oficiálním oznámení a v aktualizované dokumentaci.

    Ladislav Hagara | Komentářů: 0
    10.7. 01:11 | Nová verze

    Mastodon (Wikipedie) - sociální síť, která není na prodej - byl vydán ve verzi 4.4. Přehled novinek s náhledy a videi v oznámení na blogu.

    Ladislav Hagara | Komentářů: 1
    Jaký je váš oblíbený skriptovací jazyk?
     (59%)
     (27%)
     (7%)
     (3%)
     (1%)
     (1%)
     (4%)
    Celkem 391 hlasů
     Komentářů: 16, poslední 8.6. 21:05
    Rozcestník

    Dotaz: Perl MIME::Parser - jak ziskat text zpravy

    15.10.2005 00:22 Zubbik
    Perl MIME::Parser - jak ziskat text zpravy
    Přečteno: 396×
    Ahoj, uz nejakou tu chvili se tu potykam s problemem, jak dostat text z tela e-mailu. Timto stylem ziskavam ostatni hodnoty, ktere potrebuji:
    my $parser=new MIME::Parser;
    $parser->ignore_errors(1);
    $parser->extract_uuencode(1);
    $parser->tmp_recycling(0);
    $parser->output_to_core(1);
    my $entity=$parser->parse(\*STDIN);
    
    my $from=$entity->head->get('From');
    my $to=$entity->head->get('To');
    my $subject=$entity->head->get('Subject');
    Poradite mi nekdo, jak z toho dostat i telo zpravy?

    Diky

    Odpovědi

    15.10.2005 00:44 unchallenger | skóre: 69 | blog: unchallenger
    Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
    Zkusils vyhledávání? Dokonce jsem sem snad někdy dával celý skript, který to používal.
    15.10.2005 10:24 Zubbik
    Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
    Zkusil jsem vyhledavani zde, zkusil jsem vyhledavani v Googlu, procetl jsem kde co, ale proste ten text z toho nemuzu dostat. Dostanu z toho e-mailu vsechno vcetne priloh, ale s textem zpravy si proste nevim rady. :-(
    15.10.2005 10:34 unchallenger | skóre: 69 | blog: unchallenger
    Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
    Mezi tělem zprávy a příhlohami není žádný rozdíl. Dostaneš-li všechny přílohy, je mezi nimi i tělo zprávy.
    15.10.2005 10:50 Zubbik
    Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
    A dokazal bys mi poradit konkretne, kdyz prilohy ukladam nize uvedenym stylem, jak z toho to telo zpravy dostat?
    my @parts=$entity->parts;
    my $aname='attachment001';
    while(my $part = shift(@parts)) {
        if($part->parts) {
            push @parts,$part->parts; # Nested multi-part
            next;
        }
        my $type=$part->head->mime_type || $part->head->effective_type;
        if($type !~ /^(text|message)/i) { # Not a text, save it
            my $filename=$part->head->recommended_filename || $aname;
            $aname++;
            my $io=$part->open("r");
            open(F,"> $attachdir/$filename");
            my $buf;
            while($io->read($buf,1024)) {
                print F $buf;
            }
            close(F);
            $io->close;
        }
    }
    15.10.2005 11:02 unchallenger | skóre: 69 | blog: unchallenger
    Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
    Perl je write-only, takže ne ;-)

    Ale následující triviální skript uloží do aktuálního adresáře přílohy jednoho mailu ze standardního výstupu pod jejich názvy a tělo mailu pod názvem typu msg-28630-1.txt (to je defaultní nastavení, předefinování jsem ukazoval v nějaké minulé diskusi):
    #!/usr/bin/perl
    use MIME::Parser;
    
    my $parser = new MIME::Parser;
    $parser->output_dir('.');
    undef $/;
    $parser->parse_data( <STDIN> );
    
    15.10.2005 11:23 unchallenger | skóre: 69 | blog: unchallenger
    Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
    s/standardního výstupu/standardního vstupu/
    15.10.2005 11:37 Zubbik
    Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
    Jak jednoduche. V tom mym skriptu, ktery jsem mimo jine nasel nekde tady :-), staci pouze zakomentovat podminky, ktere urcuji, aby se ulozily pouze prilohy. Potom se mi ulozi i telo. A to melo napadlo na zaklade tveho jednoducheho skriptiku. :-)

    Dik za pomoc.
    15.10.2005 13:27 User682 | skóre: 38 | blog: aqarium | Praha
    Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
    nevim na co to potrebujete, ale mozna by postacil grepmail. zalezi ale skutecne, na co to pouzivate (aplikace, vystup z shellu).

    bye gf

    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.