Hi Meir,
On Tue Mar 04 12:21:15 2014, meir@guttman.co.il wrote:
Show quoted text> Thank you Shlomi,
>
> Here is my environment:
> * Perl: Strawberry Perl v.5.18.2 x64 bit
> * OS: Win-7 Pro 64-bit Service Pack 1 Build 7601
> * Architecture: x64-based PC
> * File::Find::Object details:
> C:\strawberry\perl\site\lib\File\Find\Object.pm
> Installed: 0.2.9
> CPAN: v0.2.9 up to date
> Shlomi Fish (SHLOMIF)
> shlomif@shlomifish.org
>
OK, thanks for the info.
Show quoted text> And I think that my Perl distribution doesn't deal well with
> Unicode/utf8 statements. For example, the following lines:
> my $start_dir = "D:/Meir/Dropbox/About/לשון עברית";
> chdir "$start_dir" or die "Can't cd to $start_dir: $!\n";
>
> dies with:
> Can't cd to D:/Meir/Dropbox/About/לשון עברית: No such
> file or directory
> (the garbage characters are due to the 'cmd' windows lack of Unicode
> support.
>
> I would like to note that the above is despite having:
> use utf8;
> binmode(STDOUT, ":utf8");
> binmode(STDERR, ":utf8");
> in my code!
> And of course, the directory "לשון עברית" is there!
> I am attaching a directory with Hebrew named files among others.
>
> And regarding your other mail, how can I use
> Win32::GetLongPathName(PATHNAME) in the context of File::Find::Object?
I think you do something like:
my $result_short = $ffo->next();
my $result_long = Win32::GetLongPathName($result_short);
And then look at $result_long.
Regards,
-- Shlomi Fish
Show quoted text>
> Regards,
> Meir
