Portál AbcLinuxu, 17. července 2025 18:10
#!/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.