|
これでどうでしょうか。 動作確認は既定のRSS1.0のみです。
Rev2.52 Rev2.52M lib/rss.pl ■128行目付近 # 出力ファイル定義 my $out = <<"EOM"; <?xml version="1.0" encoding="Shift_JIS"?> EOM ↓ # 出力ファイル定義 my $out = <<"EOM"; <?xml version="1.0" encoding="UTF-8"?> EOM
■177行目付近 $out .= <<"EOM"; </rdf:Seq> </items> </channel> $items </rdf:RDF> EOM
# ここから追加 use Encode 'from_to'; from_to($out, 'Shift_JIS', 'UTF-8'); # ここまで追加
# ファイル出力 open(OUT,"+< $rss_file") || &error("Write Error: $rss_file"); eval { flock(OUT, 2); };
■210行目付近 # 出力ファイル定義 my $out = <<"EOM"; <?xml version="1.0" encoding="shift-jis"?> <rss version="2.0"> ↓ # 出力ファイル定義 my $out = <<"EOM"; <?xml version="1.0" encoding="UTF-8"?> <rss version="2.0">
■269行目付近 $out .= <<"EOM"; </channel> </rss> EOM
# ここから追加 use Encode 'from_to'; from_to($out, 'Shift_JIS', 'UTF-8'); # ここまで追加
# ファイル出力 open(OUT,"+< $rss_file") || &error("Write Error: $rss_file"); eval { flock(OUT, 2); }; |
[返信]
[修正]
[削除]
|