Lysander wrote:
>
> I setup sendmail to forward mail for a specifc addy to my PERL script.
> I can't figure out how to match the blank line between the header and the
> body of the message, though.
>
> I got ?^$? from an example in the perlop man page, but it doesn't seem to be
> working.
> Does anyone have a suggestion? Below is the block of code in question:
>
> # Allow filename to be used instead of STDIN for debugging purposes
> open (STDIN, $ARGV[0]) if (($ARGV[0] ne "") && ($ARGV[0] ne "-"));
>
> $msgbody = 0;
>
> @mail = <STDIN>;
> for $mail (@mail)
> {
> if ($msgbody == 1)
> {
> $count = @body;
> @body[$count] = $mail;
> } else {
> $msgbody = 1 if ($mail =~ ?^$?); #Find Blank Line After Header
> }
> }
while ( <> ) { # reads from STDIN or the command line
if ( 1 .. /^\s*$/ ) { # true for line 1 through first blank line
# do something with headers
}
else {
# do something with body
}
close ARGV if eof; # reset $. for next file
}
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
