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 19:46 | Nová verze

dnsdist, specializovaný balancer pro DNS provoz, dosáhl stabilní verze 1.2.0. Tento software vyvíjí komunita kolem PowerDNS a neměl by uniknout pozornosti nikomu, kdo provozuje vytíženější rekurzivní DNS servery. Balancer je vhodný k obraně před DDoS útoky, je skriptovatelný v LUA, disponuje konzolovým rozhraním a má spoustu dalších zajímavých vlastností.

… více »
BigWrigley | Komentářů: 0
včera 15:22 | Nová verze

Byla vydána verze 9.5 open source alternativy GitHubu, tj. softwarového nástroje s webovým rozhraním umožňujícího spolupráci na zdrojových kódech, GitLab (Wikipedie). Představení nových vlastností v příspěvku na blogu. Zdůraznit lze možnost ověřování GPG podpisů u commitů.

Ladislav Hagara | Komentářů: 2
22.8. 16:22 | Nová verze

Byla vydána verze 0.11.0 softwaru pro statistickou analýzu dat GNU PSPP (Wikipedie), svobodné alternativy k proprietárnímu softwaru IBM SPSS Statistics (Wikipedie). Vedle několika vylepšení a oprav chyb jsou řešeny také 2 bezpečnostní chyby CVE-2017-10791 a CVE-2017-10792. O týden později byla vydána verze 1.0.0 přinášející pouze aktualizaci překladů. Proč verze 1.0.0 a ne například 0.11.1? Dle vývojářů jsou důvody následující:

… více »
Ladislav Hagara | Komentářů: 0
22.8. 10:35 | Komunita

Na blogu Oracle se objevila zpráva o tom, že plánovaná verze Java EE 8 bude uvolněna jako open source (referenční implementace a compatibility kit). V současné době je uvolněna jen Java SE (standard edition) pod licencí GPLv2 v podobě OpenJDK (Open Java Development Kit), kterou začal v roce 2006 uvolňovat Sun.

Max | Komentářů: 4
21.8. 23:55 | IT novinky

Google na YouTube oficiálně představil Android 8.0 Oreo. Přehled novinek v příspěvku na blogu věnovaném vývojářům.

Ladislav Hagara | Komentářů: 33
21.8. 16:44 | Zajímavý článek

Po téměř 3 měsících od vydání třetího čísla publikoval Michal Špaček na svých stránkách čtvrté číslo newsletteru věnovanému bezpečnosti, bezpečnému vývoji převážně webových aplikací a bezpečnosti uživatelů. Jedná se současně o číslo poslední: "Nepíše se mi to lehce, a trvalo to, než jsem to ze sebe dostal, ale tohle je poslední newsletter v této podobě. Ani jsem ho nestihl pojmenovat a už jsem ho zabil. Nezbývá mi tolik času, abych každou událost, novinku a změnu v prohlížeči detailně popisoval tak, jak bych v newsletteru chtěl, mrzí mě to".

Ladislav Hagara | Komentářů: 2
21.8. 07:00 | Nová verze

Byla vydána diaspora* ve verzi 0.7.0.0. Jedná se o svobodný software, který slouží jako osobní webový server pro poskytování služeb sociální sítě (Wikipedie). Přehled novinek v příspěvku na blogu a na GitHubu. Sociální síť diaspora* byla před pěti lety předána komunitě.

Ladislav Hagara | Komentářů: 0
21.8. 06:00 | IT novinky

Společnost Hardkernel stojící za jednodeskovými počítači ODROID představila na YouTube minipočítač určený pro domácí cloud ODROID-HC1 vycházející z ODROID-XU4. Minipočítač s kovovou krabičkou, do které stačí vložit 2 a půl palcový disk, lze koupit za 49 dolarů. ODROID-HC1 je stohovatelný.

Ladislav Hagara | Komentářů: 39
20.8. 16:22 | Nová verze

Byl vydán DB Browser for SQLite (sqlitebrowser) ve verzi 3.10.0. Nejnovější stabilní verze této grafické nadstavby nad relačním databázovým systémem SQLite (Wikipedie) přináší například integraci s DBHub.io, tj. platformou pro sdílení SQLite databází. Podrobnosti na GitHubu.

Ladislav Hagara | Komentářů: 2
20.8. 08:00 | IT novinky

Andy Rubin, spoluzakladatel společnosti Android, jež byla v roce 2005 koupena Googlem, nyní CEO společnosti Essential Products, oznámil předprodej chytrého telefonu Essential. Telefon se začne rozesílat 1. září. Cena telefonu je 699 dolarů. Cena telefonu současně s 360° kamerou s rozlišením 4K byla stanovena na 749 dolarů. Kameru, v budoucnu i další příslušenství, lze k telefonu připojit pomocí konektoru s magnety.

Ladislav Hagara | Komentářů: 1
Těžíte nějakou kryptoměnu?
 (5%)
 (2%)
 (18%)
 (76%)
Celkem 375 hlasů
 Komentářů: 21, poslední 13.8. 09:57
    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: 473×
    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.