opening filehandles, creating files

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

Perl Monks,

I have modified an existing perl program (FormMail.pl) and am trying to create a new file and write to it. For example,

my $QB_file = $order_number . "SUF";
open (QBFILE, ">/home/client/www/data_dir/$QB_file") or die "could not
+ open QB output file: $!";
[download]

does not work ("no such file or directory").

This is what I have tried:

taking out the -T switch
commenting out use strict;
untainting the $order_number (which comes from another file)
putting the part of the filename path (/home/client/www/data_dir/) into a variable and concatenating it

and some other stuff, but nothing seems to work.

I would really like to create files with the order number as part of the filename and the FormMail.pl script works well.

Any suggestions?

Thanks.

Comment on opening filehandles, creating files Download Code

Replies are listed 'Best First'.
•Re: opening filehandles, creating files by merlyn (Sage) on Sep 07, 2003 at 21:10 UTC
If that's Matt Wright's "FormMail.pl", be sure you get the much better, more secure, better maintained version from NMS immediately. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
Re: Re: opening filehandles, creating files by bl0rf (Pilgrim) on Sep 07, 2003 at 23:48 UTC
Listen to merlyn. I think I personally found some security holes in that script!	[reply]
Re: opening filehandles, creating files by simonm (Vicar) on Sep 07, 2003 at 20:37 UTC
Make sure that the directory you're writing to already exists, or create it using mkdir. `die "Directory is missing" unless ( -d '/home/client/www/data_dir' );` Also note that if your web server is running chrooted, or mounts this same filesystem on another host, the directory path visible to your scripts might be different than the one you see when you log in to your shell or FTP account.	[reply] [d/l]
Re: Re: opening filehandles, creating files by madaket (Novice) on Sep 07, 2003 at 21:02 UTC
simonm, The directory exists, but the perl program can not open the file (or create it) -- "no such file or directory" Another strange thing about this is that I can read and write to files that already exist, but I'm not able to create a new file or write to it. Thanks for your suggestion -- I put it in the script.	[reply]
3Re: opening filehandles, creating files by jeffa (Bishop) on Sep 08, 2003 at 05:23 UTC
If you are creating the file from inside FormMail.pl and you are trying to access FormMail.pl as a CGI script then you have to: find out what user the web server runs as become root chown the directory in question to that user chmod the directory accordingly (755 should do it) However, the error i was expecting was `Permission denied` instead of `no such file or directory`. One thing i always try is to see if that path really exists. `ls /home/client/www/data_dir` [download] If it doesn't exist, problem solved. But if it does, then the error you have doesn't make sense. Perl will create the file if it is not found as long as the user running the script has permission. And please heed merlyn's advice and use NSM's FormMail instead (if you already aren't, of course ;)). jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l]
Re: opening filehandles, creating files by MarkM (Curate) on Sep 07, 2003 at 20:33 UTC
Chances are, /home/client/www/data_dir is not the real path that you should be using, or, /home/client/www/data is the path on a machine other than the web server. In either case, the "no such file or directory" is quite clear that the executing script is not able to find one: /home, /home/client, /home/client/www, or /home/client/www/data_dir. If it was a permissions problem, you would get "permission denied." If it was a tainting problem, you would see a taint error from Perl.	[reply]
Re: opening filehandles, creating files by Abigail-II (Bishop) on Sep 07, 2003 at 21:53 UTC
I've got to ask this. If you get an error message no such file or directory, what makes you do things like turning off tainting, turning off strictness, or the other things you list. What possible relationship can they have with no such file or directory? Abigail	[reply]
Re: Re: opening filehandles, creating files by madaket (Novice) on Sep 07, 2003 at 22:06 UTC
The filename is supposed to include a piece of data from another file -- that's why I was looking at taint, strict, etc. Progress is coming slowly -- right now, I am writing to a file, but the filename does not include the piece of data from another file.	[reply]


Keep It Simple, Stupid
	PerlMonks