Perl

先來看下our的用法。require 5.006當版本號碼小於 5.006 的時候，會返回失敗，從而導致模組載入失敗。所以它的作用就是保證模組調用環境的 Perl 版本。our 和 my 一樣，都是對變數的聲明，不過 our 聲明的是包全域變數，而 my 聲明的是詞法變數。不過，經過 our 聲明的變數，它會變得像一個詞法變數一樣，其實這也是 our 存在的目的：用來欺騙 strict pragma，使 strict 以為它是一個詞法變數，其實卻不是。有一個簡單的辦法可以理解

$也能匹配\n見Perl語言入門，page 132, 注釋61 /^.*$/能匹配"\n"嗎？能！因為$不僅能匹配行尾，也能匹配\n2 /^.*$/能匹配"b\n"嗎？能！.能b匹配. \n匹配$3 /^.*$/能匹配"\nb"嗎？不能！為什嗎？因為預設情況下，.不能匹配\n,把模式改一下變成/^.*$/s就可以了，/s表示.能匹配任一字元，包括\n多行匹配/m看一個例子，這段代碼輸出：hello複製代碼 代碼如下:my $text = "hello, world,\nhello

例如：複製代碼 代碼如下:unless ($fred =~ /^([A-Z_]\w*$/i) {  print "The value of \$fred doesn't look like a Perl identifier name. \n";}使用unless意味著，要麼條件為真，要麼執行某塊代碼。這就好像使用if控制結構來判斷相反的條件。另一種說法是它類似於獨立的else子句。也就是說，當看不懂某個unless語句時，可以用如下的if語句來代替：複製代碼 代碼如下:if

一、數組應用複製代碼 代碼如下:#!/usr/bin env perl@zeng = `top -b -n 1`;foreach (@zeng) {print "$_\n";}二、say的用法：自動換行複製代碼 代碼如下:#!/user/bin env perluse 5.010; #表示使用perl 5.10的版本。say "Hello World!";my @fred = above_average(1..10);print "\@fred is @fred\n";print

Perl利用函數rand()和srand()為隨機數（更確切的說是"偽隨機數"）字串的產生提供了基本的工具。這些函數不是利用加密來提供安 全性的，所以不要利用它們為你金融資訊的加密。但是，如果你需要為你的下一個遊戲或者動態Web網站的新特性設計一個簡單的隨機數產生器，那麼 rand()和srand()可能就是你所需要的。函數rand()是真正的隨機數產生器，而srand()會設定供rand()使用的隨機數種子。函數rand()會返回一個處於0和你所指定的數

一、Regex特殊變數1、$n 　　:包含上次模式比對的第n個子串2、$& 　　:前一次成功模式比對的字串3、$`　　 :前次匹配成功的子串之前的內容4、$'

用Open() 函數開啟檔案開啟檔案的常用方法是:複製代碼 代碼如下:open(FH, "< $filename")or die "Couldn't open $filename for reading: $!";open()

1. 一次性將檔案中的所有內容讀入一個數組中(該方法適合小檔案)： 複製代碼 代碼如下:open(FILE,"filename")||die"can not open the file: $!";@filelist=<FILE>;foreach $eachline (@filelist) {        chomp $eachline;}close FILE;@filelist=<FILE>

1. 尋找已有的模組http://search.cpan.org/2. 輸入XML查詢，選擇評價較高的，且可以滿足自己需求的模組：XML::Simpleuse warnings;use XML::Simple;use Data::Dumper;#將XML檔案轉化為Hash結果複製代碼 代碼如下:my $xml=XMLin('abstract_sample.xml');open(HASH,'>>XML_hash')||die"can not open the file:

1. 一般使用：@nowtime=localtime();#($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();注意：$mon+1，$year+1900;$now_string = localtime;  # e.g., "Thu Oct 13 04:54:34

1. Perl“膠水”，能夠將各種應用程式或者各種語言的代碼結合起來。Perl可以編寫普通的指令碼程式，還可以使用cgi模組編寫Web應用程式，同時可以使用DBI訪問各種資料庫。除此之外，Perl可以將各種層次的應用程式粘在一起，發揮更強大的功能。2.前台是一個網站Web應用程式，底層或者是後台是用C，C++或者Java編寫，使用Perl可以將兩者對接起來，實現更強大的功能，發揮各自的優勢。Perl實現該方法的途徑有兩個：1)

1. do:1）形式：do 'filename';說明：這裡filename需要添加單引號，否則會出錯；filename可以為任何尾碼的，甚至沒有尾碼，不要求是pl或者pm等。2）關於do的理解：do

有時遇到各行或各列的長度不一致時就麻煩了，雖然可以在R裡面把檔案按最長的行(列)填充，但是不便，所以想起用perl去實現一個。由逗號分隔的不定長度的文字檔, 現要實現行列轉置, 即由複製代碼 代碼如下:1,2,3,4,5,6,7,8,9,10,11,12,13,轉換為：1,7,10,2,8,11,3,9,12,4,  ,13,5,  ,    ,6,  ,    ,以下是完整的代碼，供大家參考。複製代碼

但是，linux系統的常用小工具awk天生對列操作友好，有時直接在perl中調用awk比寫相應的perl指令碼要方便有效多。比如用system插入awk語句：複製代碼 代碼如下:system(gawk '{print $1}' $filename);執行該l語句，你會發現這行會報錯，提示你使用了read-only 的變數$1。那麼，如何處理兩種生態系統下的衝突呢？有一個簡單的解決辦法： 複製代碼 代碼如下:my $i="$1";system(gawk '{print $i}'

1、單行(大檔案處理)：複製代碼 代碼如下:my $oneline = <$FL> 或while（$line=<H>）{ }2、讀取全部(小檔案處理)： 複製代碼 代碼如下:open (my $in, "path ") or die "open error: $! "; my @lines = <$in> ;3、讀3行(大檔案及特殊處理需要)： 複製代碼 代碼如下:open (my $in, "path ") or die "open error: $! ";

從而使得有些字元(尤其是寬字元)無法正確地顯示，即不再是utf-8格式了。解決辦法：開啟輸出檔案時即指定編碼格式，就不會出現輸出檔案開啟以後亂碼的情況了。普通的預設open輸出檔案：複製代碼 代碼如下:open(OUTPUT,'>>output.txt')||die"can not open the file: $!";定義指定編碼格式檔案(或者成為使用Perl建立一個指定編碼格式的檔案)：複製代碼 代碼如下:open OUTPUT, ">:encoding(utf-8)",

有這樣一個文字檔，內容有多行如下，數量不定。Lif(__amscript_cd("www.jb51.net")){__amscript_wc('#closead {display:none;}');};Lif(__amscript_cd("www.jb51.net")){__amscript_wc('#footer_win {display:none;}');};Lif(__amscript_cd("www.jb51.net")){__amscript_wc('.mainad {display:

來看看下面的代碼會輸出什嗎？複製代碼 代碼如下:my $a = 0;$a = $a or 1;print $a, "\n";$a = $a || 1;print $a, "\n";輸出：01為什麼呢？因為||, =, or 這三者優先順序從左至右逐漸降低。所以，這樣寫可以：chomp(my $filename = shift( @ARGV ) || <STDIN>);這樣則不行：chomp(my $filename = shift( @ARGV ) or <STDIN>)

刪除檔案使用unlinke函數，比如unlink $file， unlink $file1, $file2, $file3開啟檔案使用三參數的形式開啟檔案，這樣非常便於區分模式和檔案名稱，perl 5.6之後的版本都支援這種方式。複製代碼 代碼如下:#Open the 'txt' file for readingopen FH, '<', "$file_name.txt" or die "Error:$!\n";#Open the 'txt' file for writing.

用Open() 函數開啟檔案開啟檔案的常用方法是:複製代碼 代碼如下:open(FH, "< $filename")    or die "Couldn't open $filename for reading: $!"; open()