Joon Hahn wrote:
> Hello all,
>
> I was wondering if somebody out there had a perl script that would delete everything
> below
>
> -----Original Message-----
>
> in an email? I have a workflow engine which grabs the entire body of an email an
> updates a worklog. The problem is it grabs the
> whole email instead of just the most recent update. As you can see it can get very
> messy and unusable. Any help would be
> greatly appreciated.
It depends how your email is coming into Perl. As a filter it's simple:
while (<>) {
last if /\Q-----Original Message-----/;
print;
}
Does that help?
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
