Portál AbcLinuxu, 1. července 2026 08:01
#!/usr/bin/perl
use MIME::Parser;
use Mail::Util qw( read_mbox );
my $parser = new MIME::Parser;
foreach my $f ( @ARGV ) {
my @list = read_mbox( $f );
@list = map { join '', @{$_} } @list;
map { $parser->parse_data( $_ ) if $_ } @list;
}
Ale někde by se tu měla snad povalovat diskuse, jak ho různě upravovat, aby nevypisoval těla zpráv nebo jinak pojmenovával přílohy, co nemají jméno, a pod.
Klikací řešení:
A kliknout na "Save All" (viz příloha) by nestačilo?
:/ je to pet let stara diskuze
Bylo tím míněno uložení všech příloh z více emailů.
Tiskni
Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.