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í
×
eParkomat, startup z ČR, postoupil mezi finalisty evropského akcelerátoru ChallengeUp!
Robot na pivo mu otevřel dveře k opravdovému byznysu
Internet věcí: Propojený svět? Už se to blíží...
včera 16:24 | Nová verze

Byla vydána Mageia 5.1. Jedná se o první opravné vydání verze 5, jež vyšla v červnu loňského roku (zprávička). Uživatelům verze 5 nepřináší opravné vydání nic nového, samozřejmě pokud pravidelně aktualizují. Vydání obsahuje všechny aktualizace za posledního téměř půldruhého roku. Mageia 5.1 obsahuje LibreOffice 4.4.7, Linux 4.4.32, KDE4 4.14.5 nebo GNOME 3.14.3.

Ladislav Hagara | Komentářů: 4
včera 13:42 | Pozvánky

V Praze probíhá konference Internet a Technologie 16.2, volné pokračování jarní konference sdružení CZ.NIC. Konferenci lze sledovat online na YouTube. K dispozici je také archiv předchozích konferencí.

Ladislav Hagara | Komentářů: 0
2.12. 22:44 | Komunita

Joinup informuje, že Mnichov používá open source groupware Kolab. V srpnu byl dokončen dvouletý přechod na toto řešení. V provozu je asi 60 000 poštovních schránek. Nejenom Kolabu se věnoval Georg Greve ve své přednášce Open Source: the future for the European institutions (SlideShare) na konferenci DIGITEC 2016, jež proběhla v úterý 29. listopadu v Bruselu. Videozáznam přednášek z hlavního sálu je ke zhlédnutí na Livestreamu.

Ladislav Hagara | Komentářů: 22
2.12. 15:30 | Zajímavý projekt

Společnost Jolla oznámila v příspěvku Case study: Sailfish Watch na svém blogu, že naportovala Sailfish OS na chytré hodinky. Využila a inspirovala se otevřeným operačním systémem pro chytré hodinky AsteroidOS. Použita je knihovna libhybris. Ukázka ovládání hodinek na YouTube.

Ladislav Hagara | Komentářů: 8
2.12. 14:15 | Nová verze

Byla vydána verze 7.1.0 skriptovacího jazyka PHP používaného zejména k vývoji dynamických webových stránek. Jedná se o první stabilní verzi nejnovější větvě 7.1. Přehled novinek v dokumentaci. Podrobnosti v ChangeLogu. K dispozici je také příručka pro přechod z PHP 7.0.x na PHP 7.1.x.

Ladislav Hagara | Komentářů: 3
2.12. 12:55 | Nová verze

Google Chrome 55 byl prohlášen za stabilní. Nejnovější stabilní verze 55.0.2883.75 tohoto webového prohlížeče přináší řadu oprav a vylepšení (YouTube). Opraveno bylo také 36 bezpečnostních chyb. Mariusz Mlynski si například vydělal 22 500 dolarů za 3 nahlášené chyby (Universal XSS in Blink).

Ladislav Hagara | Komentářů: 4
2.12. 11:55 | Pozvánky

Máte rádi svobodný software a hardware nebo se o nich chcete něco dozvědět? Přijďte na 135. sraz spolku OpenAlt, který se bude konat ve čtvrtek 8. prosince od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Sraz bude tentokrát tématický. Bude retro! K vidění budou přístroje jako Psion 5mx nebo Palm Z22. Ze svobodného hardwaru pak Openmoko nebo čtečka WikiReader. Přijďte se i vy pochlubit svými legendami, nebo alespoň na pivo. Moderní hardware má vstup samozřejmě také povolen.

xkucf03 | Komentářů: 1
2.12. 00:10 | Nová verze

Byla vydána verze 3.2 svobodného systému pro detekci a prevenci průniků a monitorování bezpečnosti počítačových sítí Suricata. Z novinek lze zmínit například podporu protokolů DNP3 a CIP/ENIP, vylepšenou podporu TLS a samozřejmě také aktualizovanou dokumentaci.

Ladislav Hagara | Komentářů: 0
1.12. 21:00 | Nová verze

Byla vydána beta verze Linux Mintu 18.1 s kódovým jménem Serena. Na blogu Linux Mintu jsou hned dvě oznámení. První o vydání Linux Mintu s prostředím MATE a druhé o vydání Linux Mintu s prostředím Cinnamon. Stejným způsobem jsou rozděleny také poznámky k vydání (MATE, Cinnamon) a přehled novinek s náhledy (MATE, Cinnamon). Linux Mint 18.1 bude podporován až do roku 2021.

