Windows dir 커맨드 유니코드 출력

작성일: 2013-12-25

(http://www.activestate.com/activeperl) 이 필요함.

Perl 코드

open fList, '-|:encoding(UTF-16LE)', 'cmd /U /C dir /ad/s/w';
open fOut, '>', 'out.txt';
foreach (<fList>) {
utf8::encode($_);
print fOut $_;
}

예시)

[PNG image (9.88 KB)]

cmd>dir

 C 드라이브의 볼륨에는 이름이 없습니다.
 볼륨 일련 번호: 

 C:\Users\rhealove\Desktop\새 폴더 (8) 디렉터리

[.]     [..]    [AAA_??] 
               0개 파일                   0 바이트

Perl Script

 C 드라이브의 볼륨에는 이름이 없습니다.
 볼륨 일련 번호: 

 C:\Users\rhealove\Desktop\새 폴더 (8) 디렉터리

[.]     [..]    [AAA_䕧] 
               0개 파일                   0 바이트