From: "Lysander" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Subject: Matching Problem
Date sent: Tue, 15 Jan 2002 16:07:41 -0600
> 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
> }
> }
You should either use /^$/ instead or make sure you use the ?^$?
correctly. Please reread the description in perlop manpage and if
you are not sure you understand it use /^$/ instead.
I've never used the ?? operator, so maybe you should not either :-)
Jenda
=========== [EMAIL PROTECTED] == http://Jenda.Krynicky.cz ==========
There is a reason for living. There must be. I've seen it somewhere.
It's just that in the mess on my table ... and in my brain.
I can't find it.
--- me
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
