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$/
[download]