how can i open a new file with permission 0666 ?

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

Hi :)
How can I open a new file with permission 0666?

This is part of my script from 1 big program. I dont understand why, it is not working when the big program is running. When I cut and paste this small part to another file, then I run this file, then it is working.
Can anyone help me to figure out why?

if ($from eq $field18)
{
#build filename 
$tm=localtime;
($year,$month,$day)=($tm->year+1900, ($tm->mon)+1, $tm->mday);
($hour,$min,$sec)=($tm->hour, $tm->min, $tm->sec);
$filename=$day.$month.$year.$hour.$min.$sec."\.txt";
#go in to the right directory
$base="/home/".$userID."/mail/".$field21;
chdir("$base");

#build the full path name
$full=$base."\/".$filename;

#open the file first
open(OUTFILE2, ">$full") or die "Can?t open file: $!";

#write to the file
print OUTFILE2 "From: ", $from, "\n";
print OUTFILE2 "To: ", $to, "\n";
print OUTFILE2 "Subject: ", $subject, "\n";
print OUTFILE2 "Message body: ", "\n", $body, "\n";

close OUTFILE2;
#change file permission to read only
chmod ("$full", 0666);
}
[download]

That's why i am thinking that better i straight away generate a file with permission 0666, rather then try to chmod later.

Thanks a lot :)

hweefarn

Edited by BazB: added code tags, minor reformatting.

Comment on how can i open a new file with permission 0666 ? Download Code

Replies are listed 'Best First'.
Re: how can i open a new file with permission 0666 ? by !1 (Hermit) on Dec 24, 2003 at 11:06 UTC
I think you might have the order of the parameters reversed. perldoc chmod As for how to open with permission 0666, I can recommend perldoc perlopentut.	[reply]
Re: how can i open a new file with permission 0666 ? by maa (Pilgrim) on Dec 24, 2003 at 13:32 UTC
Hi, judging from your code you're running on a *nix platform. You should have a look at two things: `$ man umask` (Unix Man Page) `$ perldoc -f umask` HTH - Mark	[reply] [d/l] [select]
Re: how can i open a new file with permission 0666 ? by Aragorn (Curate) on Dec 24, 2003 at 13:32 UTC
You can open files with more control over the permissions with sysopen: `sysopen(OUTFILE2, $full, O_WRONLY, 0666)`. Maybe other flags are necessary, but this should get you underway. Arjen	[reply] [d/l]