国产无遮挡裸体免费直播视频,久久精品国产蜜臀av,动漫在线视频一区二区,欧亚日韩一区二区三区,久艹在线 免费视频,国产精品美女网站免费,正在播放 97超级视频在线观看,斗破苍穹年番在线观看免费,51最新乱码中文字幕

純量變數(shù)是Perl里最基本的一種資料型態(tài)，它可以代表一個(gè)字元、字串、整數(shù)、甚至浮點(diǎn)數(shù)，而Perl把它們都看成是一樣的東東! 你甚至可以混著用，不可思議吧。例如：

# 井字號(hào)開(kāi)頭的後面都是注解。
# 純量變數(shù)以$開(kāi)頭。
# my 是一種宣告變數(shù)的方式，它可以使變數(shù)區(qū)域化。
# 宣告變數(shù)時(shí)若不加 my 或 local 則Perl會(huì)把它當(dāng)作全域變數(shù)使用。
# 習(xí)慣上，我們會(huì)將字串用雙引號(hào)括起來(lái)，而數(shù)值就不用加引號(hào)。
my $x="abc";
my $x=123;
my $x=4.56;

那麼程式怎麼判斷這是數(shù)值還是字串呢? 其實(shí)不是程式判斷，而是你自己要判斷。Perl分別提供了一堆運(yùn)算子來(lái)處理數(shù)字和字串，你必須知道這個(gè)變數(shù)是數(shù)值或字串，才能使用個(gè)別的運(yùn)算子來(lái)對(duì)變數(shù)做運(yùn)算。我分別列出字串運(yùn)算子和數(shù)值運(yùn)算子，好讓大家能區(qū)分它們的不同。

雜湊陣列也叫做相關(guān)陣列，它和一般陣列沒(méi)什麼不同，差別只是在它的索引值用的是字串，而非一般陣列所用的整數(shù)值，因此相關(guān)陣列不像一般陣列一樣有次序的概念，它沒(méi)有所謂的第一項(xiàng)資料這種說(shuō)法。它就相當(dāng)於把一堆變數(shù)組合成一個(gè)group，然後我們可以透過(guò)索引字串存取這個(gè)group每一個(gè)元素的值。相關(guān)陣列的宣告及使用方式如下：

# 相關(guān)陣列是以 % 符號(hào)開(kāi)頭的。
my %hash;

# => 這個(gè)符號(hào)是Perl5新增的，是為了相關(guān)陣列量身定做的，
# 因?yàn)樗饕�和元素值都是純量，若使�?=> 這個(gè)符號(hào)，
# (索引=>元素值) 兩兩對(duì)應(yīng)，就不容易發(fā)生失誤。
my %hash=("i1"=>"aaa","i2"=>"bbb","i3"=>"ccc");

# 上面這行的效果和下面這行是一樣的。
my %hash=("i1","aaa","i2","bbb","i3","ccc");

# 下面是存取每個(gè)元素的方法，注意是用大括號(hào)把索引括起來(lái)哦。
# 習(xí)慣上索引值用單引號(hào)、元素值用雙引號(hào)括起來(lái)。
$hash{'i1'}="aaa"; $hash{'i2'}="bbb"; $hash{'i3'}="ccc";

# 下面是使用相關(guān)陣列的三個(gè)例子：
foreach $key (keys %hash) {
print "$hash{$key}\n";
}
foreach $value (values %hash)
while(($key,$value)=each %hash)


Perl 5新增了參考指標(biāo)的資料型態(tài)，使Perl和C一樣可借由指標(biāo)建立一些復(fù)雜的資料結(jié)構(gòu)。普通程式是用不到指標(biāo)這玩意的，下面也只是簡(jiǎn)單介紹一下，看不懂的人可不必深究。

⊙如何取得變數(shù)的位址?

# 注意：純量變數(shù)前面要加個(gè) $ 字號(hào)，這一點(diǎn)和C語(yǔ)言不一樣哦。
for($i=0; $i<=10; $i++) {Code Segment}

# foreach 是承襲UNIX的shell script來(lái)的，
# 第一個(gè)引數(shù)是純量變數(shù)，第二個(gè)引數(shù)要用括號(hào)括起來(lái)，里面是一個(gè)純量陣列，
# 顧名思義它就是把陣列中的每個(gè)元素依序傳給第一個(gè)引數(shù)，直到全部傳完。
# 它和 for($i=0; $i<=$#array; $i++) 用法雖然不同，但目的都是要取出陣列的每個(gè)元素。
foreach $i (@array) {Code Segment}

