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

何故か「ー」の置換が出来ません。
他の日本語や、逆（〜をーにする）は出来ます。何故なんでしょうか？

print "content-type: text/html\n\n";

$str = "ボール";
$out = "ー";
$in = "〜";

$str =~ s/$out/$in/;
print $str;

use Foo;
use ...;
use ...;

と、複数のpmファイルをuseしたのですが、先頭行のuseだけにエラーが出ます。

Can't locate Foo.pm in @INC (@INC ...

ちゃんとFoo.pmは存在するし、他の行のuseにはエラーが出ないのですが･･･
このエラー文は、モジュールがインストールされていないという意味のほかに、なにか意味はあるのですか？

何度もすみません。

use Foo;
use Hoge;
use ...;
use ...;

だとFoo.pmに関して、

use Hoge;
use Foo;
use ...;
use ...;

だとHoge.pmに関してしてエラーが出ていたようです。
@INCの検索パスにそれらのファイルが含まれていないということでしょうが、ちゃんとそのディレクトリに置いてあるんです＼(^o^)／ｵﾜﾀ

>>498
つEUC

use lib しなけりゃエラーが出て当然だと思いますが・・・

>>502
use libは宣言しています。

問題のファイルは以下のものです。
http://www.uploda.org/uporg630190.zip.html

(pass : 2ch)

use lib qw(./lib);
use Common::Cookie;

として使用しています。
なにかファイルに問題はありますか？

/lib/Common/Cookie.pm にしてますか？

>>505
はい、呼び出し側との相対パスは./lib/Common/Cookie.pmです。

>>498
\Q \E

\r\n、\r、\nは<BR>に変換するけど、<BR>はどの改行コードに戻せばいいの？
対象のOSによって変わると思うんだけど･･･

\x0d\x0a|\x0d|\x0a
お好きなのをどうぞ

その「お好きなの」をどれにするかで迷ってんじゃね？

はい。
プラットフォームによって改行コードを勝手に決めてくれたりは出来ないんですか？

>>492
記号類はメタ文字 (特殊文字) になるものがあるので、よく分からなければ \Q$var\E しておくのが良いです。Shift_JISの場合、漢字の一部にメタ文字が含まれる可能性があるので、思わぬところでエラーとなります。

>>495
要件に「大文字小文字を区別するかどうか」が含まれていないため、必要に応じて i 修飾子を付けてください、という意味です。

>>498
文字コードはShift_JISを使っていますね。「ー」の2文字目は「[」であるため、バイト単位で処理する場合にはそれがメタ文字として見なされます。
ですから、以下のような方法で回避する必要があります。

1. >>501 EUC-JPを利用する。
2. >>507 \Q$out\E とする。
3. Jperlを利用する。(今となってはお勧めできない)
4. 入出力をきちんとハンドリングして、内部では常にutf-8フラグつきの文字列として扱う。(多少面倒だが漢字も1文字単位で処理できるのでお勧め。「Perl utf8」でググれば参考サイトは沢山出てきます。)
5. 先頭で use encoding "Shift_JIS"; する。(あまりお勧めできない)
他にあったっけ?

# Shift_JISでは /セーラープルート/ がエラーになるので悲しい。