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 16:11 | Nová verze

    Byl vydán Mozilla Firefox 152.0. Přehled novinek v poznámkách k vydání a poznámkách k vydání pro vývojáře. Řešeny jsou rovněž bezpečnostní chyby. Nový Firefox 152 bude brzy k dispozici také na Flathubu a Snapcraftu.

    Ladislav Hagara | Komentářů: 0
    dnes 14:11 | Nová verze

    Desktopové prostředí KDE Plasma bylo vydáno ve verzi 6.7 (Mastodon). Přehled novinek i s videi a se snímky obrazovek v oficiálním oznámení. Podrobný přehled v seznamu změn.

    Ladislav Hagara | Komentářů: 4
    dnes 11:44 | Komunita

    Hříčka xsnow, která na ploše spustí sněžení, je protestware. Pokud jste v Rusku (LANG=ru), zobrazuje ukrajinské vlajky.

    Ladislav Hagara | Komentářů: 20
    dnes 11:11 | Nová verze

    UBports, nadace a komunita kolem Ubuntu pro telefony a tablety Ubuntu Touch, vydala beta verzi Ubuntu Touch 24.04-2.0. Nová verze již počítá s výřezy pro fotoaparát (notch) a zaoblenými rohy displeje. Webový prohlížeče Morph přešel z Chromia 87 na Chromium 134. Do shellu Lomiri byl přidán editor snímků obrazovky.

    Ladislav Hagara | Komentářů: 0
    dnes 04:22 | Komunita

    V Praze probíhá Flock 2026, tj. konference pro přispěvatele a příznivce Fedory. Přednášky lze sledovat také na YouTube.

    Ladislav Hagara | Komentářů: 0
    dnes 04:00 | Nová verze

    Node-RED (Wikipedie, GitHub), webová aplikace postavená na Node.js pro vizuální programování a propojování hardwarových zařízení, API a online služeb, byl vydán ve verzi 5.0. Přehled novinek v příspěvku na blogu.

    Ladislav Hagara | Komentářů: 0
    dnes 02:00 | Nová verze

    Byla vydána nová verze 3.27.0 FreeRDP, tj. svobodné implementace protokolu RDP (Remote Desktop Protocol). Opraveno bylo 5 zranitelností.

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

    Řídící výbor GCC schválil záměr do GCC začlenit backend WebAssembly.

    Ladislav Hagara | Komentářů: 2
    14.6. 21:00 | Nová verze

    Po 9 týdnech vývoje od vydání Linuxu 7.0 oznámil Linus Torvalds vydání Linuxu 7.1. Přehled novinek a vylepšení na LWN.net: první a druhá polovina začleňovacího okna a časem také na Linux Kernel Newbies.

    Ladislav Hagara | Komentářů: 0
    14.6. 13:33 | Zajímavý software

    Cheat Engine (Wikipedie) je s verzí 7.7 k dispozici už také pro Linux. Jedná se o proprietární skener/debugger paměti používaný především k cheatování v počítačových hrách.

    Ladislav Hagara | Komentářů: 0
    Které desktopové prostředí na Linuxu používáte?
     (11%)
     (8%)
     (2%)
     (16%)
     (31%)
     (3%)
     (6%)
     (3%)
     (16%)
     (26%)
    Celkem 1916 hlasů
     Komentářů: 30, poslední 3.4. 20:20
    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: 447×
    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.