From: Van
Date: May 18 1999 4:16am
Subject: Now, How to sed on Perl Vars?
List-Archive: http://lists.mysql.com/mysql/3504
Message-Id: <3740E98F.A0D08B3@dedserius.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Okay, this is starting to stray way off topic, but, I'm to close to
resist.
I've got a perl script that strips the header off a MIME mail message. 
I can live with glomming the header into one record, and the body into
another.  But, in the header there are \n's and \t's.  How do I get rid
of them?
i.e.
for (my $i = 0; $i < @emails; ++$i) {
    my $headers = $emails[$i]{'headers'};

    print "Headers:";
    foreach (sort keys %$headers) {
        print "$_:|";
        foreach (@{$headers->{$_}}) {
	    /* I would think print "$_:" | sed '/\//s//-/g' ->
mynewvarwithoutlinefeeds */
            print "$_:";
        }
    }
    print "\t";
    print "Body:  ";
    print $emails[$i]{'body'};
}
Van

-- 
=========================================================================
Linux rocks!!!   www.dedserius.com
=========================================================================