[cgi:49311]より引用:
> 調べてはみましたが、自力で解決できそうにないので教えてください。

一連の JJ さんのメールを読ませていただいたのですが、
少々手厳しく聞こえるかもしれませんが、
調べが足りないといわざるを得ません。

何を持って調べた、と認識されたのか難しいところですが、
オンラインのドキュメントで足りないのであれば、
書籍を購入 or 図書館などで入手して勉強してみてはどうでしょうか。

幸いPerlの書籍は数多く出版されているので、
JJさんにあう Perl プログラミング入門書も数冊見つかると思います。


さて。

プログラムというものはJJさんもきっとご理解いただいているように、
必要な一行が欠けていたり、文字が1文字でも間違っていれば
プログラマーの意図するとおりに動かないものです。

> open(IN3, "$in3") || die "### ERROR ### Can't open $in3\n\n";
>
> while(<IN3>){
> push(@array,$_) if(/~cel/);
> }

上記コードが動かない原因のひとつは正規表現が間違っているからでしょう。


どこに行っても同じJJ