|
perl中對(duì)元素變量進(jìn)行操作時(shí)，需要判斷其是否定義或是否為空或存在等操作，規(guī)范的操作要借助于defined、exist等函數(shù)，那么它們之間有什么關(guān)系呢。 undef undef EXPR Undefines the value of EXPR, which must be an lvalue. Use only on a scalar value, an array (using @ ), a hash (using % ), a subroutine (using & ), or a typeglob (using * ). Saying undef $hash{$key} will probably not do what you expect on most predefined variables or DBM list values, so don't do that; see delete. Always returns the undefined value. You can omit the EXPR, in which case nothing is undefined, but you still get an undefined value that you could, for instance, return from a subroutine, assign to a variable, or pass as a parameter. 變量在第一次賦值前有一個(gè)特殊值undef，按照Perl的解釋來(lái)說(shuō)就是： “這里什么也沒(méi)有，請(qǐng)繼續(xù)” 。它所表示的意思取決于其所處的上下文環(huán)境，如果這里的“什么也沒(méi)有”是一些“數(shù)字” ，則表現(xiàn)為 0。如果是“字符串”，則表現(xiàn)為空串。但undef既非數(shù)字也非字符串，它是另一種標(biāo)量類型。 在使用新變量時(shí)，經(jīng)常不初始化，從而將變量作為0或者空串使用。許多操作當(dāng)參數(shù)不恰當(dāng)時(shí)返回undef。如果沒(méi)做特殊處理，通常會(huì)得到0或者空串。實(shí)踐中，這幾乎不會(huì)有什么問(wèn)題。實(shí)際上，許多程序員利用這種性質(zhì)。但應(yīng)當(dāng)知道如果警告是打開的，那Perl在你不恰當(dāng)?shù)氖褂梦炊x值時(shí)會(huì)提醒你。例如，將一個(gè)undef的變量賦給另一個(gè)變量不會(huì)有什么問(wèn)題，但如果print某個(gè)未定義的值則將引起警告。 另一個(gè)能返回 undef 的操作是行輸入操作：<STDIN>。通常它會(huì)返回文本中的一行。但如到了文件的結(jié)尾，則返回undef。要分辨其是undef還是空串，可以使用defined函數(shù)，它將在為undef 時(shí)返回false，其余返回true。 當(dāng)undef作用于操作符環(huán)境時(shí)，表示將被操作的變量或函數(shù)進(jìn)行"注銷"操作。 undef *xyz; # destroys $xyz, @xyz, %xyz, &xyz, etc. my %h=( a=>1,b=>2,c=>3 ); #undef $h{'b'}; #delete $h{'b'}; foreach (keys %h){ say $_.':'.$h{$_}; } defined defined EXPR Returns a Boolean value telling whether EXPR has a value other than the undefined value undef. If EXPR is not present, $_ is checked. defined用來(lái)判斷一個(gè)變量是不是undef，也就是知道有這個(gè)變量但不知道它是不是undef；也就是判斷該變量是否是被賦過(guò)值的，其實(shí)這里當(dāng)一個(gè)變量被聲明之后通常他是沒(méi)有被賦值的，所以該函數(shù)就是用來(lái)完成這個(gè)工作的。未賦值的時(shí)候，他對(duì)外顯示的應(yīng)該是什么也沒(méi)有，這和給標(biāo)量賦值空的時(shí)候?qū)ν怙@示一樣，但是本質(zhì)卻是完全不同的：賦值為空也是一種賦值，與未賦值是兩種不同的情況，即使對(duì)外顯示相同，但是defined卻能夠明白的知道兩者之間的不同，用defined來(lái)判斷一下標(biāo)量就可以明白他是否是undef的了，若為undef則返回為0，若為非undef則返回1。下面舉一示例來(lái)說(shuō)明下定義與賦值之間的區(qū)別： my $word;#沒(méi)有賦值 if((defined $word)==0){print "0\n$word"} else{print "1\n$word";} 結(jié)果為第一行為0 第二行為空，說(shuō)明defined返回為0，那說(shuō)明$word沒(méi)有賦值也就是undef的。 將my $word;改為my $word="";再運(yùn)行一次。 結(jié)果為第一行為1 第二行為空，說(shuō)明defined返回為非0，說(shuō)明$word已經(jīng)被賦值了，且賦值為空，所以第二行顯示為空，雖然兩次的$word都為空，但是卻是一個(gè)沒(méi)有被賦值，一個(gè)已經(jīng)被賦值為空了。 exists 用于判斷hash、array(ref)中的元素是否存在，function函數(shù)是否定義。 判斷一個(gè)hash中的鍵是否存在，鍵存在但有可能是undef。在hash中，當(dāng)檢驗(yàn)一個(gè)元素值是否被定義是用defined，當(dāng)檢驗(yàn)一個(gè)key在hash中是否存在時(shí)，用exists(即使該鍵下的值不存在)。 print "Exists\n" if exists $hash{$key}; print "Defined\n" if defined $hash{$key}; print "True\n" if $hash{$key}; 當(dāng)作用于數(shù)組時(shí) print "Exists\n" if exists $array[$index]; print "Defined\n" if defined $array[$index]; print "True\n" if $array[$index]; 作用于函數(shù)時(shí) print "Exists\n" if exists &subroutine; print "Defined\n" if defined &subroutine; 注意，子函數(shù)后不能帶() exists ⊂ # OK exists &sub(); # Error 下面是在函數(shù)中使用defined,undef操作的示例 The correct function is defined. undef undefines $optional: sub Freeoa { my($length, $optional) = @_; if(! defined $optional) { # Do whatever needs to be done if $optional isn't defined. } else{ # Do whatever can be done if $optional *is* defined. } } Another way to deal with it (especially Perl 5.10+) is to use the "defined or" operator, //, like this: sub Freeoa{ my $length = shift; my $optional = shift // 'Default Value'; # Do your stuff here. } What that does is detect whether the return value of shift @_ is defined. Since you already called shift once, we're now testing the second parameter. If it's defined, assign the value to $optional. If it's not defined, assign 'Default Value' to $optional. Of course you have to come up with your own sane default. 如果使用的版本早于5.10，通常的寫法為： my $optional = shift; $optional = defined $optional ? $optional : 'Default value'; ...or... my $length = shift; my $optional = defined( $_[0] ) ? shift : 'Default value'; |
|
|
