Gossamer Forum: General: Perl Programming: Creating automatically with desired permissions.

Mar 28, 2003, 4:37 PM

zeshan

User (98 posts)

Mar 28, 2003, 4:37 PM

Post #1 of 4

Shortcut

Creating automatically with desired permissions.

open (LOGFILE, ">/home/database.db") ;
print LOGFILE "Here goes the data\n";
close (LOGFILE) ;

Above given is the simple script. IF database.db is not existing script will create the file automatically. But the problem is it is created with the permissions of 0644. I want to create it with permission 0666 by the script. I tried.

open (LOGFILE, ">/home/database.db") ;
print LOGFILE "Here goes the data\n";
close (LOGFILE) ;
chmod (0666, '/home/database.db');

But it's not working, any solution to it?

Thanks,

Zeshan.

Last edited by:

zeshan: Mar 28, 2003, 4:38 PM

Mar 28, 2003, 4:43 PM

Paul

Veteran (19537 posts)

Mar 28, 2003, 4:43 PM

Post #2 of 4

Shortcut

Re: [zeshan] Creating automatically with desired permissions. In reply to

You should always use error checking. Currently you aren't using any =)

Code:
open (LOGFILE, ">/home/database.db") or die "Can't open: $!";

Code:
chmod (0666, '/home/database.db') or die "Can't chmod: $!";

Mar 28, 2003, 7:06 PM

zeshan

User (98 posts)

Mar 28, 2003, 7:06 PM

Post #3 of 4

Shortcut

Re: [Paul] Creating automatically with desired permissions. In reply to

Should I Open First or Chmod first?

Thanks for your help.

I really needed that.

Mar 29, 2003, 2:09 AM

Paul

Veteran (19537 posts)

Mar 29, 2003, 2:09 AM

Post #4 of 4

Shortcut

Re: [zeshan] Creating automatically with desired permissions. In reply to

Well you can't chmod a non existant file so you need to open first.