in reply to Re^4: remove a blank line after a string
in thread remove a blank line after a string

Maybe like this? (I'm sure you could come up with something yourself if you thought about it)

my $msg = $pop->get($msgnum);
LOOP: for ( 0 .. $#{$msg} ) {
    unless( $msg->[$_] =~ m/\QContent-Transfer-Encoding: 7bit\E/i ) {
        print OUTFILE $msg->[$_];
        next LOOP;
    }
    splice( @{$msg}, $_ + 1, 1 ) if $msg->[ $_ + 1  ] =~ m/^\s+$/;
#    delete  # This is probably a mistake.  Delete what?  And where's 
+the semicolon?
    last LOOP;
}

[download]

Dave

Replies are listed 'Best First'.
Re^6: remove a blank line after a string
by johnajb (Novice) on Feb 19, 2005 at 14:32 UTC

    Hi All,
    I really need your help on this one. I must apologize that my formatting has been terrible. I tried to use the code tag but it
    I need to we-write an email header and none of the mail modules work well for what want to do because the mail is non-compliant. I need to find the first instance of the Recipients field. For some reason it is not in the header, it is in the body.
    I need to write the recipients field and associated email to a new file. (No whitespace allowed) I then need to move down to the Content-Transfer-Encoding: 7bit field (the first instance as well), and append the rest of the mail (after the blank space after the Content-Transfer-Encoding: 7bit field) to the new file under the last recipient email address with no blank lines. This will make the emails compliant so I can properly parse them
    It may be easier just to remove the blank field after Content-Transfer-Encoding: 7bit;, then remove Content-Transfer-Encoding: 7bit; and all lines above it besides the recipients field and emails. (There are a couple of blank lines above and below the recipients and emails). I am not sure and would appreciate some help. I have included the recipients field and the lines above it below. There is nothing but blank space under the recipients,
    Thanks 
    Sender: "Capturil" <smtp:Capturil@manywhere.com>
Message-ID: <166E9D4D3E50EF4E87B2C7AC28634094784B@REDSERV1.RM.local>
Recipients:
        "warren glick" <smtp:wglick@manywhere.com>,
        "John Bentley" <smtp:JB@manywhere.com>,
        "Earl Woolley" <smtp:EWoey@manywhere.com>,
        "CaMail" <smtp:CaptureMail@manywhere.com>

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom