Try and amend these few lines to make them Win32 compliant.
The other possible approach is to actually write your
own getpwuid. Now, doing a general, re-usable one is
hard, because Win32 doesn't supply certain things.
(That's why Perl doesn't do this in the first place.)
However, you likely only need to return values for
one user (yourself), and so a special-case version
of it that just works for you might be easy.
Especially since the calling code may only be
using certain values, such as the username and
"comment" (i.e., human-readable name).
Of course, this may also be futile, since code that
relies on getpwuid may make other assumptions that
will break on Win32 as well.
$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
| [reply] [d/l] |