|-----Original Message-----
|From: lance w [mailto:[EMAIL PROTECTED]
|Sent: Tuesday, May 31, 2005 6:42 PM
|To: beginners@perl.org
|Subject: simple open file
|
|
|Hello,
|I'm trying to open (create if necessary) a file for APPEND, that will
|serve as a log. The script I'm using will open a file, but fails to
|print anything to it. Any advice?
|
|
|
|my $filename = "open_file.txt";
|open(APPEND, ">> $filename")
| or die "Couldn't open $filename for appending: $!\n";
| write "$subscriber\n";
|close APPEND;
|
|--
|To unsubscribe, e-mail: [EMAIL PROTECTED]
|For additional commands, e-mail: [EMAIL PROTECTED]
|<http://learn.perl.org/> <http://learn.perl.org/first-response>
|
You havent specified the FILEHANDLE to write to in 'write'. 'write' will
write to the default filehandle (STDOUT by default, can be changed by
'select'ing any other valid filehandle).
Also, APPEND may be a bad choice of filehandle name.
my $filename = "open_file.txt";
open(LOGFILE, ">> $filename")
or die "Couldn't open $filename for appending: $!\n";
write LOGFILE "$subscriber\n";
close LOGFILE;
*********************************************************
Disclaimer:
The contents of this E-mail (including the contents of the enclosure(s) or
attachment(s) if any) are privileged and confidential material of MBT and
should not be disclosed to, used by or copied in any manner by anyone other
than the intended addressee(s). In case you are not the desired addressee,
you should delete this message and/or re-direct it to the sender. The views
expressed in this E-mail message (including the enclosure(s) or attachment(s)
if any) are those of the individual sender, except where the sender expressly,
and with authority, states them to be the views of MBT.
This e-mail message including attachment/(s), if any, is believed to be free of
any virus. However, it is the responsibility of the recipient to ensure that
it is virus free and MBT is not responsible for any loss or damage arising in
any way from its use
*********************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
