change dir owner

[Frank McCown]

This has probably been answered a million times, but I can't seem to
find the answer.

How can I change the owner of a directory using a Perl command? I
know chown can be used with files, but it doesn't appear to work with
directories.

Thanks in advance,
Frank

 

[Frank McCown]

I found that you can issue a system command that works instead, but it
seems like there should be a Perl function that does the same.

system("chown username.groupname my_folder");

 

[dw]

I found that you can issue a system command that works instead, but it
seems like there should be a Perl function that does the same.

system("chown username.groupname my_folder");

it's in there....
perldoc -f chown

 

[Frank McCown]

This is a reference to the chown function that changes FILE ownership,
not DIRECTORY ownership. I've tried to use the chown function to
modifiy dir ownership, and it fails.

 

[nobull]

This has probably been answered a million times, but I can't seem to
find the answer.

Possibly because the question doesn't exist.

How can I change the owner of a directory using a Perl command? I
know chown can be used with files, but it doesn't appear to work with
directories.

Please produce a minimal but complete set of instuctions to reproduce
the apparance of it not working.

This newsgroup does not exist (see FAQ). Please do not start threads
here.

 

[dw]

This is a reference to the chown function that changes FILE ownership,
not DIRECTORY ownership. I've tried to use the chown function to
modifiy dir ownership, and it fails.

It works for me on both files and directories using 5.8 on both Linux and
cygwin.

Only problem I had on Linux was a permission problem when doing it as
someone other than root... doing
chown $owner, -1, $dir or print "unable to change $dir: $!"
gave me "Operation not permitted" as me, but as root, it worked without a
problem.

What error did it give you?

From cygwin:
$ ll
total 0
drwxrwxrwx+ 2 SYSTEM None 0 Dec 2 23:29 dir/
-rw-rw-rw- 1 SYSTEM None 0 Dec 2 23:29 file1
-rw-rw-rw- 1 David None 0 Dec 2 23:29 file2

$ perl -e 'chown ((stat("file2"))[4], -1, "dir", "file1");'

$ ll
total 0
drwxrwxrwx+ 2 David None 0 Dec 2 23:29 dir/
-rw-rw-rw- 1 David None 0 Dec 2 23:29 file1
-rw-rw-rw- 1 David None 0 Dec 2 23:29 file2

 

[Frank McCown]

dw-

Your code snippet worked fine on my system. I ran my original code
this morning and I can't reproduce my original error (yet)... very
frustrating.

I really appreciate your time.


nobull-

You are one witty guy. Why don't you tell the guys at Google that
this newsgroup doesn't "exist", and maybe they'll disable their
software to allow posts to it.

 

[nobull]

In a follow-up to someone else, but clearly supposed to be in response

You are one witty guy. Why don't you tell the guys at Google that
this newsgroup doesn't "exist", and maybe they'll disable their
software to allow posts to it.

http://groups.google.com/[email protected]