Hello,
I need a script that runs under Unix and Win32. In this script I check some rights/permissions of files/directories.
With unix the tests -r [FILE] -w [FILE] give the expected results, but not on win32.
Any examples for win32 would be greatly appreciated. Please extend my function:
sub isWritable {
my $ret;
if ( $ostype eq 'unix' ) {
$ret=-w $_[0];
}
else { # win
???
}
$ret;
}
Walter Laub
_______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
