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 02:20 | Zajímavý článek

David Revoy, autor open source webového komiksu Pepper&Carrot nebo portrétu GNU/Linuxu, upozorňuje na svém blogu, že nový Inkscape 0.92 rozbíjí dokumenty vytvořené v předchozích verzích Inkscape. Problém by měl být vyřešen v Inkscape 0.92.2 [reddit].

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

Øyvind Kolås, hlavní vývojář grafických knihoven GEGL a babl, které využívá grafický program GIMP, žádá o podporu na Patreonu. Díky ní bude moci pracovat na vývoji na plný úvazek. Milník 1000 $, který by stačil na holé přežití, se již téměř podařilo vybrat, dalším cílem je dosažení 2500 $, které mu umožní běžně fungovat ve společnosti.

xkomczax | Komentářů: 12
21.1. 23:54 | Pozvánky

DevConf.cz 2017, již devátý ročník jedné z největších akcí zaměřených na Linux a open source ve střední Evropě, proběhne od pátku 27. ledna do neděle 29. ledna v prostorách Fakulty informačních technologií Vysokého učení technického v Brně. Na programu je celá řada zajímavých přednášek a workshopů. Letos je povinná registrace.

Ladislav Hagara | Komentářů: 0
21.1. 22:11 | Nová verze

Byla vydána verze 1.0.0 emulátoru terminálu Terminology postaveného nad EFL (Enlightenment Foundation Libraries). Přehled novinek v poznámkách k vydání.

Ladislav Hagara | Komentářů: 0
20.1. 17:00 | Nová verze

Byl vydán Docker 1.13. Přehled novinek na YouTube a v poznámkách k vydání na GitHubu. Docker umožňuje běh aplikací v softwarových kontejnerech (Wikipedia).

Ladislav Hagara | Komentářů: 4
20.1. 15:51 | Komunita

Mozilla.cz informuje, že nástroje pro webové vývojáře se možná oddělí od Firefoxu a stanou doplňkem. Nástroje pro webové vývojáře prošly velkým přepisem a tým, který se stará o jejich vývoj, by uvítal možnost jejich častějších aktualizacích nezávisle na vydávání nových verzí Firefoxu.

Ladislav Hagara | Komentářů: 10
20.1. 07:00 | Humor

Čtenářům AbcLinuxu vše nejlepší k dnešnímu Dni zvýšení povědomí o tučňácích (Penguin Awareness Day).

Ladislav Hagara | Komentářů: 0
20.1. 06:00 | Komunita

Bylo spuštěno hlasování o přednáškách a workshopech pro letošní InstallFest, jenž proběhne o víkendu 4. a 5. března v Praze. Současně byla oznámena změna místa. InstallFest se letos vrací zpět na Karlovo náměstí do budovy E.

Ladislav Hagara | Komentářů: 0
20.1. 02:48 | Komunita

Greg Kroah-Hartman potvrdil, že Linux 4.9 je jádrem s prodlouženou upstream podporou (LTS, Long Term Support). Podpora je plánována do ledna 2019. Aktuální jádra s prodlouženou podporou jsou tedy 3.2, 3.4, 3.10, 3.12, 3.16, 3.18, 4.1, 4.4 a 4.9.

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

Výrobce síťových prvků, společnost Netgear, spustila nový program, který slibuje vývojářům, expertům, ale i běžným uživatelům vyplacení finanční odměny za nalezení bezpečnostních chyby v jejich produktech. Za nalezení zranitelnosti v hardware, API nebo mobilní aplikaci nabízí odměnu od 150 do 15 tisíc dolarů (dle závažnosti).

Michal Makovec | Komentářů: 0
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (10%)
 (2%)
 (74%)
 (3%)
 (10%)
Celkem 363 hlasů
 Komentářů: 25, poslední 21.1. 13:34
Rozcestník
Reklama

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: 467×
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.