什么場(chǎng)合要用usestrict

當(dāng)你的程序有一定的行數(shù)時(shí)，尤其是在一頁放不下時(shí)，或者是你找不到發(fā)生錯(cuò)誤的原因時(shí)。

為什么要用usestrict？

眾多的原因之一是幫你尋找因?yàn)殄e(cuò)誤拼寫造成的錯(cuò)誤。比如錯(cuò)誤使用了'$recieve_date'變量，但實(shí)際上你在程序中已聲明的是'$receive_date'變量，這個(gè)錯(cuò)誤就很難發(fā)現(xiàn)。同樣，usestrict迫使你把變量的范圍縮到最小，使你不必?fù)?dān)心同名變量在程序的其它部份發(fā)生不良作用。（盡管這是my的功能，但是如果你使用usestrict的話，它會(huì)強(qiáng)迫你用my聲明變量，來達(dá)到上述目的）。用usestrict麻煩嗎？不麻煩，只要在你的腳本的開始加上11個(gè)字符而已！(usestrict;),另外在整個(gè)程序中用my聲明變量。不錯(cuò)，那我怎么用usestrict呢？在你的腳本的開頭'#!/usr/local/bin/perl'后面加上這句就行。

usestrict;

Globalsymbol"$xxx"requiresexplicitpackagenameat./tstline5.

usewarnings;

#!/usr/local/bin/perl-w#或者$^W=1;#或者BEGIN{$^W=1}

#把這段代碼:subadd_two_numbers_which_might_be_undef{$_[0] $_[1];}#根據(jù)Perl的版本不同改成下面的樣子:#1subadd_two_numbers_which_might_be_undef{#參見'perldocperllexwarn'#因?yàn)樽詈檬侵辉谀阆Ｍ牡胤浇沟魒arningnowarnings"uninitialized";$_[0] $_[1];}#2subadd_two_numbers_which_might_be_undef{local$^W;$_[0] $_[1];}