hmm......still doesn't seem to work...here is my code perlmail.pl
my @lines=<>;
for ($i=0; $i < scalar(@lines); $i++) {
if ($lines[$i] =~ /^$/) {
$s=$i;
break;
}
}
for (my $i=$s+1; $i < scalar(@lines); $i++) {
print "$lines[$i]";
}
thanks again
ewzi
Phil Pennock wrote: >
> On 2001-03-20 at 01:56 -0800, ewzi gifted us with:
> > thanks for the solution, it's works when I tested it manualy, but this
> > might sound stupid but I am not able to match the blank like which exim
> > passes after the header either using
> >
> > /^\s+/ OR \n OR /^[ \t]*$/
> >
> > is the blank like a new line or a return or tab or whitespace ?, any
> > string match this ?
>
> The blank line is two consecutive newlines.
>
> /^$/
>
> Anything else is wrong.
>
> ( I'm fairly sure that Exim does CRLF -> LF conversion before Perl gets
> to see it, so you don't need to worry about $/ )
> --
> "First they ignore you, then they laugh at you, then they fight you, and
> then you win. And once you have won, they join you." - Mahatma Gandhi