File I/O question

sierpinski has asked for the wisdom of the Perl Monks concerning the following question:

Hello Monks,

I am working on a script that mails the contents of a file, but for some reason the first line is always truncated. I tested this by adding a blank line at the beginning of the file, then it seemed to work as expected. I'd like to see if someone can tell me where I've gone wrong here:

        open(MAIL, "|mail $EMAIL");
        print MAIL "To: $EMAIL\n";
        print MAIL "From: $FROM\n";
        print MAIL "Subject: $MAILSUB\n";
        print MAIL "Content-Type: text/plain; charset=\"iso-8859-1\"";

        open(MESSAGE, "<", "$TMPFILE") or die "$!";
        print MAIL <MESSAGE>;
        close MESSAGE;
        close MAIL;
[download]

Thanks!

Comment on File I/O question Download Code

Replies are listed 'Best First'.

Re: File I/O question
by afoken (Chancellor) on Jul 07, 2009 at 16:48 UTC

You need an empty line between the last header and the content. And of course, you need a line end after the content type header. BTW: You should not use \n for network linefeeds, but \015\012. The former depends on the O/S, the latter doesn't, it always generates the required byte sequence. (\n works most of the time, because most servers are quite tolerant.)

Alexander

--
Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)

[reply]

Re^2: File I/O question

by ikegami (Patriarch) on Jul 07, 2009 at 17:31 UTC

Discounting an obsolete build of Perl on an obsolete version of Mac, there's no OS dependency. The only difference is whether the :crlf I/O layer is used or not.

The :crlf layer is used by default on Windows and in environments where it appears in $ENV{PERLIO}. Overriding the default PerlIO layers can avoid it, and the one-argument call to binmode disables it.

With :crlf IO layer absent or disabled
	MacPerl*	Everything else
`\n`	`CR`	`LF`
`\r`	`LF`	`CR`
`\012`	`LF`	`LF`
`\015`	`CR`	`CR`
`\015\012`	`CR LF`	`CR LF`

With :crlf IO layer present and enabled
	MacPerl*	Everything else
`\n`	N/A	`CR LF`
`\r`	N/A	`CR`
`\012`	N/A	`CR LF`
`\015`	N/A	`CR`
`\015\012`	N/A	`CR CR LF`

MacPerl is an obsolete build of Perl for obsolete Macs. It predates PerlIO.

[reply]
[d/l]
[select]

Re^2: File I/O question

by sierpinski (Chaplain) on Jul 07, 2009 at 17:14 UTC

[reply]

Re^3: File I/O question

by hnd (Scribe) on Jul 08, 2009 at 11:06 UTC

sudo apt-get xmail

use Mail::Mailer;

$mailer=Mail::Mailer->new("sendmail");
$mailer->open ({  From=> <from address here>,
                  To=> <to address here>,
                  Subject=> <subject here>,
               }) or die "cant open mailer\n";

$body=<>;
print $mailer $body;
$mailer->close();
[download]

i'am worst at what do best and for this gift i fell blessed...
i found it hard it's hard to find well whatever
NEVERMIND

[reply]
[d/l]
[select]

Re: File I/O question
by cbraga (Pilgrim) on Jul 07, 2009 at 18:03 UTC

ESC[78;89;13p ESC[110;121;13p

[reply]


Don't ask to ask, just ask
	PerlMonks