Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: Email STDIN

by the_slycer (Chaplain)
on Oct 09, 2001 at 18:29 UTC ( #117747=note: print w/replies, xml ) Need Help??


in reply to Email STDIN

While I agree with the people above, using Mime::Something will save you in the long run, here is another answer to your question.

The main problem with your code above is that you are shoving the message into an array first. What you really want to do is break out of the first while loop when you hit the blank line (denoting the end of the header).
while (<DATA>) { last if /^$/; #Header is done! print "From: $1\n\n" if /^From:(.+)$/; #Print the from address } while (<DATA>) #This while loop starts from where the other left off {print} __DATA__; To: blah@blahblahFrom: From:green.ecgs@ham.org Subject:test Do you like green ecgs and ham? Would you eat them in a house? Would you eat them with a mouse?

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (6)
As of 2020-05-31 14:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If programming languages were movie genres, Perl would be:















    Results (173 votes). Check out past polls.

    Notices?