Perlゼミ

1. Perl
›
2. モジュール
›
3. here

warningsモジュール

警告を表示するにはwarningsプラグマを使用します。

use warnings;

Perlにおいては、デフォルトの状態では、警告は表示されず、スクリプトが実行されます。warningsプラグマを使えば、警告を表示させることができます。スクリプトを書く場合は、strictプラグマとあわせて、必ず記述するようにしましょう。

よく見る警告

よく見るであろう警告についていくつか解説しておきます。

未定義値の使用

未定義値を使用すると警告が表示されます。以下のスクリプトでは、未定義の値をそのままprint関数で出力してしまっています。

use warnings;

# 未定義値を使用
my $str;
print $str;

次のような警告が表示されます。

Use of uninitialized value $str in print at a.pl line 6

英語なので翻訳します。

printにおいて未定義値$strを使用しています。6行目。

未定義を利用しているという内容の警告が発生した場合は、変数に値が代入さないままになっているということです。つまり、スクリプトにミスがあるということです。スクリプトを修正して、この警告が表示されないようにしましょう。

文字列がエンコードされていない

日本語などのマルチバイト文字を使用するときに、文字列がエンコードされていないことを知らせる警告が表示される場合があります。以下は警告が発生するスクリプトです。

use warnings;
use utf8;

# 文字列がエンコードされていない
my $str = 'こんにちは';
print $str;

次のような警告が表示されます。

Wide character in print at a.pl line 7.

英語なので翻訳します。

ワイド文字が使用されています。7行目。

これは、文字列がエンコードされずに出力されているということを意味しています。ですから、きちんとエンコードしましょう。

use warnings;
use utf8;
use Encode 'encode';

# 文字列がエンコードされていない
my $str = 'こんにちは';
print encode('UTF-8', $str);

サブルーチンが再定義されている

サブルーチンを、二回以上定義したときは、サブルーチンが再定義されているという警告が発生します。以下は警告が発生するスクリプトです。

use warnings;

# サブルーチンの再定義
sub one { 1 }
sub one { 1 }

次のような警告が表示されます。

Subroutine one redefined at a.pl line 5.

英語なので翻訳します。

サブルーチンoneが再定義されています。5行目。

サブルーチンを再定義しているときは、通常は間違いの可能性が高いのですが、一時的にサブルーチンを置き換えたいという場合がときどき発生します。そのような場合は、この警告を抑止することができます。

no warnings 'redefine';

この定義を行うと、サブルーチンの再定義の警告は発生しなくなります。

use warnings;
no warnings 'redefine';

# サブルーチンの再定義の警告は発生しない
sub one { 1 }
sub one { 1 }

サブルーチンの再定義の警告以外の警告も似たような方法で抑止することができますけれど、原則として警告は抑止してはいけません。警告が発生している原因の部分のほうを修正すべきです。

サブルーチンの再定義の警告を抑制する

開発中にバグがあって、急遽修正しないといけないときは、モンキーパッチを当てることがときどきありますね。モンキーパッチというのは、サブルーチンやメソッドの定義を上書きして、正しい動きにしてあげることです。

でもサブルーチンの再定義を行うと、警告が発生します。この警告を表示しないようにするにはwarningsプラグマでサブルーチンの再定義の警告をとめるようにコンパイラに指示してあげます。

no warnings 'redefine';

これで警告が表示されなくなります。これはレキシカルなスコープを持ちます。以下はモジュールのメソッドを上書きするサンプルです。