Ladislav Hagara | Komentářů: 0
1.12. 16:42 | Nová verze

Byl vydán Devuan Jessie 1.0 Beta 2. Jedná se o druhou beta verzi forku Debianu bez systemd představeného v listopadu 2014 (zprávička). První beta verze byla vydána v dubnu letošního roku (zprávička). Jedna z posledních přednášek věnovaných Devuanu proběhla v listopadu na konferenci FSCONS 2016 (YouTube, pdf).

Ladislav Hagara | Komentářů: 2
Kolik máte dat ve svém domovském adresáři na svém primárním osobním počítači?
 (32%)
 (24%)
 (29%)
 (7%)
 (5%)
 (3%)
Celkem 770 hlasů
 Komentářů: 50, poslední 29.11. 15:50
Rozcestník
Reklama

Dotaz: Perl MIME::Parser - jak ziskat text zpravy

15.10.2005 00:22 Zubbik
Perl MIME::Parser - jak ziskat text zpravy
Přečteno: 332×
Ahoj, uz nejakou tu chvili se tu potykam s problemem, jak dostat text z tela e-mailu. Timto stylem ziskavam ostatni hodnoty, ktere potrebuji:
my $parser=new MIME::Parser;
$parser->ignore_errors(1);
$parser->extract_uuencode(1);
$parser->tmp_recycling(0);
$parser->output_to_core(1);
my $entity=$parser->parse(\*STDIN);

my $from=$entity->head->get('From');
my $to=$entity->head->get('To');
my $subject=$entity->head->get('Subject');
Poradite mi nekdo, jak z toho dostat i telo zpravy?

Diky

Odpovědi

15.10.2005 00:44 unchallenger | skóre: 69 | blog: unchallenger
Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
Zkusils vyhledávání? Dokonce jsem sem snad někdy dával celý skript, který to používal.
15.10.2005 10:24 Zubbik
Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
Zkusil jsem vyhledavani zde, zkusil jsem vyhledavani v Googlu, procetl jsem kde co, ale proste ten text z toho nemuzu dostat. Dostanu z toho e-mailu vsechno vcetne priloh, ale s textem zpravy si proste nevim rady. :-(
15.10.2005 10:34 unchallenger | skóre: 69 | blog: unchallenger
Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
Mezi tělem zprávy a příhlohami není žádný rozdíl. Dostaneš-li všechny přílohy, je mezi nimi i tělo zprávy.
15.10.2005 10:50 Zubbik
Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
A dokazal bys mi poradit konkretne, kdyz prilohy ukladam nize uvedenym stylem, jak z toho to telo zpravy dostat?
my @parts=$entity->parts;
my $aname='attachment001';
while(my $part = shift(@parts)) {
    if($part->parts) {
        push @parts,$part->parts; # Nested multi-part
        next;
    }
    my $type=$part->head->mime_type || $part->head->effective_type;
    if($type !~ /^(text|message)/i) { # Not a text, save it
        my $filename=$part->head->recommended_filename || $aname;
        $aname++;
        my $io=$part->open("r");
        open(F,"> $attachdir/$filename");
        my $buf;
        while($io->read($buf,1024)) {
            print F $buf;
        }
        close(F);
        $io->close;
    }
}
15.10.2005 11:02 unchallenger | skóre: 69 | blog: unchallenger
Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
Perl je write-only, takže ne ;-)

Ale následující triviální skript uloží do aktuálního adresáře přílohy jednoho mailu ze standardního výstupu pod jejich názvy a tělo mailu pod názvem typu msg-28630-1.txt (to je defaultní nastavení, předefinování jsem ukazoval v nějaké minulé diskusi):
#!/usr/bin/perl
use MIME::Parser;

my $parser = new MIME::Parser;
$parser->output_dir('.');
undef $/;
$parser->parse_data( <STDIN> );
15.10.2005 11:23 unchallenger | skóre: 69 | blog: unchallenger
Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
s/standardního výstupu/standardního vstupu/
15.10.2005 11:37 Zubbik
Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
Jak jednoduche. V tom mym skriptu, ktery jsem mimo jine nasel nekde tady :-), staci pouze zakomentovat podminky, ktere urcuji, aby se ulozily pouze prilohy. Potom se mi ulozi i telo. A to melo napadlo na zaklade tveho jednoducheho skriptiku. :-)

Dik za pomoc.
15.10.2005 13:27 goldenfish | skóre: 38 | blog: aqarium | Praha
Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
nevim na co to potrebujete, ale mozna by postacil grepmail. zalezi ale skutecne, na co to pouzivate (aplikace, vystup z shellu).

bye gf
Pavel Kysilka - www.linuxsoft.cz

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.