Email STDIN

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Email STDIN by projekt21 (Friar) on Oct 09, 2001 at 14:30 UTC
BEFORE you go on, please check CPAN for the MIME-tools package, and read the documentation of MIME::Entity, MIME::Head, MIME::Body and MIME::Parser if you really want to parse emails correctly. Else you are reinventing the wheel and yours won't be that round ... Please be free to contact me if you need some demo code to show how the MIME-tools operate on your special task. Update (some code snippets added) use MIME::Parser; # some code here .... my $message = $pop->get($msg); # I get it from POP3 # parse email my $parser = new MIME::Parser; $parser->output_under($Conf::msg_dir); my $entity = $parser->parse_data($message); split_entity($entity); # example header my $from = $entity->head->decode->get("From"); ############################################################ sub split_entity { ############################################################ local $entity = shift; my $num_parts = $entity->parts; # how many mime parts? if ($num_parts) { # we have a multipart mime message foreach (1..$num_parts) { split_entity( $entity->parts($_ - 1) ); } } else { # we have a single mime message/part # we only want text if ($entity->effective_type =~ /^text\/(?!(html\|enriched))/) { my $path = $entity->bodyhandle->path; ### do something here } else { my $path = $entity->bodyhandle->path; ### do something other here; } } } [download] This snippet is just for demonstration, it won't run. alex pleiner <alex@zeitform.de> zeitform Internet Dienste	[reply] [d/l]
Re: Email STDIN by tachyon (Chancellor) on Oct 09, 2001 at 15:34 UTC
Here is a MIME::Parser example. The datastructure it generates is quite complex but it is all there. In nice neat chunks. use MIME::Parser; use Data::Dumper; my $message = join '', <DATA>; # Create a new parser object: my $parser = new MIME::Parser; # Parse a message: $entity = $parser->parse_data($message); # Get results my $results = $parser->results; print Dumper( $results ); __DATA__ Build: 1100 ) ) ; Mon, 08 Oct 2001 15:01:51 +1000 From: "Vicki Cain" <vicki@moyes.com.au> To: "James Freeman $E-mail$" <jfreeman@tassie.net.au> Subject: New Order Date: Mon, 8 Oct 2001 15:01:51 +1000 Message-ID: <004301c14fb6$57b89000$0100000a@VICKI> MIME-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit Importance: Normal Status: U Ph: +61 (02) 9316 4644 Fax: + 61 (02) 9316 8488 Web: www.moyes.com.au [download] cheers tachyon s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print	[reply] [d/l]
Re: Email STDIN by busunsl (Vicar) on Oct 09, 2001 at 14:36 UTC
I fully second what project21 says. In addition to the MIME modules you can have a look at some of the Mail modules: MailTools by Mark Overmeer and Mail::Procmail by Johan Vromans	[reply]
Re: Email STDIN by the_slycer (Chaplain) on Oct 09, 2001 at 18:29 UTC
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?` [download]	[reply] [d/l] [select]
Re: Email STDIN by strredwolf (Chaplain) on Oct 12, 2001 at 11:07 UTC
Now, even though I haven't used MIME::, here's my thoughts which can help: First, read RFC 2822. (It used to be 822, but they updated the spec). You'll realize that each header can wrap around to another line, and it causes havoc!!!! Second, use procmail to do some unmunging. Procmail can fix those headers so Perl can make it eazier for you. Here's what I have in a .procmailrc: PIDFILE=bt-rbl.$$ :0 ? e-mail_script.pl $PIDFILE { MESS=`cat $PIDFILE` JUNK=`rm $PIDFILE` :0 /dev/null } JUNK=`rm $PIDFILE` [download] And for the Perl: `$flag=0; open(OUT,">$ARGV[0]") \|\| die "Can't open conduit: $!"; while(<STDIN>) { $l=$_; chomp; $flag++ if(/^$/); # Header/Body seperation $header[$hi++]=$_ unless($flag); $body[$bi++]=$_ if($flag); }` [download] for example. -- $Stalag99{"URL"}="http://stalag99.keenspace.com";	[reply] [d/l] [select]