attachment logging

Bass-Fighter has asked for the wisdom of the Perl Monks concerning the following question:

ok, I posted 2 weeks ago something about logging an attachment. this is what I could make with grand help of webfiend.


#!usr/bin/perl

use v5.8.0;

use warnings;
use strict;
use MIME::Parser;

my $parser = MIME::Parser->new();

$parser->output_under('/tmp');
my $entity = $parser->parse(\*STDIN);

if ( $entity->is_multipart ) {
        for my $part ( $entity->parts ) {
        
        my $head = $part->head;
                if ( my $filename = $head->recommended_filename ) {
            print "Attachment name: $filename\n";
        }
    }
}
[download]

I have 2 mails to test the system. the first gives the output what I want. the second gives this: Can't locate object method "binmode" via package "IO::File" at /usr/lib/perl5/site_perl/5.8.0/MIME/Body.pm line 437. does anyone know how to solve this?

Comment on attachment logging Download Code

Replies are listed 'Best First'.
Re: attachment logging by Anonymous Monk on Dec 18, 2008 at 11:10 UTC
`{ no warnings; sub IO::File::binmode {} }` [download]	[reply] [d/l]
Re^2: attachment logging by Corion (Patriarch) on Dec 18, 2008 at 11:12 UTC
Of course, this is just a band-aid, as binmode actually does something, nowadays even on systems with unixish file semantics. Most likely, the proper fix would be to upgrade IO::File to a later version than is installed, or to copy the code for IO::File::binmode into that subroutine: `sub binmode { ( @_ == 1 or @_ == 2 ) or croak 'usage $fh->binmode([LAYER])'; my($fh, $layer) = @_; return binmode $$fh unless $layer; return binmode $$fh, $layer; }` [download]	[reply] [d/l]
Re^3: attachment logging by Bass-Fighter (Beadle) on Dec 18, 2008 at 12:30 UTC
and where in my code must I set this?, srry, I'm still a rooky in perl. just 3 weeks of experience with this...	[reply]
Re^4: attachment logging by oko1 (Deacon) on Dec 18, 2008 at 12:55 UTC
Re^5: attachment logging by Bass-Fighter (Beadle) on Dec 18, 2008 at 13:26 UTC


The stupid question is the question not asked
	PerlMonks