Re^3: I go crazy with windows filenames with spaces!

I could not find

Win32::GetShortPathName($fullpath);

But I've knocked up this which seems to work

use Win32::API;

sub GetShortPathName
{
   my $GetShortPathName = new Win32::API('kernel32', 'GetShortPathName
+A', 'PPN', 'N');
   die "Can't import API GetShortPathNameA:\n$!" unless defined $GetSh
+ortPathName;
   my $longpath = shift;
   my $length = 1 + length $longpath;
   my $shortpath = ' ' x ($length);
   $length = $GetShortPathName->Call($longpath, $shortpath, $length);
   return substr($shortpath, 0, $length);
}
[download]

Comment on Re^3: I go crazy with windows filenames with spaces! Select or Download Code

Replies are listed 'Best First'.
Re^4: I go crazy with windows filenames with spaces! by Anonymous Monk on Oct 06, 2011 at 10:20 UTC
I could not find Win32::GetShortPathName($fullpath); What does that mean? Win32::GetShortPathName has been available since perl 5.6	[reply]
Re^5: I go crazy with windows filenames with spaces! by Anonymous Monk on Oct 06, 2011 at 10:27 UTC
Since at least `On Thu, 09 Oct 1997 08:30:55 PDT Perl 5.004_02` [download]	[reply] [d/l]