Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
Hi,
I retrieve the body of my message from an Oracle 8i LONGRAW column, the data being a text file previously inserted using the <input type="file"> form element.
I'm then using a perl script to send the content via MIME::Lite:
I then print out the body...$dbh->{LongReadLen} = 256 * 1024; ($body) = $dbh->selectrow_array("select content from $dtab where name += '$name'"); $body =~ s/\r/\n/g;
I have all the details for sending the message, but it arrives without newlines as one loong message.open (OF, ">body.txt"); print OF $body; close (OF);
I've tried most char substitions on $body such as:$msg = MIME::Lite->new( From => $from, To => $to, Subject => $subject, Type => 'text/html', Data => qq{ $body } ); MIME::Lite->send('smtp', 'smtpsvr.net, Timeout=>240); $msg->send();
only s/\r/\n/ has any effect and only on the data written to the filehandle. Otherwise the body content is just one long string, no carriage returns! Strange one, perhaps the Monks can help?s/\cM/\n/ s/\r\n/\n/
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: MIME::Lite, DBI LONGRAW's & newlines
by zakb (Pilgrim) on Jun 20, 2002 at 15:06 UTC | |
Re: MIME::Lite, DBI LONGRAW's & newlines
by gav^ (Curate) on Jun 20, 2002 at 15:39 UTC | |
by Anonymous Monk on Jun 21, 2002 at 08:56 UTC |
Back to
Seekers of Perl Wisdom