おしえて

Perlのエラーについてご教授ください。初心者です。 CGIを別サーバに移したところ、Perlのバー

解決済

質問者：彩いろどり
質問日時：2023/05/31 10:48
回答数：5件

Perlのエラーについてご教授ください。初心者です。
CGIを別サーバに移したところ、Perlのバージョンが違うせいか以下のようなエラーがでました。

Use of uninitialized value in pattern match (m//)

エラー箇所は一部分で恐縮ですが、この部分です。
リファラーチェックで、3つ以外の参照元URLとパラメータの前方4文字だけチェックしています。
どう直せば良いのかわからず…ご教授ください。

unless ( $ENV {'HTTP_PEFERER'} =˜ /^(?:${referer1})¥?[a-z]{4]&_gl/
|| $ENV {'HTTP_PEFERER'} =˜ /^(?:${referer2})¥?[a-z]{4]&_gl/
|| $ENV {'HTTP_PEFERER'} =˜ /^(?:${referer3})¥?[a-z]{4]&_gl/ )
{
&error( '参照元が違います' . $ENV{'HTTP_PEFERER'} );
exit;
}

一部間違えていました。すみません！！！！

unless ( $ENV {'HTTP_REFERER'} =˜ /^(?:${referer1})¥?[a-z]{4]&_gl/
|| $ENV {'HTTP_REFERER'} =˜ /^(?:${referer2})¥?[a-z]{4]&_gl/
|| $ENV {'HTTP_REFERER'} =˜ /^(?:${referer3})¥?[a-z]{4]&_gl/ )
{
&error( '参照元が違います' . $ENV{'HTTP_REFERER'} );
exit;
}

補足日時：2023/05/31 13:26
通報する

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.5ベストアンサー

回答者： tatsumaru77
回答日時：2023/05/31 17:56

>Use of uninitialized value $para in substr at 該当行〜

とでました…。
>でも動作は大丈夫そうで、このままエラー文を放置して良いのか悩んでいます。

前のエラーも含めてですが
use warnings;
を指定すると、これらのエラーが出るはずです。
use warnings;
をコメントアウトして、上記のエラーが出なければ、ワーニングなので
放置しても原則問題ありません。

前のエラーが出るのは、（Use of uninitialized valueがでるのは）
$ENV{'HTTP_REFERER'}が、いきなり出現した場合、
その$ENV{'HTTP_REFERER'}の内容が本当に正しいのか確認しなさい
という警告です。
ソース中に
$ENV={};
$ENV{'HTTP_REFERER'}="xxxxx"
のような箇所があれば、明らかに$ENV{'HTTP_REFERER'}の内容が担保されるので、この警告は出ません。

従って、$ENV{'HTTP_REFERER'}、$ENV{'QUERY_STRING'}に値が設定されていることが、明白なら、このエラーは無視して問題ないです。
（前のサーバーで動いていたなら問題ないと思いますが）

- 0
- 件

通報する

この回答へのお礼

助かりました

親切丁寧にご教授くださりありがとうございます！
use warnings;知りませんでした！
エラー内容の解説も助かりました！
エラーは無視してアップしてみます！本当に本当にありがとうございました！！！

通報する

お礼日時：2023/05/31 20:26

No.4

回答者： tatsumaru77
回答日時：2023/05/31 15:31

＞別の場所で同じエラーが発生したので、

＞教えてもらったのを参考に修正してみます！

エラーが取れない場合は、再度質問してください。

- 0
- 件

通報する

この回答へのお礼

ありがとうございます！！！なんてお優しい…。
上が解決したら、今度はここでエラーがでました…。
$para = $ENV{'QUERY_STRING'};

それで、同じようにQUERY_STRINGに置き換えてやってみたら、今度は$paraを使ったいるところで、
Use of uninitialized value $para in substr at 該当行〜
とでました…。
でも動作は大丈夫そうで、このままエラー文を放置して良いのか悩んでいます。

通報する

お礼日時：2023/05/31 17:40

No.3

回答者： tatsumaru77
回答日時：2023/05/31 13:35

エラーをとるのが目的なら

if (defined($ENV) && exists($ENV{'HTTP_REFERER'})){　・・・①
unless ( $ENV{'HTTP_REFERER'} =~ /^(?:${referer1})\?[a-z]{4}&_gl/
|| $ENV{'HTTP_REFERER'} =~ /^(?:${referer2})\?[a-z]{4}&_gl/
|| $ENV{'HTTP_REFERER'} =~ /^(?:${referer3})\?[a-z]{4}&_gl/ )
{
&error( '参照元が違います' . $ENV{'HTTP_REFERER'} );
exit;
}
}　・・・②

でOKかと思います。
①と②を追加します。