# 其實(shí)在Perl中，for和foreach是可以混著用的，就看個(gè)的人習(xí)慣了。
# 下面這行就等於上面第一個(gè)敘述，不過(guò)簡(jiǎn)潔多了，大家可以試著用用看。
for $i (0..10) {Code Segment}

# while控制回圈和後置回圈。
while($i<=10) {Code Segment}
do {Code Segment} while(Expression);

# Perl也有和C語(yǔ)言的break和continue一樣的指令，Perl叫它做 last 和 next (較口語(yǔ)化)。
# last是跳出現(xiàn)在所在的回圈，next則是跳過(guò)下面的指令直接執(zhí)行下一次的回圈。
while(chomp($i=<STDIN>)) {
next if ($i == 5);
last unless ($i > 10);
}

Perl還有提供label(標(biāo)記)的語(yǔ)法，也就是 goto 指令，不過(guò)有經(jīng)驗(yàn)的programer并不喜歡用它，我也不建議大家使用，所以就此按下不講。有興趣的人請(qǐng)自行查閱。還有一點(diǎn)值得注意的是Perl沒(méi)有提供像C語(yǔ)言一樣的 switch 敘述，不過(guò)Perl的pattern match的功能非常強(qiáng)，所以我建議你直接用 if else 敘述來(lái)做就好了。

# Perl不會(huì)自動(dòng)去掉結(jié)尾的CR/LF，跟C語(yǔ)言不同，所以要用chomp函數(shù)幫你去掉它。
# 大家常常會(huì)忘記這個(gè)動(dòng)作，導(dǎo)致結(jié)果跟你想的不一樣，要特別注意一下。
$input=<STDIN>; chomp $input;
# 下面是較簡(jiǎn)潔的寫(xiě)法。
chomp($input=<STDIN>);


# 不用再指定變數(shù)的data type，這樣不是比printf()方便多了嗎?
print "Scalar value is $x\n";
# . 是字串加法的運(yùn)算子，上下這兩行是等效的。
print "Scalar value is " . $x . "\n";

# 輸出到檔案的方法。
print FILE "print $x to a file.";

# 下面是print的特殊用法，學(xué)自shell script的用法：
print<<XXX;


這招叫做 here document，XXX可以是你取的任何識(shí)別字，
在識(shí)別字之間的字都會(huì)按照你所寫(xiě)的樣子輸出，就像<pre>標(biāo)簽一樣。
而當(dāng)一行的開(kāi)頭是XXX你取的這個(gè)識(shí)別字時(shí)，才會(huì)停止輸出。

Perl 也有和 C 一樣以 "\" 開(kāi)頭的特殊字元：

      \t    tab
      \n    newline
      \r    return
      \f    form feed
      \b    backspace
      \a    alarm(bell)
      \e    escape
      \033  octalchar
      \x1b  hex char
      \c[   control char
      \l    lowercase next char
      \u    uppercase next char
      \L    lowercase till \E
      \U    uppercase till \E
      \E    end case modification
      \Q    quoteregexp metacharacters till \E

另外需要說(shuō)明的是 Perl 融合了 unix shell script 的使用慣例，以雙引號(hào)("")括起來(lái)的字串會(huì)先經(jīng)過(guò)展開(kāi)，但反斜線(xiàn)(\)後面的字元?jiǎng)t不展開(kāi)，當(dāng)作一般字元看待。而以單引號(hào)('')括起來(lái)的字串完全不會(huì)展開(kāi)，以反單引號(hào)(``)括起來(lái)的字串會(huì)把它當(dāng)作命令列指令一樣執(zhí)行，等於system()一樣。初學(xué)者常常會(huì)搞混，但習(xí)慣之後就會(huì)覺(jué)得不這樣分清楚反而不行哩。舉個(gè)例吧：

$x="ls -l";
print "$x";             # Output ls -l
print "\$x";            # Output $x
print '$x';             # Output $x
print `$x`;             # Output files in this directory

Regular Expression通常是用來(lái)尋找特定的字串樣式(pattern)，也就是所謂格式辨認(rèn)(pattern-matching)的功能。它的運(yùn)算子是『=~』和『!~』，可以把它念做match和not match。

Syntax: $string =~ /regular expression/expression modifier

例：$sentence =~ /Hello/

/abc/

tr/SEARCHLIST/REPLACEMENTLIST/cds