File::Find with win32 direct~1's containing spaces.

one4k4 has asked for the wisdom of the Perl Monks concerning the following question:

I'll admit, I've done all of 15 minutes of research into this possible issue, but here goes.

Has anybody had any problems with File::Find and long path-names? We have paths similar to x:\whatever\weekly and biweekly\something else\etc.

At first glance my script (which is to archive all files within the directories under a starting point into directory\archive\db-gathered-date) is having problems with directories similar to the above.

If anybody is interested, I'll post code snippets, but I'm more-or-less simply asking the grape-vine if there have been any "issues" before.

_14k4 - perlmonks@poorheart.com (www.poorheart.com)

Comment on File::Find with win32 direct~1's containing spaces. Download Code

Replies are listed 'Best First'.
Re: File::Find with win32 direct~1's containing spaces. by gav^ (Curate) on Jun 26, 2002 at 01:36 UTC
I've not ever had a problem. I just whipped up a test script: `use File::Find; find(sub { print "$File::Find::name\n" if -d }, "c:/program files/");` [download] And this gives me entries like: `c:/program files/Netscape/Communicator/Program/NetHelp/netscape/compos +er c:/program files/InstallShield Installation Information/{0AD84416-63A4 +-4CF3-BDDF-8FA866711FB0}` [download] So without posting your code I'm not sure what's up :) gav^	[reply] [d/l] [select]
Re: Re: File::Find with win32 direct~1's containing spaces. by one4k4 (Hermit) on Jun 26, 2002 at 01:41 UTC
Thank you so much! I'm perfectly happy knowing that it's my code, rather than something that's a little harder to do than first suspected. :) _14k4 - perlmonks@poorheart.com (www.poorheart.com)	[reply]
Re: File::Find with win32 direct~1's containing spaces. by grantm (Parson) on Jun 26, 2002 at 11:36 UTC
Where I have run into problems is using the `system()` function with files containing spaces. The Win32 command shell is pretty limited when it comes to quoting (double quotes or nothing). To work around that, I sometimes do this: `my $short_name = Win32::GetShortPathName($long_name);`	[reply] [d/l]
Re: Re: File::Find with win32 direct~1's containing spaces. by one4k4 (Hermit) on Jun 27, 2002 at 03:31 UTC
Ahh, that may be where my bug was... as I was using the system command to create directories, move files, et atl. Thanks, it gets my ++! _14k4 - perlmonks@poorheart.com (www.poorheart.com)	[reply]