Here is a piece of code that will remove the signature (and only the signature!) from a message, provided the signature is stored in the __DATA__ part of the script:
#/bin/perl -w use strict; # read the signatures $/="\n\n"; my @sig= <DATA>; chomp @sig; # chomp every element, so we get rid of the extra \ +n undef $/; my $message= <>; # read the message foreach my $sig (@sig) { # \Q \E quotes the meta-characters in $sig # \s* skips trailing spaces or \n # and last just avoids unnecessary extra matches $message=~ s{\Q$sig\E\s*}{}s and last; } print $message; __DATA__ _______________________________________________ Perl-XML mailing list Perl-XML@listserv.ActiveState.com http://listserv.ActiveState.com/mailman/listinfo/perl-xml -- PHP Windows Mailing List (http://www.php.net/) ----------------------------
In reply to Re: Removing Signature from Email
by mirod
in thread Removing Signature from Email
by HTTP-404
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |