XML::RSSを使用してRSSのタイトルを取得するPerlスクリプトを作っています。
DBCSの場合、文字化けするので、以下のようにfrom_toを使用してutf8をShiftJISに変換しようとしましたが、エラーが出ます。
SBCSでは問題無いのですが。
Encode::Guessで調べるとutf8が返ってくるので、「from_to( $title, 'utf8','shiftjis' )」でutf8をShift-JISに変換すればよいのかと思ったのですが。
■環境
・perl v5.8.3 built for MSWin32-x86-multi-thread
・Windows2000(SP4)
■エラーメッセージ
Cannot decode string with wide characters at c:/Perl/lib/Encode.pm line 184.
■ソース
#!/usr/bin/perl
BEGIN {
use CGI::Carp qw(carpout fatalsToBrowser);
carpout(STDOUT);
}
use Encode qw/ from_to /;
use LWP::Simple 'get';
use XML::RSS ;
print"Content-type: text/html\n\n";
print"<HTML>\n";
print"<HEAD><meta http-equiv=\"Content-Type\" content=\"text/html;charset=Shift-JIS\"></HEAD>\n";
print"<BODY>\n";
my $rss = new XML::RSS;
eval {
# $rss->parse( get('http://slashdot.org/slashdot.rdf') );
$rss->parse( get('http://oshiete1.goo.ne.jp/rss/oshiete_goo.xml') );
};
exit if $@;
foreach my $ref( @{$rss->{items}} ) {
$title = $ref->{'title'};
$link = $ref->{'link'};
from_to( $title, 'utf8','shiftjis' );
print"[title] $title<br>\n";
print"[link] <a href=\"$link\" target=\"_blank\">$link</a><br>\n";
----------------------------<br><br>\n";
}
print"</BODY></HTML>\n";
RSSの取得方法はここを参考にしました。
http://www.rfs.jp/sb/perl/10/rss01.html
宜しくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Perl RSSにdiv,ul classを付けたいのですがどのようにつけるのかわからないです 2 2022/03/28 01:53
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
- PHP PHPでCookieを使った訪問回数について 1 2023/05/28 14:10
- PHP php テーブルが作成できない 1 2022/11/17 23:41
- PHP if(preg_match("/[^0-9]/",$gu_d)){意味を教えてください。 1 2022/05/06 05:37
- MySQL php テーブルを作れない 2 2022/11/17 18:22
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- PHP php エラー 2 2022/10/23 16:43
- HTML・CSS 下にスクロールしても、追従するボタンのコードを書いたのですが、ボタンの中の画像が半分しか表示されない 1 2022/04/16 21:31
- PHP PHPのエラーの解消法について教えて下さい。 1 2023/02/06 10:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
perl でエラー:Wide character...
-
jcode.plのかわり
-
MFCのコントロールにUTF-8の文...
-
CGIでメール送信で件名文字化け
-
【LaTeX】pBibTeXでのエラーの...
-
JcodeモジュールとEncodeモジュ...
-
Perlバージョン違いと use enco...
-
perlについての質問
-
CSVファイルの中で、「 , 」カ...
-
英数字のみ全角から半角に変換
-
エクセルで数値を全角文字(カ...
-
IEからEdgeへの移行に伴うIMEの...
-
EXCELからCSVにすると余計なカ...
-
CString から LPCTSTRの型に変換
-
VBで、String型のデータが、...
-
マクロを使ってフォルダー内に...
-
VB.net、テキストボックス入力...
-
エクセルにMicrosoft Barcode C...
-
[VBA][Excel]クリップボードか...
-
カンマ区切りの数字をCSVフ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
perl でエラー:Wide character...
-
jcode.plのかわり
-
MFCのコントロールにUTF-8の文...
-
【LaTeX】pBibTeXでのエラーの...
-
Perlで、文字の出現回数を調べ...
-
Cannot decode string with wid...
-
PerlでRSS取得 ~ 文字化け ~ ...
-
PHPの文字化けについて
-
HTML::Templateでutf-8のテンプ...
-
printfの書式指定での2バイト文...
-
sedやperlでの2バイト文字を含...
-
pythonの文字コードとファイル操作
-
デバッグ情報が文字化けする
-
JAVAでMySQLに接続すると日本語...
-
Java+MySQLで特殊文字(丸数字(...
-
オブジェクト? perlをオーバー...
-
WWW::Mechanizeの文字コードに...
-
UTF-16からUTF-8への変換
-
機種依存文字(株)を入力すると\...
-
XMLパラメータの取り込みに関して
おすすめ情報