Perl

 讀文檔： http://search.cpan.org/~gaas/Digest-MD5-2.39/MD5.pm後，   非常有用章段： This is useful when calculating checksum for files: use Digest::MD5; my $file = shift || "/etc/passwd"; open(FILE, $file) or die "Can't

一） sort函數用法sort LISTsort BLOCK LISTsort SUBNAME LISTsort的用法有如上3種形式。它對LIST進行排序，並返回排序後的列表。假如忽略了SUBNAME或BLOCK，sort按標準字串比較順序來進行（例如ASCII順序）。如果指定了SUBNAME，它實際上是個子函數的名字，該子函數對比2個列表元素，並返回一個小於，等於，或大於0的整數，這依賴於元素以何種順序來sort（升序，恒等，或降序）。也可提供一個BLOCK作為匿名子函數來代替SUBNAME，

perl 中的vars是perl中的一個pragma(先行編譯指示符），專門用來預定義全域變數，這些預定義後的全域變數在qw()列表中，在整個引用perl檔案中皆可使用，即便使用use strict也不會報錯：複製代碼 代碼如下:use strict ;$str = "hello world!\n" ;報錯資訊：Global symbol "$str" requires explicit package name at ~vars.pl line 3.Execution of ~vars.pl

有時候我們在部署指令碼的時候，我們想知道，我們的程式執行的怎麼樣了，想得到執行的結果，這樣我們也能放心很多是吧，那麼在程式執行成功或失敗的時候能夠給我沒發個郵件很是很不錯的。其實利用perl發郵件的方法有很多種，包括你在cpan上搜尋mail關鍵字是一大堆，經過實踐，MIME：：Lite用來發郵件還是很合適的，最不可思議的是它可以幫你輕鬆的發送帶有附件的郵件哦。下面我們就以MIME：：Lite發郵件為例：在cpan上面有關於它的詳細的用法（http://search.cpan.org/~rjbs

標籤：工具   hlist   傳回值   跳過   文法   拼接   its   splice   返回   Perl中的數組元素起始引用序號為0，@array的第一個元素為$array[0],依次遞增，最後一個元素為$arr

標籤：class   send   subject   int   標題   郵件   font   hello   bsp    1 #!/usr/bin/perl -w 2 use strict; 3 use

標籤：程式   資訊   學生資訊有兩個包組成 Date和Student_info。其中Date資訊包括了時間資訊的結構與設定。Student_info自身包含了名字的設定，引用Date包中時間資訊的結構與設定。---##Date.pm650) this.width=650;" src="http://s3.51cto.com/wyfs02/M01/74/01/wKioL1YM95exNRBlAAEcmHcIOHg743.jpg"

標籤：進入Perl的調試環境的命令：  Perl  -d  perl_file設定斷點：b + perl代碼中的行號。執行到斷點：c 表示continue until breakpoint。執行下一條語句，不會走出子程式：n 表示next，在第一次輸入n之後，之後可直接按空格鍵，預設仍是上一次命令。顯示變數的值：print $_/$line[8] 等顯示變數或數組的值。 刪除斷點：B + perl代碼中的行號。 B * 表示刪除所有斷點。顯示斷點情況：L

標籤：1.在分類樹中移動.　　程式運行時會以當前工作目錄作為相對路徑的起點, 可以使用  chdir 操作符改變目前的目錄:chdir "/etc" or die "Can‘t chdir to /etc:$!"; #因為這是一個相對作業系統的調用, 所以錯誤資訊會返回到 $! 中.　　由Perl程式啟動的所有進程都會繼承Perl程式的工作目錄. 但對於啟動Perl的進程,它的工作目錄不會隨Perl工作目錄的改變而改變,

標籤：perl   結構   Perl結構控制語句： if條件陳述式：if    (condition) {    expression;}    elsif   {    expression;} else {   

標籤：定義子程式：　　要定義自己的子程式，可使用關鍵字sub，子程式名（不包含與號）以及用花括弧封閉起的代碼塊，例如：1 sub marine{2 $n +=1; #全域變數 $n3 Print “Hello,sailor number $n \n”;4 }　　子程式不需要事先聲明　　子程式的定義是全域的，不存在私人子程式　　假如定義兩個重名的子程式，後面的子程式會覆蓋掉前面的那個 調用子程式1 &marine; 傳回值　

標籤：perl當你在目錄下進行一系列操作時，若要建立許多檔案或者修改檔案，可能會遇到許多麻煩的事。所以呢，建立一個檔案夾，然後在這個檔案夾下建立檔案或者修改檔案。假設，你的代碼要在一個目錄下建立一個檔案夾，名為TmpFolder，然後，在檔案夾下進行一系列操作。但是，目錄下可能之前就會出現TmpFolder，這樣一搞，會出問題的。該怎麼解決呢，有以下2個：（1）若是遇到有檔案夾的名字是TmpFolder，就不要這個檔案夾名字了，直接用TmpFolder2，不就是2了點嘛；但是，要是檔案夾TmpF

標籤：style   os   使用   io   for   檔案   sp   on   size   soket是網路通訊端，它是ip地址和連接埠號碼的組合。在perl中使用通訊端需要SOCKET模組；以經過測試可以使用：下

使用Perl編寫協議分析指令碼建立時間：2005-07-31 更新時間：2005-08-07文章屬性：原創文章提交：r00t (i_am_jojo_at_msn.com)1、軟體環境：Windows、ActiveState Perl 5.8.6、Winpcap 3.1 Beta；2、所需Perl 模組：Net::Pcap、Net::PcapUtils、NetPacket   >ppm install NetPacket   >ppm install

 第二章 標量資料Perl中的標量表示的範圍很大，包括數字和字元/字串。而且數字也不像c中有浮點數，單精，雙精，整數...之分，只要是數字就是標量。而且所有的數字其內部格式都一樣，perl將整數儲存為浮點數，計算也是按照浮點數進行計算。 數位表示方法：（在這方面還是可以看出perl的隨意性）1.25255.0007.25e45-6.5e24-12e-24-1.2E-230-406129804028376861_298_040_283_768

die函數 18.4 錯誤處理 在很多情況下，系統調用可能會失敗；例如，嘗試開啟不存在的檔案，或者刪除某個仍含有檔案的目錄，或者嘗試讀取沒有讀許可權的檔案。在前面的樣本中，我們已經用到了die函數，本節將 詳細討論有關錯誤處理和錯誤處理函數的相關內容。這些函數包括die函數、warn函數和eval函數。 die函數用於在命令或檔案控制代碼失敗時退出Perl指令碼。 warn函數類似於die函數，但它不會退出指令碼。 eval函數具有多種用途，但它主要還是用於異常處理。 讀者想必還記得短路運算子&

All numbers have the same format internally in Prel. in fact the Perl  use double-precision floating-point value to store numbers.Creating charaters by code point: chr(), and ord() metheds.e.g.$alef = chr(0x05df) ;$code_point = ord('d') ; In Perl

一、開啟、關閉檔案 open的傳回值用來確定開啟檔案的操作是否成功，當其成功時返回非零值，失敗時返回零，因此可以如下判斷： if (open(MYFILE, "myfile")) { # here is what to do if the file opened successfully } 當檔案操作完畢後，用close(MYFILE); 關閉檔案。 讀：open(檔案控制代碼，"<檔案名稱") open(檔案控制代碼，"檔案名稱"

Perl的特殊符號@ 數組 $x{} x名字前面是貨幣符號($),後面是花括弧({}),則其為 hash 元素% 要引用整個 hash,使用百分比符號(“ )作為首碼。前面幾頁中使用的 hash 的名字為%family_name。$! 系統產生的一些可讀的資訊,也可能是出錯的資訊$_ 子函數參數變數自己本身@_ 子程式的私人變數&x 調用子函數x<>

看來的代碼，測試通過#!/usr/bin/perlsub func1 { print "func1 is running\n";}sub func_test { my $func_ref = shift; # ref will return 'CODE' if it's function reference if ( ( ref($func_ref) eq "CODE" ) && defined( &{$func_ref} ) )