在Perl for Windows中如何处理$<呢?

在我的Win7盒子上, $< 和 $> 无论我是以管理员、提升的管理员还是普通用户身份运行,始终返回0。我认为Perl只是轻描淡写,因为Windows上的用户ID不能简单地表示为整数,所以它甚至不会尝试。

事实上,这是 source code (第1073行):

/* Ownership
 *
 * Just pretend that everyone is a superuser. NT will let us know if
 * we don\'t really have permission to do something.
 */

#define ROOT_UID    ((uid_t)0)
#define ROOT_GID    ((gid_t)0)

uid_t
getuid(void)
{
    return ROOT_UID;
}

uid_t
geteuid(void)
{
    return ROOT_UID;
}

gid_t
getgid(void)
{
    return ROOT_GID;
}

gid_t
getegid(void)
{
    return ROOT_GID;
}

int
setuid(uid_t auid)
{
    return (auid == ROOT_UID ? 0 : -1);
}

int
setgid(gid_t agid)
{
    return (agid == ROOT_GID ? 0 : -1);
}