[Melbourne-pm] chowning symlinks in perl?

[Alfie John]

sorry... forgot you wanted the actual symlink:

my $filename = readlink $symlink;
chown $uid, $gid, $filename;

Alfie

On 23/09/2005, at 9:50 PM, Alfie John wrote:

> how about using Perl's chown function?
>
> perldoc -f chown
>
> Alfie
>
> On 23/09/2005, at 8:03 PM, David Dick wrote:
>
>
>> Can anyone figure out how to do chown a symlink in perl? Not the
>> referent, but the actual symlink. My best effort so far is
>>
>> system("chown user:group symlink");
>>
>> but there might be a better way/module?
>>
>> uru
>> -Dave
>> _______________________________________________
>> Melbourne-pm mailing list
>> Melbourne-pm at pm.org
>> http://mail.pm.org/mailman/listinfo/melbourne-pm
>>
>>
>
> _______________________________________________
> Melbourne-pm mailing list
> Melbourne-pm at pm.org
> http://mail.pm.org/mailman/listinfo/melbourne-pm
>