Perlコーディング初心者質問スレ Part 57

Perlコーディング初心 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

628: ◆TWARamEjuA 
 08/05/29 20:45:58 
>>620 
つっこみおおきに♪ 
mapを覚えちゃってからどんどん斜め上に逝っちゃいました。 
 
ひとまず車輪の再発明は大好き♪

629:nobodyさん
 08/05/30 02:09:30 
曲芸はほどほどに

630:nobodyさん
 08/05/30 08:17:40 
出来た物が車輪じゃない上に使えないのならただの無駄

631:nobodyさん
 08/05/30 10:14:07 
車輪を作ろうとしたら鎖鎌が出来ちゃった感じだな

632:nobodyさん
 08/05/30 10:19:32 
まーmapは便利だってことだ

633:nobodyさん
 08/05/30 11:57:18 
XML::DOMを使ってXHTMLに広告を挿入するCGIを書いたのですが、use encoding "utf8"; 
を書くとローカルで文字化けしてしまいます。これをコメントアウトすると 
XREA.COMのサーバ上でScript Errorが発生してしまいます(しかもエラーログが見られない)。 
 
ローカルでもXREA.COM上でも動くようにしたいのですがどうすればいいでしょうか。 
コードはこんな感じです。 
 
#!/usr/bin/perl 
use strict; 
use XML::DOM; 
use encoding "utf8"; 
 
my $xhtml_file = $ENV{'PATH_TRANSLATED'}; 
my $parser = new XML::DOM::Parser; 
my $doc; 
eval { $doc = $parser->parsefile($xhtml_file) }; 
if($@) { 
    print "Content-Type: text/plain;charset=utf-8\n\n"; 
    print "parsing error occured: $@"; 
    exit; 
} 
 
# 広告挿入処理 
 
print "Content-type: application/xhtml+xml;charset=utf-8\n\n"; 
print $doc->toString; 
$doc->dispose; 
 
ローカルの環境はUbuntu 8.04 + Perl 5.8.8 + Apache 2.2.8、 
XREA.COMはよくわかりません。

次ページ