Perlについての質問箱 37箱目

Perlについての質問箱 37箱目at TECH

Perlについての質問箱 37箱目 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

3:デフォルトの名無しさん
 08/08/11 19:11:21 
[モジュール] 
CPAN.com: ttp://search.cpan.org/ 
河馬屋二千年堂: ttp://homepage3.nifty.com/hippo2000/ 
 
[テクニック] 
Perlメモ: ttp://www.din.or.jp/~ohzaki/perl.htm 
Perlのページ: ttp://homepage1.nifty.com/nomenclator/perl/ 
Perlの小技: ttp://homepage3.nifty.com/hippo2000/perltips/index.htm 
 
[Perl 5.8 Unicodeメモ] 
http://www.rwds.net/kuroita/program/Perl_unicode.html (修正) 
ttp://www.namazu.org/~tsuchiya/perl/perl-5.8.html 
ttp://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html

4:デフォルトの名無しさん
 08/08/11 19:11:45 
#　　[Perl 日本語処理の基礎の基礎] 
#　このレスは、Windows の ActivePerl で日本語処理を行う場合のテンプレートです。 
#　このレスの内容をそのまま、UTF8 形式のソースファイルに保存して下さい。 
#　入出力ともシフトJIS形式のファイルまたはDOS窓を想定しています。 
#　まず、以下の行を先頭に入れて下さい。 
use utf8; 
use open IO => ":encoding(cp932)"; 
binmode STDIN => ":encoding(cp932)"; 
binmode STDOUT => ":encoding(cp932)"; 
binmode STDERR => ":encoding(cp932)"; # ※１ 
use Encode; 
#　次に、あなたが実行したい処理の内容を入れて下さい。 
$file = 'C:/なんたら/かんたら.txt'; 
open my $fh, '<', encode("cp932", $file) or die $! ; # ※２ 
print <$fh>; 
#　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう 
#　おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。 
#　【注】※１．の行を入れると、DOS窓への日本語出力は簡便になりますが、 
#　ソースファイル名に非ANSI文字が含まれる場合にdie 文の出力が失敗します。 
#　※２．OSに渡す文字列（ファイル名，dosコマンドのオプションなど）は、 
#　この例のようにcp932でエンコードする必要があります。

次ページ