Portál AbcLinuxu, 9. listopadu 2025 02:39
#!/usr/bin/perl
use Mail::Util qw( read_mbox );
use MIME::Parser;
my $parser = new MIME::Parser;
$parser->output_dir('.');
foreach my $f (@ARGV) {
my @list = read_mbox( $f );
@list = map { join '', @{$_} } @list;
map { $parser->parse_data( $_ ) if $_ } @list;
}
extrahuje to jak attachmenty, tak těla, ale co bys čekal od párřádkového skriptu...
Tiskni
Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.