I'm using Vista x64, but Perl 5.10 32-bit, due to a couple of modules that haven't been ported to x64 and I was not able to port. I don't have anything particularly performance-dependent going, so I never tried benchmarking the 32-bit Perl versus the x64 build, but I've never noticed any speed problem and never had a problem running the same setup from my old XP box.

Maybe you can use the 32-bit version? For what it's worth.

--marmot

Hi Marmot, Thanks for your reply. My system is required to migrated to Win2008 X64, the Perl scripts is a part of the system, so I don't want my Perl has to keep at the 32 bit version due to this module Win32::Perms, can you please help to give a suggestion which module can replace Win32::Perms and implemented the same function(get/change a file's owner)???

can you please help to give a suggestion which module can replace Win32::Perms

Not sure it does what you want but Win32::FileSecurity, which ships with ActivePerl, might be worth checking.
I was wondering if Set( $filename, \%permisshash ); would enable you to do what you want.

Cheers,
Rob

 
 use Win32::OLE;
  my $objShell = Win32::OLE->CreateObject("Shell.Application");
  my $objFolder=$objShell->Namespace("c:\\a") or die "$!" ;
  my $a = $objFolder->ParseName("a.txt")  or die "$!" ;
  print $objFolder->GetDetailsOf($a, 8) or die "$!" ;
[download]

http://www.roth.net/perl/perms/

The ppd doesn't contain an x64 build, and the source code link at Roth's website is broken.

Yes, you are right.