작성일: 2013-12-25
Perl 코드
open fList, '-|:encoding(UTF-16LE)', 'cmd /U /C dir /ad/s/w';
open fOut, '>', 'out.txt';
foreach (<fList>) {
utf8::encode($_);
print fOut $_;
}
open fOut, '>', 'out.txt';
foreach (<fList>) {
utf8::encode($_);
print fOut $_;
}
예시)

cmd>dir
[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 바이트
Show Comments
이 필요함.