Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^5: Geting attached files of emails (POP3)

by chargrill (Parson)
on Dec 27, 2006 at 18:10 UTC ( #591903=note: print w/replies, xml ) Need Help??


in reply to Re^4: Geting attached files of emails (POP3)
in thread Geting attached files of emails (POP3)

Hi MiDgArD,

According to the documentation, Mail::Pop3Client::Retrieve gives you the head and body of an email message, and Mail::Message::Attachment::Stripper expects a Mail::Message object in it's constructor.

You could try taking the $msg you get from Retrieve and constructing/building a Mail::Message object, like so:

...

You know, I started reading through the documentation but realized it would take me a bit more time to fully understand it, and extract the bits I would need in order to help you with your task.

I will recommend instead that you read the associated documentation that I have referenced above, and take the hints I allude to above (construct, build) to find the relevant documentation for your task of converting your message into a Mail::Messsage object. Otherwise, I would be inclined to use something I'm a bit more familiar with (or at least can state that I've used it before ;-) and give you a link for another way to carry out your task using Mime::Parser, with working code that strips jpeg attachments off of emails, though not coming through pop3 interface. That was written a long time ago, when I was first learning Mime::Parser, and thus has TONS of debugging output littered through the code. Perhaps this approach will be easier for you?



--chargrill
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)

Replies are listed 'Best First'.
Re^6: Geting attached files of emails (POP3)
by MiDgArD (Novice) on Dec 27, 2006 at 20:17 UTC
    How i can use your code? http://www.perlmonks.org/index.pl?node_id=525899 I have access in the mail folder to open and list al data in this folder, My mail folder is located at "/home/celflog/mail/fotolog/cur" Or if you send a simple working example ... Thank you

      I'm happy to send you my hourly rate for doing this work for you.

      Otherwise, you've got half-working code of your own, several references to what is likely wrong with it, links to the documentation wherein you will find your answers, and a completely working hunk of code using a different approach.



      --chargrill
      s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
        Thank you for the help

        Your example at http://www.perlmonks.org/index.pl?node_id=525899 is very good!

        I obtained to modify for what I need

        Hapy new year =)



        Muito obrigado pela ajuda,

        O exemplo no enderešo acima Ú muito bom!

        Consegui modificar para o que preciso

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://591903]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (5)
As of 2019-09-17 00:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The room is dark, and your next move is ...












    Results (199 votes). Check out past polls.

    Notices?