----- Original Message -----
From: "Jenda Krynicky" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, January 15, 2002 4:28 PM
Subject: Re: Matching Problem
> 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
I tried:
$msgbody = 1 if ($mail =~ /^$/); #Find Blank Line After Header
$msgbody = 1 if ($mail =~ m/^$/); #Find Blank Line After Header
$_ = $mail;
$msgbody = 1 if (?^$?); #Find Blank Line After Header
$_ = $mail;
$msgbody = 1 if (/^$/); #Find Blank Line After Header
and none of them worked.
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
