How to check if directory has write permissions.

[vishaltomar]

Hi,
I post this question at a time when my neck is on the line.

i have a problem in getting the directory permission using the -w operator.

i need to get the permission before I run the xcopy system command.

I have to use core Perl modules and nothing else. So the restriction.

My code had a problem working with this operator "-w", so I created a test code to see what it returns.

I used two directories: one with write permission and the other with out.

if(-w $FROM_DIR_PATH)
{
print "\n 1 : $FROM_DIR_PATH"
}
if(!(-w $FROM_DIR_PATH))
{
print "\n 2 : $FROM_DIR_PATH"
}

if(-w $TO_DIR_PATH)
{
print "\n 3 NOT: $TO_DIR_PATH"
}
if(!(-w $TO_DIR_PATH))
{
print "\n 4 NOT: $TO_DIR_PATH"
}

---------------
OUTPUT
---------------
1 : d:\test
3 NOT: d:\temp


Here,
d:\test folder had all the right to create anything inside it.
and
d:\temp folder did not have any rights on it. (clicking on it would say "Access Denied").

How do i get the permissions on the folders then?
Am I using the "-w" operator properly??

My system has Windows XP OS.


Please help me out!!!!!!

[KevinADC]

Do directories on Windows XP even have permissions?

[numberwhun]

Do directories on Windows XP even have permissions?

I am not really sure. I know they aren't like Unix file/directory permissions, that is for sure.

Also, isn't the -w a file test? Would it work on a directory? I have never tried.

Regards,

Jeff