작성일: 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 $_; }
예시)
![p1.PNG p1.PNG](/moniwiki/wiki.php/Windows%20dir%20%EC%BB%A4%EB%A7%A8%EB%93%9C%20%EC%9C%A0%EB%8B%88%EC%BD%94%EB%93%9C%20%EC%B6%9C%EB%A0%A5?action=download&value=p1.PNG)
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 바이트