perl學習筆記 3

#example11 #雜湊數列2

#!/usr/bin/perl

my %hash = ("a" => 1, "b" => 2, "c" =>3);

my @k = keys %hash;

my @v = values %hash;

print "@k\n";

print "@v\n";

while ( ($key, $value) = each %hash )

foreach $key (sort keys %hash) ;

print "$key => $value\n";

}#example12 正規表示式：$_的簡寫

#!/usr/bin/perl

$_ = "yu qq qq doo";

if (/a/)

else

#example13 #正規表示式：(.)\1 匹配連續出現的兩個相同的字元

#!/usr/bin/perl

$_ = "yu qq qq oo";

if (/(.)\1/)

$_ = "yabba dabba doo";

if (/y(....) d\1/)

$_ = "yabba dabba doo";

if (/y(.)(.)\2\1/)

#example14 #正規表示式:\s 匹配換頁、製表、換行、回車、空格

#\w 匹配字母數字下劃線

#\d 匹配數字 ...

#!/usr/bin/perl

$_ = "hello there, neighor";

if (/\s(\w+),/)

print "$_\n";

if (/(\s+) (\s+), (\s+)/)

my $dino = "i fear that i'll be extinct after 10000 years.";

if ($dino =~ /(\d*) years)

$_ = "hello there, neighor";

if (/(there)?, (nei|ber)/)

$_ = "hello there, neighor";

if (/(there)*, (nei|ber)/)

if (/(there)?there, (nei|ber)/)

if (/(?:there)?(nei|ber)/)

$_ = "hello there, neighor";

if (/\s(\w+),/)

$_ = "hello there, neighor";

if (/(\w),/)

#example15 #檢驗一下模式匹配

#!/usr/bin/perl

while (<>)

else

}

perl學習筆記3 z

1 雜湊片斷，如果在花括號中提供了多鍵，便會返回與那些鍵相對應的值，結果生成的列表會被當作乙個陣列對待。所以無論是雜湊片斷還是陣列片斷，都要採用 符號。2 應用於雜湊的函式 keys 函式可返回乙個列表，其中包含了雜湊內的所有鍵值。values 函式也能返回乙個列表，其中包含了雜湊中的所有值。eac...

Perl 學習筆記

在linux上，如果遇到這樣的提示 can t locate module datetime.pm in inc 意味著perl模組沒有安裝全,可以用cpan來安裝缺失的模組 perl mcpan e install module build 如果系統上很多模組都已經很舊了，用這個命令來自動更新 u...

perl 學習筆記

perl 語法 一 資料結構 標量 陣列 雜湊 0 八進位制 0x 十六進製制 注釋 二 字串 1 字元鏈結 2 單引號內字元不會被轉義 3 v字元 乙個以 v 開頭,後面跟著乙個或多個用句點分隔的整數,會被當作乙個字串文字。foo v102.111.111 4 here 文件 print 5 特殊...