作者: 藤岡和夫
日時: 2005/9/03(23:00)
On Sat, 03 Sep 2005 21:51:12 +0900 (JST)
Zazel <zazel.ts@...> さんwrote:

 そのままだと以下のエラーが多数出るので、動いているわけでは
> ないと思います。(-_-;)
> 
> Malformed UTF-8 character (unexpected continuation byte 0x8d, with no preceding start byte) in substitution iterator at ee line 77, <GEN0> line 1110.
> 
> とりあえずuse encoding をコメントにすれば、以下の行で始まる
> 期待されているらしい出力が出てきました。
> 
> <dl><dt><a href="http://homepage1.nifty.com/kazuf/renewal.xml" target="main">更
> 新日記</a><dd><p><a href="http://homepage1.nifty.com/kazuf/" target="main"><img
> src="http://homepage1.nifty.com/kazuf/png/tsnetworkc3.png"></a> TS Networkのために - 更新日記</p></dl>

　度々、ご検討ありがとうございます。

　Zazelさんの環境は、Unix系ですよね、当然(^^)

　現在のスクリプトはjperlで動かしているものと違うところは、use encoding
'Shift_JIS';を加えるのとjuri_encodeサブルーチンの length関数をuse bytesを
使って書き直しているだけなんですね。同じスクリプトファイルの該当部分をjperl
で動くように直して、jperlで動かすと当然動くので、文字コード等の不具合は
ないだろうと思われます。さらに元に戻して、 Perl5.8で動かすと元のエラーが
再現します。

　CygwinのPerlを最新版(5.8.7)にして試してみたりしましたが、変わりません。

　今度気が付いたのは、use encoding 'Shift_JIS';の場合とuse encoding
'shiftjis';にした場合では、エラーメッセージの"eval 25"が、"eval 23"に変
わる現象です。

藤岡 和夫
kazuf@...
TS Networkのために http://homepage1.nifty.com/kazuf/