On Tue, May 18, 1999 at 12:16:15AM -0400, Van wrote:
> 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 */
s/\s+/ /gs;
> print "$_:";
> }
> }
> print "\t";
> print "Body: ";
> print $emails[$i]{'body'};
> }
If you're going to use Perl, you won't be using awk or sed unless
you're doing something the hard way.
Tim
