Can somebody tell me how to create a file using perl?

[gopunk]

i have this line:

open (OUTFILE, ">$path/$filename");

but it doesn't do jack....

thanks in advance 🙂

 

[minendo]

Are you wanting to write to the file, append it, or input data from it? I'm not the best at perl, but I'll give it a try.

Try this: open (OUTFILE, ">>$path/$filename");

 

[gopunk]

hey minendo, thanks for the help... for whatever reason it is working now with the original code 😕

but yea, i was talking about creating a file... i think the single greater than symbol is right for that?

 

[Mucman]

Gopunk, I believe the dual greater than symbols will create a file if it does not exist while the single greater than sign will append any new output to an existing file... but don't quote me on that 🙂

 

[Nothinman]

If MODE is '<' or nothing, the file is opened for input. If MODE is '>', the file is truncated and opened for
output, being created if necessary. If MODE is '>>', the file is opened for appending, again being created if necessary.

From the perlfunc manpage section for open, so > should work.

 

[Mucman]

<< If MODE is '<' or nothing, the file is opened for input. If MODE is '>', the file is truncated and opened for >>



I sit corrected!

 

[stndn]

open (OUTFILE, "filename"); --> open a file for read
open (OUTFILE, ">filename"); --> open a file to write. if the file exist, it will be replaced
open (OUTFILE, ">>filename"); --> open a file to write. if the file exist, it will append to the end of file

both 2 and 3 created the file if it does not exist yet
also, remember that you will need to have write permission to successfully run 2 and 3

for 1, it only works if the file exist

might also want to consider checking the return value of open(), since it may just return NULL if file doesn't exist (case 1) or if you don't have write permission (2 and 3)

-947-