in reply to 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

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]

      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]

In Section Seekers of Perl Wisdom