ハードなソフトの話

print $_,"\n" for (<c:\\*.*>);

c:\$Recycle.Bin
c:\Apache
c:\autoexec.bat
c:\Boot
c:\bootmgr
c:\BOOTSECT.BAK
(…以下省略…)

print $_,"\n" for (<c:\\Program Files\\*>);

c:./Program

• スペースを含むパスをglobができない場合の解決方法
  http://blog.ohanasiya.net/index.php?m=blog&eid=1ed2fbfcfdb33f149108bb65dda65099107f9c5d


しかし、少々複雑である。
CPANかPPMが使えるならFile::Glob::Windowsをインストールしたほうがいい。
CPANが使えるなら

cpan File::Glob::Windows


ActivePerlならppmで

ppm install File-Glob-Windows


では、先ほどのプログラムに1行、加えてみる


use File::Glob::Windows;
print $_,"\n" for (<c:\\Program Files\\*>);


結果はこのとおり


c:\Program Files\.
c:\Program Files\..
c:\Program Files\ActiveState Perl Dev Kit 8.0.1
c:\Program Files\Adobe
c:\Program Files\Apache Group
c:\Program Files\Apple Software Update
(…以下省略…)



すばらしいことに、$File::Glob::Windows::encodingをつかえば現在のコードページも取得できるので日本語でも韓国語でもUTF8変換していろいろできる。

たていすさん、ありがとう！( http://d.hatena.ne.jp/tateisu/20081108/1226127780)