Perlについての質問箱 48箱目
■ このスレッドは過去ログ倉庫に格納されています
0185デフォルトの名無しさん
2011/09/06(火) 15:19:26.18どのようにしたら良いのでしょうか?
ためしにglobで拾ってみると下記のようになります。
�@の部分をデスクトップディレクトリにしたいのですが、どう書けばよいのでしょうか?
use utf8;
use Encode;
#拾える(Documents and SettingsをDocuments*としてスペースを書かない)
my $path = [ map{ encode('utf8', decode('cp932', $_ ) ) } glob( encode('cp932', "/Documents*/user/デスクトップ/*" ) ) ];
#拾えない
my $path = [ map{ encode('utf8', decode('cp932', $_ ) ) } glob( encode('cp932', "/Documents and Settings/user/デスクトップ/*" ) ) ];
my $outPath = "�@どう書いたらいい???";
open(OUT, ">$outPath")
print OUT encode('utf8', "あああああ");
close(OUT);
■ このスレッドは過去ログ倉庫に格納されています