"Kleinrechner V2"
Shuttle XS35GS V2
Intel Atom D525 dual core CPU
SanMax SMD-N8G68CTP-16K-D (1 x 4GB 204pin DDR3-S.O.DIMM)
Intel SSDSC2CW120A310
Debian Wheezy
25 August 2015
09 June 2015
Mime extractor suitable for use in Evolution filter.
#!/usr/bin/perl
# http://www.perlmonks.org/?node_id=12287
# apt-get install libmime-tools-perl
# yum install perl-MIME-tools
use strict;
use MIME::Parser;
use File::Path qw(make_path);
sub read_email {
my $dir = $ENV{'HOME'} . "/Desktop/email";
make_path($dir) unless -d $dir;
die unless -d $dir;
my $parser = new MIME::Parser;
$parser->output_dir($dir);
my $entity = $parser->read(\*STDIN) || die "couldn't parse MIME stream";
}
&read_email();
exit 0;
#!/usr/bin/perl
# http://www.perlmonks.org/?node_id=12287
# apt-get install libmime-tools-perl
# yum install perl-MIME-tools
use strict;
use MIME::Parser;
use File::Path qw(make_path);
sub read_email {
my $dir = $ENV{'HOME'} . "/Desktop/email";
make_path($dir) unless -d $dir;
die unless -d $dir;
my $parser = new MIME::Parser;
$parser->output_dir($dir);
my $entity = $parser->read(\*STDIN) || die "couldn't parse MIME stream";
}
&read_email();
exit 0;
Subscribe to:
Posts (Atom)