Re^6: Windows NTFS UTF-16LE File-Operations


Your skill will accomplish what the force of many cannot
	PerlMonks

Re^6: Windows NTFS UTF-16LE File-Operations

by BrowserUk (Patriarch)

on Feb 21, 2012 at 00:53 UTC ( [id://955199]=note: print w/replies, xml )

Need Help??

in reply to Re^5: Windows NTFS UTF-16LE File-Operations
in thread Windows NTFS UTF-16LE File-Operations

Yes. That seems to work. I thought that -C0 would take care of that for me...I'm just very glad that I don't have to deal with this crap!

\test\junk>perl -C0 -E"say Win32::GetLongPathName( $_ ) for glob '*'"
acent�.txt
Wide character in print at -e line 1.
ελληνικά
ικά
�

C:\test\junk>perl -MEncode -E "say encode('UTF-8', Win32::GetLongPathName( $_ ) ) for glob '*'"
acentó.txt

ελληνικά
ικά
�

C:\test\junk>dir
12/11/2010 05:58 7 acentó.txt
20/11/2010 09:46 <DIR> ελληνικά