爲什麼使用警告;嚴格使用;在Perl中不是默認的？

Question

我不知道爲什麼

use warnings; 
use strict; 

並不在Perl違約。每個腳本都需要它們。如果某人（出於正當理由）需要禁用它們，則應該使用no strict和/或應該使用某些命令行參數（對於單行）。

是否有太多寫得很糟糕的CPAN模塊（使用「很糟糕」來表示沒有use strict）？還是因爲這可能會破壞已經在生產中的很多代碼？我確信有一個原因，我想知道它。

In 5.14 IO::File是根據需要自動加載的，使用這些基本的編譯指示可以做到這樣嗎？

Answer 1

這是爲了向後兼容。 Perl 4完全沒有嚴格的規定，並且最有可能的仍然是最初爲Perl 4編寫的腳本，這些腳本仍然可以在Perl 5中正常工作。嚴格自動會破壞這些腳本。對於單線運動員來說，情況更糟，其中許多運動員不願意聲明變量。默認情況下嚴格限制單行程序可能會導致數百萬個shell腳本和Makefiles出現在那裏。

它不能被自動加載，因爲它增加了限制，而不是功能。在文件句柄上調用方法時加載IO :: File是一回事。但是，除非代碼執行嚴格禁止的操作，否則嚴格激活是沒有意義的。

如果一個腳本指定5.11.0或更高版本的最低版本（例如use 5.012），那麼strict is turned on automatically。這不會啓用警告，但可能會在未來版本中添加。此外，如果您使用Perl進行OO編程，則應該知道使用Moose會自動啓用該類中的strict和warnings。

Answer 2

如果您使用的是現代Perl，那麼您只需啓用它即可。 5.12 applies strict except for one-liners.由於向後兼容性，它不能被默認。

$ cat strict-safe?.pl 
use 5.012; 
$foo 

$ perl strict-safe\?.pl 
Global symbol "$foo" requires explicit package name at strict-safe?.pl line 2. 
Execution of strict-safe?.pl aborted due to compilation errors. 

Answer 3

這是一個哲學問題，而不是「它不會工作」的問題。

首先，perl一直處於「你可以做得不正確，如果你想要」類型的範例。這就是爲什麼有很多perl仇敵在那裏。許多人寧願這種語言總是強迫你寫出好的代碼，但許多快速腳本黑客不想這樣做。試想一下：

perl -e '@a = split(/[,:]/, $_); print $a[1],"\n";' 

現在，它很容易添加一個「我」在@a的前面，但對於一條線，一次性腳本人並不想這樣做。

二，是的，我認爲大多數CPAN確實需要重寫。

恐怕沒有一個好的答案你會喜歡。

Answer 4

那麼，use strict現在是默認的，有點。

由於Perl 5.12.0，如果您需要版本的Perl> = 5.12.0，那麼您的腳本將打開所有向後不兼容的功能，包括嚴格默認。

use 5.12.0; 
use warnings; 

是一樣：

use strict; 
use warnings; 
use feature ':5.12'; 

它沒有被打開更廣泛的，因爲這樣做會破壞人們依靠「只是工作」了很多的腳本。

駝鹿也會自動打開嚴格和警告，當你使用它。因此，如果您執行任何基於Moose的Perl OOP，那麼您也可以在這裏獲得免費通行證。

Answer 5

可以使用common::sense模塊，如果你需要：

use utf8; 
use strict qw(vars subs); 
use feature qw(say state switch); 
no warnings; 
use warnings qw(FATAL closed threads internal debugging pack 
       portable prototype inplace io pipe unpack malloc 
       deprecated glob digit printf layer 
       reserved taint closure semicolon); 
no warnings qw(exec newline unopened);

它減少了內存使用情況。