欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

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

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

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

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

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

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

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

# 下面是存取每個(gè)元素的方法，注意是用大括號把索引括起來哦。
# 習(xí)慣上索引值用單引號、元素值用雙引號括起來。
$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)這玩意的，下面也只是簡單介紹一下，看不懂的人可不必深究。

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

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

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

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

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

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

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

# Perl不會(huì)自動(dòng)去掉結(jié)尾的CR/LF，跟C語言不同，所以要用chomp函數(shù)幫你去掉它。
# 大家常常會(huì)忘記這個(gè)動(dòng)作，導(dǎo)致結(jié)果跟你想的不一樣，要特別注意一下。
$input=<STDIN>; chomp $input;
# 下面是較簡潔的寫法。
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可以是你取的任何識別字，
在識別字之間的字都會(huì)按照你所寫的樣子輸出，就像<pre>標(biāo)簽一樣。
而當(dāng)一行的開頭是XXX你取的這個(gè)識別字時(shí)，才會(huì)停止輸出。

Perl 也有和 C 一樣以 "\" 開頭的特殊字元：

      \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

另外需要說明的是 Perl 融合了 unix shell script 的使用慣例，以雙引號("")括起來的字串會(huì)先經(jīng)過展開，但反斜線(\)後面的字元?jiǎng)t不展開，當(dāng)作一般字元看待。而以單引號('')括起來的字串完全不會(huì)展開，以反單引號(``)括起來的字串會(huì)把它當(dāng)作命令列指令一樣執(zhí)行，等於system()一樣。初學(xué)者常常會(huì)搞混，但習(xí)慣之後就會(huì)覺得不這樣分清楚反而不行哩。舉個(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通常是用來尋找特定的字串樣式(pattern)，也就是所謂格式辨認(rèn)(pattern-matching)的功能。它的運(yùn)算子是『=~』和『!~』，可以把它念做match和not match。

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

例：$sentence =~ /Hello/

/abc/

tr/SEARCHLIST/REPLACEMENTLIST/cds