Re: Removing Signature from Email

This response assumes the portion you want to remove is always on the line immediately after the signature designator.

## Assumes that name of file is in $messagename. Could 
## easily be put in a sub and used that way. 
open (MESSAGE, $messagename) or die "Couldn't open email:$!\n";

while (<MESSAGE>){
    # Test for the signature line
    if (/^--$/) {
        #get rid of the next line by reading it in. 
       <MESSAGE>;
    } else {
    print $_;
    }
}

close MESSAGE or die "Couldn't close message:$!\n";
[download]

This may not be the most efficient code in the world, but it will get the job done -- it would be used by taking an input file and piping to an output file.

It's possible that someone can come up with a better solution by modifying $/ and then using a substitution to find that particular block that you wish to rid yourself of, but I'm simply not clever enough to do that tonight

Comment on Re: Removing Signature from Email Download Code

Replies are listed 'Best First'.
Re: Re: Removing Signature from Email by HTTP-404 (Sexton) on Apr 08, 2001 at 13:40 UTC
this is the code i have that's doesn't work it downloads all mail and then saves as XML file use Mail::POP3Client; $pop = new Mail::POP3Client( USER => "***", PASSWORD => "**", HOST => "127.0.0.1" ); open(OUTPUT,">mail.xml") or die; $id=0; for( $i = 1; $i <= $pop->Count(); $i++ ) { $id++; print OUTPUT "<message>\n"; $header=$pop->Head( $i ); $body=$pop->Body($i); $header =~ m#^From: (.?)$#m; $from=$1; $header =~ m#^To: (.?)$#m; $to=$1; $header =~ m#^Subject: (.?)$#m; $subject=$1; $header =~ m#^Date: (.*?)$#m; $date=$1; #print "$header\n"; print OUTPUT "<from>$from</from>\n"; print OUTPUT "<to>$to</to>\n"; print OUTPUT "<subject>$subject</subject>\n"; print OUTPUT "<date>$date</date>\n"; print "Msg ID: $id\n"; #have to edit here if ($body=~/^--$/) { next; } else { print OUTPUT "<body>\n$body\n<\body>\n"; } #ends print OUTPUT "</message>\n"; } $pop->Close(); [download] could any1 help me plz	[reply] [d/l]
Re: Re: Re: Removing Signature from Email by Wodin (Acolyte) on Apr 08, 2001 at 14:10 UTC
Looking at the docs for Mail::POP3Client, I think you want to get the body as an array of lines and then iterate over that array, keeping only those lines which are not the signature and the line immediately following it. Right now, you're saying `$body = $pop->Body($i);` which would be in a scalar context and force Mail::POP3Client to return the body as one big string. Hopefully, the following code will clear up your problem. Be warned that this is untested. `my @lines = $pop->Body($i); ## Some code passes, not much, not a little, what am I, a watch? ## iterate over @lines, checking if we want to keep it. print OUTPUT "<body>\n"; foreach $line (@lines) { if ($line =~ /^--$/) { # Everything else is signature, # so we break the foreach loop last; } else { print OUTPUT $line; } } print OUTPUT "\n<\body>\n";` [download] Hope this works.	[reply] [d/l] [select]


Think about Loose Coupling
	PerlMonks