#keywords dir,윈도,유니코드,커맨드
작성일: [[Date(2013-12-25T05:57:47)]]


[^http://www.activestate.com/activeperl ActivePerl] 이 필요함.

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

예시)
attachment:p1.PNG
cmd>dir
{{{
 C 드라이브의 볼륨에는 이름이 없습니다.
 볼륨 일련 번호: 

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

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

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

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

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

----
CategoryDocument