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 바이트