ubuntu20.04にてKCatchモジュールを使おうとするとInternal Server Errorになる。

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
ubuntu20.04にてcgiにHelloと表示する事ができました。
ただ、同じフォルダに「KCatch.pm」を配置し表示するとエラーが出ます。

発生している問題・エラーメッセージ

Internal Server Error

該当のソースコード

perl
1#!/usr/bin/perl
2
3### モジュール読み込み	-----------------------
4use KCatch qw( source );
5
6
7print "Content-type: text/html \n\n";
8print "Hello";
9

試したこと

モジュール読み込みの部分を外すと「Internal Server Error」が消えHelloが表示されます。

補足情報（FW/ツールのバージョンなど）

CHERRY

2021/10/26 21:11

Webサーバーのエラーログにはどのようなメッセージが記録されているでしょうか？

GentaNakamura

2021/10/27 01:33 編集

Webサーバーのエラーログは下記になります。 Can't locate KCatch.pm in @INC (you may need to install the KCatch module) (@INC contains: /etc/perl /usr/local/lib/x86_64-linux-gnu/perl/5.30.0 /usr/local/share/perl/5.30.0 /usr/lib/x86_64-linux-gnu/perl5/5.30 /usr/share/perl5 /usr/lib/x86_64-linux-gnu/perl/5.30 /usr/share/perl/5.30 /usr/local/lib/site_perl /usr/lib/x86_64-linux-gnu/perl-base) at /var/www/html/cgi-enabled/index.cgi line 4.: /var/www/html/cgi-enabled/index.cgi use lib qw(.);を追加すると使えるようになりましたが、できればこの部分の変更は触りたくありません。

行動規範の内容に同意します

回答1件

Can't locate KCatch.pm in @INC (you may need to install the KCatch module) (@INC contains: /etc/perl /usr/local/lib/x86_64-linux-gnu/perl/5.30.0 /usr/local/share/perl/5.30.0 /usr/lib/x86_64-linux-gnu/perl5/5.30 /usr/share/perl5 /usr/lib/x86_64-linux-gnu/perl/5.30 /usr/share/perl/5.30 /usr/local/lib/site_perl /usr/lib/x86_64-linux-gnu/perl-base) at /var/www/html/cgi-enabled/index.cgi line 4.: /var/www/html/cgi-enabled/index.cgi

use lib qw(.);を追加すると使えるようになりましたが、できればこの部分の変更は触りたくありません。

起きている現象的には、Perl 5.26 以降でのいわゆる@INC問題と思われます。

@INC問題というのは、Perl 5.26 以降から セキュリティ上の問題で、モジュールのインクルードパスから「.」(カレントディレクトリ)が取り除かれることになったことにより、カレントディレクトリのライブラリやモジュールが use だけで利用できない影響です。

@INC問題については、

等を参照してください。

エラーメッセージの通り、エラーの原因は、perl のライブラリパスに KCatch.pm が見つからないことが原因ですので、

KCatch.pm のあるパスをライブラリパスに追加する (質問に記載されているプログラム中で use lib qw(.); により追加する, 環境変数 PERL5LIB を定義する等の方法)
@INC に含まれているディレクトリにライブラリを配置する ( たとえば、ライブラリやモジュールファイルを/usr/local/lib/site_perl にインストールする等の方法 )

のどちらかの方法で対処する必要があります。

ちなみに

できればこの部分の変更は触りたくありません。

の理由は何でしょうか。

参考にしているサイトのプログラムや配布されているPerl CGIが、use lib qw(.);を使っていないからという理由であれば、 Perl のバージョンが新しくなったことによる仕様変更なので、カレントディレクトリのライブラリ／モジュールファイルを使用するには、use lib qw(.);が、必要になったと割り切るしかありません。

過去に作成したプログラムが大量にあり、プログラムを変更したくないということであれば、解決策としては 2 番めの @INC に含まれているディレクトリにライブラリをインストールする 一択になります。

投稿2021/10/28 00:12

CHERRY

総合スコア25218