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 01:44 | Pozvánky

Cez víkend 17. a 18. júna (června) 2017 sa v Bratislave na Fakulte matematiky fyziky a informatiky UK uskutoční štvrtý ročník prednáškového podujatia OSS víkend Bratislava, ktoré bude venované otvorenému softvéru, otvorenému hardvéru, otvoreným dátam a otvoreným štandardom. Návrhy na prednášky možno predkladať do 11. mája (května) 2017. Záznamy z prechádzajúceho OSS Víkendu na YouTube.

Ladislav Hagara | Komentářů: 0
dnes 00:11 | Zajímavý článek

Od 28. do 30. dubna proběhl v Torontu Creative Commons Global Summit 2017. Nezisková organizace Creative Commons plánovala budoucnost, ale také hodnotila minulost. V první den konference byla vydána výroční zpráva Creative Commons za rok 2016.

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

Byla vydána stabilní verze 2.0 linuxové distribuce Lakka, jež umožňuje transformovat podporované počítače v herní konzole. Lakka 2.0 obsahuje například LibreELEC 8.0 nebo RetroArch 1.5.0.

Ladislav Hagara | Komentářů: 2
29.4. 23:44 | Pozvánky

24. 5. 2017 od 9:00 proběhne v Brně na Fakultě informatiky MU (Botanická 68a) v místnosti D2 jednodenní konference Industry Cocktail (Facebook), na které máš šanci nahlédnout do způsobů využití nových technologií v aktuálních projektech z různých průmyslových odvětví. To, že složité problémy se neřeší jen v laboratořích a způsoby, jakými se s nimi vypořádat v praxi, rozeberou přednášející z jednotlivých firem.

mjedlick | Komentářů: 0
29.4. 23:33 | Nová verze

Byla vydána verze 0.69 populárního telnet a ssh klienta PuTTY. Podrobnosti v přehledu změn. Řešen je také bezpečnostní problém ve verzi pro Windows.

Ladislav Hagara | Komentářů: 0
28.4. 13:11 | Nová verze

Po téměř dvou letech byla vydána nová verze 4.0 linuxové distribuce Audiophile Linux (též AP-Linux-V4). Tato distribuce vychází z Arch Linuxu, používá systemd, správce oken Fluxbox a vlastní real-time jádro pro nižší latence. Z novinek můžeme jmenovat podporu nových procesorů Intel Skylake a Kaby Lake nebo možnost instalace vedle jiných OS na stejný disk. Pokud se zajímáte o přehrávání hudby v Linuxu, doporučuji návštěvu webu této

… více »
Blaazen | Komentářů: 7
27.4. 18:55 | Nová verze

Byla vydána nová stabilní verze 1.9 (1.9.818.44) webového prohlížeče Vivaldi (Wikipedie). Z novinek vývojáři zdůrazňují podporu nového vyhledávače Ecosia. Ten z příjmů z reklam podporuje výsadbu stromů po celém světě (YouTube). Nově lze přeskupovat ikonky rozšíření nebo řadit poznámky. Nejnovější Vivaldi je postaveno na Chromiu 58.0.3029.82.

Ladislav Hagara | Komentářů: 21
27.4. 17:00 | Nová verze

Byla vydána verze 3.7.0 svobodného systému pro správu obsahu (CMS) Joomla!. V oznámení o vydání (YouTube) se píše o 700 vylepšeních. Opraveno bylo také 8 bezpečnostních chyb.

Ladislav Hagara | Komentářů: 1
27.4. 08:22 | Komunita

Grsecurity (Wikipedie) je sada bezpečnostních patchů pro linuxové jádro (porovnání se SELinuxem, AppArmorem a KSPP). Od září 2015 nejsou stabilní verze těchto patchů volně k dispozici. Dle včerejšího oznámení (FAQ) nejsou s okamžitou platností volně k dispozici už ani jejich testovací verze.

Ladislav Hagara | Komentářů: 80
26.4. 23:33 | Komunita

OpenBSD 6.1 vyšlo již 11. dubna. Po dvou týdnech byla vydána i oficiální píseň. Její název je Winter of 95 a k dispozici je ve formátech MP3 a OGG.

Ladislav Hagara | Komentářů: 1
Chystáte se pořídit CPU AMD Ryzen?
 (4%)
 (35%)
 (1%)
 (7%)
 (45%)
 (9%)
Celkem 360 hlasů
 Komentářů: 50, poslední 27.4. 04:06
    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: 470×
    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: 37 | 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.