Loose-Info.com
Last Update 2008/05/18
TOP - Perl - 特殊変数 - $^W

警告スイッチの値を返します。

(例1)
#!/usr/bin/perl print "警告スイッチの値 : $^W\n";

実行結果
警告スイッチの値 : 0

(例2)
#!/usr/bin/perl -w print "警告スイッチの値 : $^W\n";

実行結果
警告スイッチの値 : 1