perlを使ってどのように特定の警告をオフにするかを知ることができます

Question

私が扱っているいくつかのレガシーコードがあります。ワンショットでクリーンアップするのは大変です。 s演算子の中で\ 1を使用しています。私はperllexwarnを調べて、「警告なしのqw（構文）」でシャットダウンできることを発見しましたが、試行錯誤してこれを行いました。警告から遮断する方法まで簡単に行く方法はありますか？

このようなものをやっている：

use strict; 
$_ = "abc"; 
s/abc/\1/; 
no warnings qw(syntax); 
s/abc/\1/; 

が生成するメッセージは次のとおりです。

\1 better written as $1 

Answer 1

perl -Mdiagnostics ./a.pl 

か、一時的にスクリプトにuse diagnostics;を追加するようにスクリプトを実行します。これは、

\1 better written as $1 at ./a.pl line 4 (#1) 
    (W syntax) Outside of patterns, backreferences live on as variables. 
    The use of backslashes is grandfathered on the right-hand side of a 
    substitution, but stylistically it's better to use the variable form 
    because other Perl programmers will expect it, and it works better if 
    there are more than 9 backreferences. 

のようなものを生成します。(W syntax)？手紙は次のいずれかであり、あなたが探している警告クラスです。

• （W）警告（オプション）。
• （D）廃止予定（デフォルトで有効）。
• （S）重大な警告（デフォルトで有効）。
• （F）致命的なエラー（トラップ可能）。
• （P）決して見えないはずの内部エラー（トラップ可能）。
• （X）非常に致命的なエラー（非トラップ可能）。
• （A）エイリアンエラーメッセージ（Perlによって生成されない）。

diagnosticsあなたがuse diagnostics;を使用するのではなく、手動で検索することができperldiagからその情報を取得します。

---

その他の例：

$ perl -Mdiagnostics -we'print undef' 
Use of uninitialized value in print at -e line 1 (#1) 
    (W uninitialized) An undefined value was used as if it were already 
    [...] 

$ perl -Mdiagnostics -we'no warnings qw(uninitialized); print undef' 

$ perl -Mdiagnostics -we'sub foo { } sub foo { }' 
Subroutine foo redefined at -e line 1 (#1) 
    (W redefine) You redefined a subroutine. To suppress this warning, say 
    [...] 

$ perl -Mdiagnostics -we'no warnings qw(redefine); sub foo { } sub foo { }' 

$ 

Answer 2

私は、世界的なシグナルハンドラを作る、それが早期にコンパイルされていますので、BEGINブロックでそれを設定したいですだけをとしないでください。予期しない警告や無関係な警告が表示されることがあります（同じカテゴリ内であっても、全体を無効にする必要がないため）。

use warnings; 
use strict; 

BEGIN { 
    $SIG{__WARN__} = sub { 
     my $warn = shift; 
     return if $warn =~ /\\\d better written as/; 
     warn $warn; 
    }; 
} 

my $x = 'abc'; 
$x =~ s/(abc)/\1/; 

warn "a different warning\n"; 

出力：

a different warning 

Answer 3

あなたはperldoc perldiagでメッセージを調べることができます。これはあなたにそれがでます警告カテゴリを教えてくれます。