enumerate windows unicode filenames (mulchman)

enumerate windows unicode filenames

mulchman

created: 2006-03-02 18:14:27

perlmonks

node
author

prlmnks

node
author

How can I enumerate windows path\\filenames, including those in non-english languages? I can enumerate and print all the english filenames using find(\%sub, $RootDir), but the non-english filenames aren't printed. Is this a unicode handling problem?

Re: enumerate windows unicode filenames

rhesa

created: 2006-03-02 18:25:30

perlmonks

prlmnks

See Win32 API directory searches that return wide / unicode filenames.

Re: enumerate windows unicode filenames

Courage

created: 2006-03-05 07:00:21

perlmonks

prlmnks

In my code I solve a problem like this (this is in 5.6.1 time, now use Unicode is somewhat obsolete):

use Win32::OLE qw(in CP_UTF8);
use Win32::OLE::Const;

Win32::OLE->Option(CP=>CP_UTF8);

use Unicode::String qw/utf8/;

my $oshell = Win32::OLE->new('Shell.Application') or die "$@";
my $f = $oshell->NameSpace(Win32::GetCwd());
print "[$f]";
my $fi = $f->Items;
print $fi->Count;
print "\n";
for (0 .. $fi->Count-1) {
  my $item = $fi->Item($_);
  my $name = $item->Name;
  my $u=utf8($name);
  my $s = $u->hex;
  $s=~s/U\+00(\w\w)/my($r,$p)=((pack 'H*',$1),$&);if($r=~m(^[()\w .;\-+!]$)){$r}else{$p}/eg;
  $s=~s/(U\+[\da-f][\da-f][\da-f][\da-f])/($1)/ig;
  my $ren=0;
  $ren=1 if $s=~/U\+(?!00)/;
  $s=~s/[ +]//g;
  print "$ren|$s\n";
  if($ren){$item->{Name}=$s}
}

Best regards,
[Courage], the Cowardly Dog