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í
×

    včera 13:00 | IT novinky

    Počítačové hře Doom je dnes 30 let. Vydána byla 10. prosince 1993. Zahrát si ji lze také na Internet Archive.

    Ladislav Hagara | Komentářů: 11
    včera 02:11 | Komunita

    V srpnu společnost HashiCorp přelicencovala "své produkty" Terraform, Packer, Vault, Boundary, Consul, Nomad a Waypoint z MPL a Vagrant z MIT na BSL (Business Source License). V září byl představen svobodný a otevřený fork Terraformu s názvem OpenTofu. Na konferenci Open Source Summit Japan 2023 byl představen (YouTube) svobodný a otevřený fork Vaultu s názvem OpenBao (GitHub).

    Ladislav Hagara | Komentářů: 3
    9.12. 21:44 | Komunita

    Na dnes plánované vydání Debianu 12.3 bylo posunuto. V jádře 6.1.64-1 v souborovém systému ext4 je chyba #1057843 vedoucí k možnému poškození dat.

    Ladislav Hagara | Komentářů: 13
    9.12. 14:11 | Komunita

    Na čem aktuálně pracují vývojáři GNOME a KDE? Pravidelný přehled novinek i s náhledy aplikací v Týden v GNOME a Týden v KDE.

    Ladislav Hagara | Komentářů: 0
    9.12. 03:11 | Humor

    Tak od ledna linuxové terminály, výchozí pozadí i celé desktopy v barvě "broskvového chmýří", v barvě "jejíž všeobjímající duch obohacuje mysl, tělo i srdce". Barvou roku 2024 je PANTONE 13-1023 Peach Fuzz.

    Ladislav Hagara | Komentářů: 8
    8.12. 21:44 | Nová verze

    Byla vydána verze 10 linuxové distribuce Freespire (Wikipedie). Jedná se o bezplatnou linuxovou distribuci vyvíjenou společností PC/OpenSystems LLC stojící za komerční distribucí Linspire (Wikipedie), původně Lindows.

    Ladislav Hagara | Komentářů: 2
    8.12. 15:44 | Bezpečnostní upozornění

    Binarly REsearch před týdnem informoval o kritických zranitelnostech UEFI souhrnně pojmenovaných LogoFAIL. Tento týden doplnil podrobnosti. Útočník může nahradit logo zobrazováno při bootování vlastním speciálně upraveným obrázkem, jehož "zobrazení" při bootování spustí připravený kód. Pětiminutové povídání o LogoFAIL a ukázka útoku na YouTube.

    Ladislav Hagara | Komentářů: 3
    8.12. 00:11 | Nová verze

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

    Ladislav Hagara | Komentářů: 24
    7.12. 13:33 | Komunita Ladislav Hagara | Komentářů: 2
    7.12. 13:22 | Komunita

    Richard Hughes na svém blogu oznámil, že počet aktualizací firmwarů pomocí služby LVFS (Linux Vendor Firmware Service) přesáhl 100 milionů. Přehled podporovaných zařízení, nejnovějších firmwarů nebo zapojených výrobců na stránkách LVFS.

    Ladislav Hagara | Komentářů: 0
     (41%)
     (10%)
     (49%)
    Celkem 110 hlasů
     Komentářů: 2, poslední 6.12. 22:12
    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: 353×
    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.