IISで動作しているperlの@INCの中身を見たい。

Question

お世話になっております。

今動いているあるPerlで書かれたシステムを
WindowsServer2008R2からWindowsServer2019Stdに移植しようとしております。

そのままコピーしただけでは環境のせいだと思うのですが動作しないため
perlスクリプトに

BEGIN{ open ( STDERR, ">>./log/err_log/err.txt" ); }

print "Content-type: text/html \n\n";
print "kokokara test";
require './gateway_test200811.pl';

print "tesuto totyuu";

と記載してデバッグしようとした所

kokokara test

しか表示されず上記のエラーログには

Can't locate gateway_test200811.pl in @INC (@INC contains: C:/Perl64/site/lib C:/Perl64/lib) at D:\download\download_brankKara.pl line 6.

とのエラーが入っていました。

そこで@INCの中身を見てコピーしたいと思ってグーグルさんで調べたのですが
WindowsServer用の@INCを表示させるプログラムが見つからなくて困っております。

どのようにして@INCの中身をWindowsServerで確認するのか伺ってよろしいでしょうか？

@INCは環境変数のようなものかと思い環境変数を見たのですがINCなどは見つからないのです……

上記何か情報をお持ちな方はコメント頂けますようお願いいたします。

Answer 1

requireの引数に./xxx.plなどとカレントディレクトリ指定をつけるのはまずいです。
直接的な失敗要因はこれだろうと思います。

@INCの中身は、エラーに(@INC contains: C:/Perl64/site/lib C:/Perl64/lib)とあるので、手間暇かけるまでもなくわかります。

モジュールの在り処を@INCに加える方法は幾つか有ります。

Perlでモジュールにパスを通す方法 - Qiita

Comments

[ma2hiro]

KojiDoiさん
コメントありがとうございます。

requireで’./xxx.pl’と指定するのは良くないとのソースをご提示頂けないでしょうか？？？
明示的にこうした方が良いかなと思っているのです……

https://maku77.github.io/perl/syntax/require.html
```
デフォルトでカレントディレクトリが検索パスに含まれているので、ライブラリはカレントディレクトリに置けば読み込めます。
```
と明示的に書かなくても良いようですが
不味いとの記載が見当たらなかったので上記お問い合わせいたします。

[KojiDoi]

そのサイトの説明は時代遅れです。
[第46回　Perl 5.26で変わること（1）：Perl Hackers Hub｜gihyo.jp … 技術評論社](https://gihyo.jp/dev/serial/01/perl-hackers-hub/004601)
じっさいあなたの環境でも`.`は@INCに含まれていません。

またCGIを実現するに当たって「カレントディレクトリ」がどこになるのかが問題です。IISの仕様はよく知りませんが、おそらくコマンドラインからテスト実行しようとする場合とは異なるディレクトリになるのではないでしょうか。トラブルのもとになるのでCGIで「カレントディレクトリ」に頼ったコードを書くのは避けるべきです。

[ma2hiro]

KojiDoiさん
ありがとうございます。
時代遅れのURLを見て勘違いをしていて失礼しました。

仰る通りカレントディレクトリでしたら./を付けないようにします。

本当にコメントありがとうございました。

Answer 2

printinc.pl

print "@INC"

と作って

C:\download\test>perl printinc.pl
C:/Perl/lib C:/Perl/site/lib .

と実行して今の値は分かったのですが
コチラをWindowsServer2019Stdの@incに入れる方法が不明なのでメモします……

pushとかで入れるんじゃないと思うんだけどな……
恒久的に入れるような気がしてます……

Comments

[ma2hiro]

アレ？？？
WindowsServer2019Stdで
```
D:\download\ma2log>perl incprint.pl
C:/Perl64/site/lib C:/Perl64/lib
```
となったのでコチラが原因じゃない気がしてきてます……

[ma2hiro]

あ……
'./gateway_test200811.pl';
内にエラーがあるっぽいからもう少しみてみます。

``` 'gateway_test200811.pl'
use strict;
#=====================
# 初期設定
#=====================

1;
__END__
```
でやったら上手く行ったので……
思考メモ失礼しました。