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

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

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

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

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

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

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

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

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

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


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

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

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

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

# 其實在Perl中，for和foreach是可以混著用的，就看個的人習(xí)慣了。
# 下面這行就等於上面第一個敘述，不過簡潔多了，大家可以試著用用看。
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(標記)的語法，也就是 goto 指令，不過有經(jīng)驗的programer并不喜歡用它，我也不建議大家使用，所以就此按下不講。有興趣的人請自行查閱。還有一點值得注意的是Perl沒有提供像C語言一樣的 switch 敘述，不過Perl的pattern match的功能非常強，所以我建議你直接用 if else 敘述來做就好了。

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


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

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

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


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

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 的使用慣例，以雙引號("")括起來的字串會先經(jīng)過展開，但反斜線(\)後面的字元則不展開，當(dāng)作一般字元看待。而以單引號('')括起來的字串完全不會展開，以反單引號(``)括起來的字串會把它當(dāng)作命令列指令一樣執(zhí)行，等於system()一樣。初學(xué)者常常會搞混，但習(xí)慣之後就會覺得不這樣分清楚反而不行哩。舉個例吧：

$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)，也就是所謂格式辨認(pattern-matching)的功能。它的運算子是『=~』和『!~』，可以把它念做match和not match。

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

例：$sentence =~ /Hello/

/abc/

tr/SEARCHLIST/REPLACEMENTLIST/cds