{{tag> note:perl warning}}
---json
{
    "title":"warningモジュールについて調べてみた(warning)",
    "description":"warningモジュールについて調べてみた(warning)"
}
---
\\
==== <icon name="md:card-text-outline" color="#0000ff" height="32px" width="32px"/> warningモジュールについて調べてみた(warning) ====
\\
ルールに反する定義をした場合に警告してくれるモジュールだが、ちょっとうるさいこともあるので、一時的に無効にする場合

<code perl>
no warnings qw(redundant syntax missing uninitialized);
</code>

のように書いておきます。\\

この効果は定義するブロック中でのみ有効で、ブロックを抜けた場合は失効し、その後警告しません。

<code perl>
{
no warnings qw(redundant syntax missing uninitialized);   #ブロック内のみ有効
my @a = (1, 2);
printf "** %d%d%d\n", @a;
}
...                                                       #ブロックを抜けるとno warningが失効
</code>

~~DISCUSSION~~