perl - 是否可以在 perl 中启用/禁用基于 ARGV 的使用严格/警告？

Question

是否可以在 perl 中启用/禁用基于 ARGV 的使用严格/警告？

我试过这段代码，但它不起作用。我相信它应该在'$x = 2'的行产生一个警告错误；

# Do this at the beginning of the script    
BEGIN {
        if ( $ARGV[0] =~ /^Y$/i ) {
            use strict;
            use warnings;
        }
        else {
            no strict;
            no warnings;
        }
    }

    $x = 2;

    print "x is $x\n";

目的是仅在开发中启用警告消息。

Answer 1

use strict;

相当于

BEGIN {
   require strict;
   import strict;
}

所以 use strict;的效果是无条件的(因为 import strict; 在评估 if 之前被评估)。

此外，两者的影响 use strict和 use warnings是词法范围的，因此它们的效果一如既往地仅限于它们所在的 curl 。

用

no strict;    # Probably not actually needed.
no warnings;  # Probably not actually needed.
use if scalar( $ARGV[0] =~ /^Y\z/i ), 'strict';
use if scalar( $ARGV[0] =~ /^Y\z/i ), 'warnings';