I didn't think I needed the \s+ because in the perlre man page it says
$ matches the end of the line before the last newline.
Anyway, that did work so I wanted to thank you.
Sheridan
----- Original Message -----
From: "Tanton Gibbs" <[EMAIL PROTECTED]>
To: "Lysander" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Tuesday, January 15, 2002 4:59 PM
Subject: Re: Matching Problem
> 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]
