use strictとグロブ？

解決済

質問者：bazax
質問日時：2007/04/06 13:21
回答数：2件

cgi-lib.plのReadParseの引数でParamグロブを使った場合、
use strict;をすると、必ず以下のエラーが表示されます。

use strictはそのまま使いたく、他の部分も厳密にチェックしたいのですが
何かよい方法はありますか？

use strict;
require 'cgi-lib.pl';

&ReadParse(*Param);
my $MODE = $Param{'MODE'};　<----- errro Variable "%Param" is not imported at

通報する

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

質問の本文を隠す

回答 (2件)

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

No.1ベストアンサー

回答者： maura
回答日時：2007/04/06 13:38

use vars qw/%Param/;

- 0
- 件

通報する

No.2

回答者： sakusaker7
回答日時：2007/04/06 13:46

CGI.pmとか、それが重くていやだというなら CGI::Lite.pmやCGI::Minimal.pm

という選択もできるのではないかと思うのですが、
いまさら cgi-lib.plから離れたくないということなら

CGIに対するパラーメータを取得するところを

sub get_param {
no strict 'refs' #たぶん no strict でなくてOK
&ReadParse(*Param);
$Param{'MODE'}; # return $Param{'MODE'};がお好みなら修正してください
}

のようにすればいけると思います。
このサブルーチンだと 'MODE' しかとってこれませんが、
より汎用的にするのは簡単ですよね。