I am assuming that the script you showed is complete ... there are a few
problems with it.
First the showstopper ... what is the value of $success? Did you mean
$success = open(DATA,">mydata.dat");
Next are the "probably a better idea to di it this way" (IMHO) stuff ...
die takes parameters and behaves almost like the print function in terms of
parameters. So instead of a separate print and then a die you could just as
well do this
die "Problem encountered\n";
It is also probably a good idea to put $! in the die statement as well to show
the errors (unnless u r doing a CGI app or have reasons not to show the error
generated by perl)
you also opened the handle but failed to close it. Perl cleans up after you
so you did not see problems but if htis script was run as a daemon process or
mod_perl you might run into problems. all you need to do is
close DATA;
Typically the code to do what you set out below is something like
open(DATA,">mydata.dat") or die "Problem encountered:$!\n";
print DATA "Hi Matt\n";
close DATA;
On Thu, Oct 25, 2001 at 12:35:02PM -0400, Matthew Mangione shaped the electrons to
read:
> hey im trying to write to a file with just like 6 lines of code and it doesnt work
>so I need some help. here is the code:
>
> #!perl
>
> open DATA, "> mydata.dat";
>
> unless ($success) {
> print "Problem Encountered";
> die;
> }
>
> print DATA "Hi Matt";
>
>
>
> thanx matt
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
