perl常量、多維數(shù)組及變量的初始化的實(shí)例代碼
更新時(shí)間：2013年02月09日 20:33:18 作者：
perl常量、多維數(shù)組及變量的初始化的例子，供大家學(xué)習(xí)參考
例1：
復(fù)制代碼 代碼如下:
#!/usr/bin/perl
use strict;
use warnings;
my $test = "asdf";
print "${test}_test2\n";
#constant
use constant {
AAA => "aaa",
BBB=> "bbb",
MIN_TOTAL => 12,
SCORE_PASS => 90,
SCORE_RED => 70,
};
print AAA;
print SCORE_PASS;
#two dimesion arrays
my @steps = (
["aaa", "aaavalue"],
["bbb","bbbvalue"],
["ccc","cccvalue"]
);
print "\n";
foreach my $i (0 .. $#steps){
print "$steps[$i][0]:$steps[$i][1]\n";
}
代碼2：
復(fù)制代碼 代碼如下:
my $a1;
print "$a1\n";
my $a2 = undef;
print "$a2\n";
if(!defined($a1)){print "a1 is not defined\n";}
if(!$a2){print "a2 is not defined\n";}
my $a3='';
if(!$a3){print "a3 is empty string\n";}
在定義變量時(shí)一定要初始化，或者在使用時(shí)判斷是否defined，很多的時(shí)候還需要判斷是否為空字符串。 特別是在使用getopt::long或cgi->query獲得參數(shù)后要檢測(cè)是否定義，如果么有定義考慮給予默認(rèn)值。
相關(guān)文章
這篇文章主要介紹了Perl學(xué)習(xí)筆記之文件操作,本文分別給出了打開(kāi)文件、讀取文件、寫(xiě)入文件代碼實(shí)例,需要的朋友可以參考下2015-06-06
一篇文章搞懂：詞法作用域、動(dòng)態(tài)作用域、回調(diào)函數(shù)及閉包
這篇文章主要給大家介紹了如何通過(guò)一篇文章搞懂：詞法作用域、動(dòng)態(tài)作用域、回調(diào)函數(shù)及閉包的相關(guān)資料，文中通過(guò)示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面來(lái)一起看看吧2018-12-12
以下的程序，輸出一串?dāng)?shù)字中比平均值大的數(shù)，其中有兩個(gè)問(wèn)題值得注意，具體請(qǐng)看程序中的注釋2013-02-02
perl 指定長(zhǎng)度并生成一個(gè)隨機(jī)的DNA序列的腳本代碼
perl 指定長(zhǎng)度并生成一個(gè)隨機(jī)的DNA序列的代碼，有需要的朋友可以參考下2013-03-03
perl uc,lc,ucfirst,lcfirst大小寫(xiě)轉(zhuǎn)換函數(shù)
這篇文章主要介紹了perl 大小寫(xiě)字母轉(zhuǎn)換函數(shù),需要的朋友可以參考下2017-10-10
Perl腳本實(shí)現(xiàn)檢測(cè)主機(jī)心跳信號(hào)功能
這篇文章主要介紹了Perl腳本實(shí)現(xiàn)檢測(cè)主機(jī)心跳信號(hào)功能,本文代碼也可作為perl串口通信的實(shí)例,需要的朋友可以參考下2014-10-10
perl是什么，干什么用的？perl原來(lái)設(shè)計(jì)者的意圖是用來(lái)處理 字符的，80%的強(qiáng)項(xiàng)是處理字符，當(dāng)然其它的很多都可以?，F(xiàn)在很多網(wǎng)頁(yè)也是用perl的，通常需要CGI環(huán)境2015-10-10
Perl 文本文件的讀寫(xiě)操作、文件的重命名和刪除、多個(gè)文本文件的合并實(shí)現(xiàn)代碼
Perl 文本文件的讀寫(xiě)操作、文件的重命名和刪除、多個(gè)文本文件的合并實(shí)現(xiàn)代碼，需要的朋友可以參考下2013-02-02
這篇文章主要介紹了Perl批量下載Gmail附件的代碼,本文重點(diǎn)在使用Mail::POP3Client模塊和Gmail通信的方法,需要的朋友可以參考下2014-06-06
在Perl排名持續(xù)下降的情況下學(xué)Perl，似乎是有點(diǎn)不明智。但是，工作需要，不得不學(xué)啊。再說(shuō)，Perl現(xiàn)在在測(cè)試領(lǐng)域還是用得非常多的。Phython雖然也在測(cè)試領(lǐng)域開(kāi)始活躍起來(lái)，不過(guò)我始終還是不太喜歡Phython的語(yǔ)法。2009-04-04