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 12:11 | Komunita

V Praze na Fakultě informačních technologií ČVUT probíhá openSUSE Conference 2018. Přednášky lze sledovat také online. Aktuální dění lze sledovat na Twitteru. Stisknutím zeleného tlačítka bylo dnes dopoledne vydáno openSUSE Leap 15.0.

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

Na Steamu probíhá do 28. května akce s názvem Spring Cleaning (Jarní úklid). V rámci akce lze hrát hry Don't Starve Together, Cities: Skylines, Tyranny, Borderlands 2, Middle-earth: Shadow of Mordor a Left 4 Dead 2 běžící na Linuxu zdarma [GamingOnLinux].

Ladislav Hagara | Komentářů: 2
včera 23:23 | Humor

Nová služba České pošty nazvaná Bezpečné úložiště nabízí až 100GB kapacitu pro "bezpečnou správu Vašich dat pod patronací důvěryhodného partnera Česká pošta".

… více »
Lol Phirae | Komentářů: 52
včera 22:14 | Bezpečnostní upozornění

Nova kritická hrozba VPNfilter bola zistená po dlhšiej spolupráce Talos s verejnými i súkromnými bezpečnostnými agentúrami. VPNfilter ohrozuje približne 500 000 zariadení v približne 54 krajinach. Zasiahnutí výrobcovia sú Linksys, MikroTik, NETGEAR, TP-Link (SOHO), QNAP (NAS). Správanie malwaru je nebezpečnej povahy, čo môže v určitých prípadoch spôsobiť škody veľkého rozsahu. Často tieto zariadenia sú na perimetri sieťe bez ochrany.

ewew | Komentářů: 5
včera 21:55 | Pozvánky

CSNOG (Czech and Slovak Network Operators Group), první československé setkání síťových operátorů, se uskuteční 11. a 12. června v Brně. Akce je určena poskytovatelům internetového připojení, síťovým operátorům, provozovatelům registrů, internetovým odborníkům a všem zájemcům o internetové a síťové technologie. Program je zaměřený na odborná, technická témata jako například síťová architektura, bezpečnost sítí, zpracování dat, DNS a další. Nutná je registrace.

Ladislav Hagara | Komentářů: 0
včera 21:33 | Komunita

Na Humble Bundle lze získat počítačovou hru, simulátor hackování, Hacknet (Wikipedie, YouTube) běžící také v Linuxu zdarma. Tentokrát je ke stažení také verze bez DRM a navíc soundtrack. Speciální akce končí v sobotu v 19:00.

Ladislav Hagara | Komentářů: 0
23.5. 20:11 | Zajímavý software

Alexandre Julliard oznámil jménem vývojového týmu Wine vydání první verze 1.0 knihovny vkd3d určené pro překlad volání Direct3D 12 na Vulkan. Zdrojové kódy vkd3d jsou k dispozici pod licencí LGPLv2.1+.

Ladislav Hagara | Komentářů: 1
23.5. 19:33 | Komunita

Dnešním dnem lze účet Firefoxu chránit dvoufázovým ověřováním (2FA). Implementován byl standard TOTP (Time-based One-Time Password).

Ladislav Hagara | Komentářů: 0
23.5. 15:17 | Pozvánky

Od pátku 25. 5. proběhne na Fakultě informačních technologií ČVUT v Praze openSUSE Conference. Můžete se těšit na spoustu zajímavých přednášek, workshopů a také na Release Party nového openSUSE Leap 15.0. Na stejném místě proběhne v sobotu 26. 5. i seminář o bezpečnosti CryptoFest.

Jendа | Komentářů: 0
23.5. 13:33 | Zajímavý software

Drawpile je svobodný multiplatformní program pro kreslení podporující společné kreslení několika uživatelů. Zdrojové kódy jsou k dispozici na GitHubu pod licencí GPLv3+. Drawpile i Drawpile Server jsou ke stažení také ve formátu AppImage. Stačí tedy nastavit právo na spouštění a spustit.

Ladislav Hagara | Komentářů: 0
Používáte pro některé služby inetd?
 (35%)
 (23%)
 (42%)
Celkem 155 hlasů
 Komentářů: 5, poslední 22.5. 16:46
    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: 477×
    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.