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í
×
    včera 23:22 | Nová verze

    Editor kódu Zed (Wikipedie) má nově v sobě integrovaný debugger. Podporuje Rust, C/C++, JavaScript, Go, Python a pomocí rozšíření i další programovací jazyky.

    Ladislav Hagara | Komentářů: 3
    včera 22:22 | Zajímavý článek

    Byl publikován aktuální přehled vývoje renderovacího jádra webového prohlížeče Servo (Wikipedie). Servo mimo jiné nově zvládne animované GIFy.

    Ladislav Hagara | Komentářů: 0
    včera 21:44 | Bezpečnostní upozornění

    Nejnovější X.Org X server 21.1.18 a Xwayland 24.1.8 řeší další bezpečnostní chybu.

    Ladislav Hagara | Komentářů: 0
    včera 17:55 | Pozvánky

    Spolek OpenAlt zve příznivce otevřených řešení a přístupu na 210. sraz, který proběhne 20. června od 18:00 v Red Hat Labu na Fakultě informatiky Masarykovy univerzity na adrese Botanická 68A nebo také online.

    Ladislav Hagara | Komentářů: 0
    včera 14:33 | Nová verze

    Byla vydána nová verze 17 integrovaného vývojového prostředí (IDE) Qt Creator. Podrobný přehled novinek v changelogu.

    Ladislav Hagara | Komentářů: 0
    včera 12:00 | Nová verze

    Open source 3D herní a simulační engine Open 3D Engine (O3DE) byl vydán v nové verzi 25.05.0. Přehled novinek v poznámkách k vydání. Nově je implementováno standardizované simulační rozhraní ROS (Robot Operating System) 2.

    Ladislav Hagara | Komentářů: 0
    17.6. 22:44 | Bezpečnostní upozornění

    Nejnovější X.Org X server 21.1.17 a Xwayland 24.1.7 řeší 6 bezpečnostních chyb: CVE-2025-49175, CVE-2025-49176, CVE-2025-49177, CVE-2025-49178, CVE-2025-49179 a CVE-2025-49180. Nils Emmerich je nalezl koncem března a dnes publikoval detaily.

    Ladislav Hagara | Komentářů: 0
    17.6. 14:33 | Nová verze

    Desktopové prostředí KDE Plasma bylo vydáno ve verzi 6.4 (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ářů: 0
    17.6. 10:11 | Komunita

    UN Open Source Week 2025 probíhá tento týden v sídle Organizace spojených národů v New Yorku. Středeční a čtvrteční jednání bude možné sledovat na UN Web TV.

    Ladislav Hagara | Komentářů: 1
    17.6. 03:55 | Nová verze

    Byla vydána nová verze 2.50.0 distribuovaného systému správy verzí Git. Přispělo 98 vývojářů, z toho 35 nových. Přehled novinek v příspěvku na blogu GitHubu a v poznámkách k vydání.

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

    Dotaz: perl - vytažení těla emailu

    3.1.2008 23:22 motorcb | skóre: 12
    perl - vytažení těla emailu
    Přečteno: 545×
    Zdravím. Mam emaily v souborech a potreboval bych z techto souboru vytahnout subject a body toho emailu.Ukazkovy email:

    
    Return-Path: <www-data@xxx.cz>
    Delivered-To: bad-header-quarantine
    X-Envelope-From: <www-data@xxx.cz>
    X-Envelope-To: <info@xxx.eu>
    X-Quarantine-ID: <5x5tiQaaevhN>
    X-Amavis-Alert: BAD HEADER Non-encoded 8-bit data (char E1 hex): Subject:
    	Rozd\341v\341me pen\355ze!\n
    Received: from yyy.xxx.cz ([127.0.0.1])
    	by localhost (yyy.xxx.cz [127.0.0.1]) (amavisd-new, port 10024)
    	with ESMTP id 5x5tiQaaevhN for <info@xxx.eu>
    	Sun,  9 Dec 2007 08:26:27 +0100 (CET)
    Received: from apache.xxx.cz (apache.superhosting.cz [88.86.xxx.xxx])
    	by mx1.xxx.cz (Postfix) with ESMTP id 766CEB7BE8
    	for <info@xxx.eu> Sun,  9 Dec 2007 08:26:27 +0100 (CET)
    Received: by apache.xxx.cz (Postfix, from userid 33)
    	id 7D3A99C36B; Sun,  9 Dec 2007 08:25:02 +0100 (CET)
    To: info@xxx.eu
    Subject: tohel je subject
    From: info@xxx.cz
    X-Mailer: PHP
    X-Priority: 1
    Content-Type: text/html; charset=windows-1250
    Message-Id: <20071209072502.7D3A99C36B@apache.xxx.cz>
    Date: Sun,  9 Dec 2007 08:25:02 +0100 (CET)
    
    
    Toto je text,tery potrebuju vytahnout do perlu
    bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla 
    
    

    Dokazal by někdo poradit jak na to?

    Odpovědi

    wamba avatar 4.1.2008 01:05 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: perl - vytažení těla emailu
    Třeba mě napadá: perl -00 -e 'print $1,"\n" if <>=~/^Subject:(.*)$/m;print while <>;'
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    4.1.2008 08:01 happy barney | skóre: 34 | blog: dont_worry_be_happy
    Rozbalit Rozbalit vše Re: perl - vytažení těla emailu
    # xyz.pl
    use Mail::Audit;
    
    my $mail = new Mail::Audit;
    
    print "Subject: ", $mail->subject, "\n";
    print "Body: ", $mail->body, "\n";
    
    Použitie:
    perl xyz.pl file
    4.1.2008 08:55 ph0enix | skóre: 18 | Praha
    Rozbalit Rozbalit vše Re: perl - vytažení těla emailu

    A co treba nasledujici (neodzkouseno). Vyzaduje soubor s maily jako parametr

    #!/usr/bin/perl -w
    
    my $filename = shift @ARGV;
    if (!$filename || -r $filename) {
        die "Nelze cist soubor s maily";
    }
    
    my $mgr      = Mail::Box::Manager->new;
    my $folder   = $mgr->open($filename);
    foreach my $message ($folder->messages) {
        print $message->get('Subject') || '<no subject>', "\n";
        print $message->string || '<no body>', "\n\n";
    }
    $folder->close;
    
    4.1.2008 09:11 ph0enix | skóre: 18 | Praha
    Rozbalit Rozbalit vše Re: perl - vytažení těla emailu

    Ani jsem si to po sobe neprecetl :-( Chybi mi tam use pro modul Mail::Box::Manager, takze jeste jednou a s kontrolou chyb.

    #!/usr/bin/perl -w
    
    use Mail::Box::Manager;
    
    if (@ARGV != 1) {
        die "Usage: $0 soubor_se_zpravami\n";
    }
    
    my $filename = shift @ARGV;
    if (! -r $filename) {
        die "Nelze cist soubor se zpravami";
    }
    
    my $mgr    = Mail::Box::Manager->new;
    my $folder = $mgr->open($filename);
    
    if (! defined $folder) {
        die "Nelze cist soubor se zpravami: $!";
    }
    
    foreach my $message ($folder->messages) {
        print $message->get('Subject') || '<no subject>', "\n";
        print $message->string || '<no body>', "\n\n";
    }
    $folder->close;
    6.1.2008 22:26 motorcb | skóre: 12
    Rozbalit Rozbalit vše Re: perl - vytažení těla emailu
    Zdarvim.Zkousel jsem tento kod,ale bohuzel nevypisuje vubec nic :( delli:~/perl/# ./mail.pl emaily delli:~/perl/#

    Nevite nekdo prosim proc?
    7.1.2008 10:00 ph0enix | skóre: 18 | Praha
    Rozbalit Rozbalit vše Re: perl - vytažení těla emailu
    Nevim a bohuzel nemam k dispozici zadna data na kterych bych to vyzkousel :-(
    7.1.2008 11:51 motorcb | skóre: 12
    Rozbalit Rozbalit vše Re: perl - vytažení těla emailu
    
    Return-Path: <www-data@xxx.cz>
    Delivered-To: bad-header-quarantine
    X-Envelope-From: <www-data@xxx.cz>
    
    X-Envelope-To: <info@xxx.eu>
    X-Quarantine-ID: <5x5tiQaaevhN>
    X-Amavis-Alert: BAD HEADER Non-encoded 8-bit data (char E1 hex): Subject:
    	Rozd\341v\341me pen\355ze!\n
    Received: from yyy.xxx.cz ([127.0.0.1])
    	by localhost (yyy.xxx.cz [127.0.0.1]) (amavisd-new, port 10024)
    	with ESMTP id 5x5tiQaaevhN for <info@xxx.eu>
    	Sun,  9 Dec 2007 08:26:27 +0100 (CET)
    Received: from apache.xxx.cz (apache.superhosting.cz [88.86.xxx.xxx])
    	by mx1.xxx.cz (Postfix) with ESMTP id 766CEB7BE8
    	for <info@xxx.eu> Sun,  9 Dec 2007 08:26:27 +0100 (CET)
    Received: by apache.xxx.cz (Postfix, from userid 33)
    	id 7D3A99C36B; Sun,  9 Dec 2007 08:25:02 +0100 (CET)
    To: info@xxx.eu
    Subject: tohel je subject
    From: info@xxx.cz
    X-Mailer: PHP
    X-Priority: 1
    Content-Type: text/html; charset=windows-1250
    Message-Id: <20071209072502.7D3A99C36B@apache.xxx.cz>
    Date: Sun,  9 Dec 2007 08:25:02 +0100 (CET)
    
    
    Toto je text,tery potrebuju vytahnout do perlu
    bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla 
    
    
    
    11.1.2008 16:54 ph0enix | skóre: 18 | Praha
    Rozbalit Rozbalit vše Re: perl - vytažení těla emailu

    Hmmm, opravdu to nefunguje a navic mam v cygwinu nejake problemy se zamykanim / mazanim souboru. Zkus tento kod. Tentokrat jsem si to i vyzkousel, takze by mel chodit. Pouziti je: perl ./script.pl email. Predpoklada jeden email v jednom souboru. Je zapotrebi minimalne modul Mail::Box - pokud nemas, nainstalujes pres balickovaci system tve distribuce ci primo z CPANu.

    use strict;
    use Mail::Box::Parser::Perl;
    
    sub get_subject {
        my $parser = shift;
        my ($where, @header) = $parser->readHeader;
        my $result;
    
        for (my $i = 1; $i < @header; $i++) {
            if ($header[$i][0] =~ /^Subject$/i) {
                $result = $header[$i][1];
                chomp $result;
            }
        }
    
        return $result;
    }
    
    sub get_body {
        my $parser = shift;
        my ($start, $stop, $content) = $parser->bodyAsString();
    
        return $content;
    }
    
    my $filename;
    my $mbp;
    my $subj;
    my $body;
    
    $filename = shift @ARGV;
    
    if (!$filename) {
        die "Missing param - filename";
    }
    
    $mbp = Mail::Box::Parser::Perl->new(filename => $filename);
    $mbp->start();
    
    $subj = get_subject($mbp);
    $body = get_body($mbp);
    
    print 'SUBJ: ', $subj ? $subj : '<no subject>', "\n";
    print 'BODY: ', $body ? $body : '<no body>', "\n";
    
    $mbp->stop();
    
    

    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.