「-wc」オプションの文法チェックで、警告が出ないようにするには？

質問

「-wc」オプションの文法チェックで、警告が出ないようにするには？

たとえば「temp.pl」というライブラリに変数「$A」が定義されてあり、
それを「temp.cgi」というPerlスクリプトで参照したいとします。
これらを、「-wc」オプションを使って文法チェックをすると、
「変数$Aが一度も設定・参照されてないよ」といった旨の警告が出てしまいます。
この警告を出さないようにするにはどうしたらいいのでしょうか？
警告を出さないようにする記述方法って、なにかあるのでしょうか？
それとも出てしまうのは仕方ないのでしょうか？
以下、実際のソースの中身および文法チェック結果です。
よろしくお願いします。

＝＝＝temp.plの内容＝＝＝
#! c:/perl/bin/perl
$A = '123';
1;

＝＝＝temp.cgiの内容＝＝＝
#! c:/perl/bin/perl
require "temp.pl";
print $A;

＝＝＝文法チェック結果＝＝＝
>perl -wc temp.pl
Name "main::A" used only once: possible typo at temp.pl line 2.

>perl -wc temp.cgi
Name "main::A" used only once: possible typo at temp.cgi line 3.

回答No.3

N60-BASIC · ベストアンサー

No.2で回答した者です。

> ライブラリのほうは、ourで宣言したことで警告はでなくなりました。
> スクリプトファイルのほうは、すべてをour宣言するのは大変なので「このままでもいいかな～」と思ってます。
> それとも、たとえ大変でもour宣言するのが普通でしょうか？皆さんはどのようになさってますか？

以下はあくまで私の考え方＆実装方針なので、参考までに留めていただければ。

●ハッシュを使えば多少スッキリ
たくさん宣言するのが嫌なら、変数自体を減らしてしまえ、という発想です。
仮に$paramA, $paramB, $paramCとグローバル変数が3つあったとしたら、
our %INI = (
paramA => 'foo',
paramB => 'bar',
paramC => 'hoge',
);
としてやればグローバル変数は1つになります。（何でもかんでもまとめればいいわけではないので、ほどほどに）
例えば環境依存の設定に関連する項目をまとめて外部ファイルに置いたりするのに有用です。もっとも、第三者が設定変更するようなファイルの場合は、Perlの文法に依存しない外部ファイルにして、設定読み込み用モジュール経由で取り込む場合もあります。

注意点として、ハッシュキーのスペルミスは文法エラーにならないばかりか、実行時であっても未定義値の読み書きが即エラーになるわけではないので、デバッグが手間取る場合があります。その場合、-wやuse warningsを併用すれば、未定義値に関する警告が出るので若干見つけやすくなります。

●クラスオブジェクトを作る
Perlの場合は、ある意味では上記ハッシュの発展形とも言えます。
特定の処理をコントロールするために複数のグローバル変数を使用している場合は、クラスオブジェクト化してプロパティやメソッドにまとめることで非常にスマートになる場合があります。逆に初期設計を間違えると、本人すら理解できない複雑怪奇なプログラムになることもありますが・・。

●package化してuse Exporterで変数をエクスポートする
おそらく質問者さんのやりたいことに一番近いかと思います。
Exporterモジュールを利用したパッケージをuseすると、パッケージ内で指定されたグローバル変数を暗黙的（または明示的）に取り込む(import)ことができます。使い方の詳細はご自分で調べてみてください。
でも、個人的には「暗黙の変数インポート＝名前空間の汚染」と考えてますので、Exporterを使う場合でもなるべく明示的なエクスポートのみを利用して、読み込み側でも宣言するようにしています。

●グローバル変数がやたらと多いプログラムはそもそも設計でミスしていることが多い
グローバル変数が多いなと思ったら、全体設計を一度見直してみるべきです。たいていの場合は改善可能なことが多いです。
例えば、
・関数の引数や戻り値で、ローカル変数の引渡しで済むところを手抜きしてグローバル変数にしてしまう。結果として、引数や戻り値から関数の処理が推測できなくなり、見通しが悪くなる場合が多い。
・本来パッケージやクラスオブジェクトにまとめるべき処理を、requireで全部main::の中に入れてしまい、収拾がつかなくなる。
など。
特に、どこで値が変更されているかわからないグローバル変数というのは、デバッグで最も厄介な部類のものです。書いている時は頭でわかってても、半年もすれば自分のプログラムが読めなくなっていることがあります。
大規模なプログラムになればなるほど、グローバル変数が多いプログラムというのは可読性もメンテナンス性も下がっていき、バグを誘発しやすくなります。

以上、思いつきでずらずらと書いてみました。
自由なスタイルで記述できることはPerlの大きな利点ですし、グローバル変数も含め、状況によって使い分けられれば理想的かなと思います。

お礼

ありがとうございました。
グローバル変数の数、70個以上もあります。
同じ種類の変数同士をハッシュにすれば10数個に減るので、本来ならそうすべきなんでしょうね。
しかしハッシュって、ゴチャゴチャするのがどうも…。
「$Form{'text'}」とやるより、「$FormText」のほうがすっきりするので好きなんですよね。

回答No.2

N60-BASIC

●動作環境がPerl 5.8以降であれば、ourによる変数宣言が使えます。（myだとスコープがファイル内になってしまうため、require対象の外部ファイルにおける変数値の変更が反映されません）
#! c:/perl/bin/perl
our $A;
require "temp.pl";
print $A;

●Perl 5.6など、古いバージョンとの互換性を重視するならuse varsを使うことになります。
#! c:/perl/bin/perl
use vars qw($A);
require "temp.pl";
print $A;

でもPerl 5.8がリリースされてからもう8年近く経ちますから、新しいバージョンへの移行を検討すべきでしょう。

●全く推奨しませんが、-wを無効にしてしまうという反則技もあります。
#! c:/perl/bin/perl
no warnings;
require "temp.pl";
print $A;

ご参考まで。

補足

ありがとうございます。
バージョンについてはあまり気にしてませんでした。
詳しくお教えいただきありがとうございました。
No1.さんへも補足で質問させていただいたのですが、よろしかったらお答えいただければ幸いです。

回答No.1

t-okura

temp.cgi と temp.pl の両方で our $A として、
$A がグローバル変数であると宣言すればよいです。

補足

ありがとうございました。ourでグローバル変数の定義ができるのですね。
手持ちの本にも載ってなかったので知りませんでした。

追加で質問させていただきたいことがあります。
ライブラリのほうは、ourで宣言したことで警告はでなくなりました。
スクリプトファイルのほうは、すべてをour宣言するのは大変なので「このままでもいいかな～」と思ってます。
それとも、たとえ大変でもour宣言するのが普通でしょうか？皆さんはどのようになさってますか？