If it really is a blank line, then it will have a newline and won't match
/^$/
therefore, chomp the string before trying to match against it, or test for
spaces
/^\s+$/
----- Original Message -----
From: "Lysander" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, January 15, 2002 6:07 PM
Subject: Re: Matching Problem
> ----- 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]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
