Perl教程
一、進程處理函數
二、數學函數
三、字符串處理函數
四、標量轉換函數
五、數組和列表函數
六、關聯數組函數
一、Perl進程處理函數
1、進程啓動函數
2、進程終止函數
3、進程控制函數
4、其它控制函數
1、進程啓動函數
| 函數名 | eval |
| 調用語法 | eval(string) |
| 解說 | 將string看作Perl語句執行。 正確執行後，系統變量$@爲空串，如果有錯誤，$@中爲錯誤信息。 |
| 例子 | $print = "print (/"hello,world//n/");"; eval ($print); |
| 結果輸出 | hello, world |
| 函數名 | system |
| 調用語法 | system(list) |
| 解說 | list中第一個元素爲程序名，其餘爲參數。 system啓動一個進程運行程序並等待其結束，程序結束後錯誤代碼左移八位成爲返回值。 |
| 例子 | @proglist = ("echo", "hello,world!"); system(@proglist); |
| 結果輸出 | hello, world! |
| 函數名 | fork |
| 調用語法 | procid = fork(); |
| 解說 | 創建程序的兩個拷貝--父進程和子進程--同時運行。子進程返回零，父進程返回非零值，此值爲子程序的進程ID號。 |
| 例子 | $retval = fork(); if ($retval == 0) { # this is the child process exit; # this terminates the child process } else { # this is the parent process } |
| 結果輸出 | 無 |
| 函數名 | pipe |
| 調用語法 | pipe (infile, outfile); |
| 解說 | 與fork合用，給父進程和子進程提供通信的方式。送到outfile文件變量的信息可以通過infile文件變量讀取。步驟： 1、調用pipe 2、用fork將程序分成父進程和子進程 3、一個進程關掉infile，另一個關掉outfile |
| 例子 | pipe (INPUT, OUTPUT); $retval = fork(); if ($retval != 0) { # this is the parent process close (INPUT); print ("Enter a line of input:/n"); $line = <STDIN>; print OUTPUT ($line); } else { # this is the child process close (OUTPUT); $line = <INPUT>; print ($line); exit (0); } |
| 結果輸出 | $ program Enter a line of input: Here is a test line Here is a test line $ |
| 函數名 | exec |
| 調用語法 | exec (list); |
| 解說 | 與system類似，區別是啓動新進程前結束當前程序。常與fork合用，當fork分成兩個進程後，子進程用exec啓動另一個程序。 |
| 例子 | |
| 結果輸出 |
| 函數名 | syscall |
| 調用語法 | syscall (list); |
| 解說 | 調用系統函數，list第一個元素是系統調用名，其餘爲參數。 如果參數是數字，就轉化成C的整型數(type int)。否則傳遞字符串的指針。詳見UNIX的幫助或Perl文檔。 使用syscall必須包含文件syscall.pl，即： require ("syscall.ph"); |
| 例子 | |
| 結果輸出 |
| 函數名 | die |
| 調用語法 | die (message); |
| 解說 | 終止程序並向STDERR輸出錯誤信息。message可以爲字符串或列表。如果最後一個參數不包含換行符，則程序文件名和行號也被輸出。 |
| 例子 | die ("Cannot open input file"); |
| 結果輸出 | Cannot open input file at myprog line 6. |
| 函數名 | warn |
| 調用語法 | warn (message); |
| 解說 | 與die類似，區別是不終止程序。 |
| 例子 | warn("Danger! Danger!/n"); |
| 結果輸出 | Danger! Danger! |
| 函數名 | exit |
| 調用語法 | exit (retcode); |
| 解說 | 終止程序並指定返回值。 |
| 例子 | exit(2); |
| 結果輸出 | 無 |
| 函數名 | kill |
| 調用語法 | kill (signal, proclist); |
| 解說 | 給一組進程發送信號。 signal是發送的數字信號，9爲殺掉進程。 proclist是進程ID列表。詳見kill的UNIX幫助。 |
| 例子 | |
| 結果輸出 |
| 函數名 | sleep |
| 調用語法 | sleep (time); |
| 解說 | 將程序暫停一段時間。time是停止的秒數。返回值爲實際停止的秒數。 |
| 例子 | sleep (5); |
| 結果輸出 | 無 |
| 函數名 | wait |
| 調用語法 | procid = wait(); |
| 解說 | 暫停程序執行，等待子進程終止。 不需要參數，返回值爲子進程ID，如果沒有子進程，返回-1。 |
| 例子 | |
| 結果輸出 |
| 函數名 | waitpid |
| 調用語法 | waitpid (procid, waitflag); |
| 解說 | 暫停程序執行，等待特定的子進程終止。procid爲等待的進程ID |
| 例子 | $procid = fork(); if ($procid == 0) { # this is the child process print ("this line is printed first/n"); exit(0); } else { # this is the parent process waitpid ($procid, 0); print ("this line is printed last/n"); } |
| 結果輸出 | $ program this line is printed first this line is printed last $ |
| 函數名 | caller |
| 調用語法 | subinfo = caller(); |
| 解說 | 返回調用者的程序名和行號，用於Perl Debugger。 返回值爲三元素的列表： 1、調用處的包名 2、調用者文件名 3、調用處的行號 |
| 例子 | |
| 結果輸出 |
| 函數名 | chroot |
| 調用語法 | chroot (dir); |
| 解說 | 改變程序的根目錄，詳見chroot幫助。 |
| 例子 | |
| 結果輸出 |
| 函數名 | local |
| 調用語法 | local($variable); |
| 解說 | 在語句塊(由大括號包圍的語句集合)中定義局域變量，僅在此語句塊中起作用，對其的改變不對塊外同名變量造成影響。 千萬不要在循環中使用，否則每次循環都定義一個新的局域變量！ |
| 例子 | |
| 結果輸出 |
| 函數名 | times |
| 調用語法 | timelist = times |
| 解說 | 返回該程序及所有子進程消耗的工作時間。 返回值爲四個浮點數的列表： 1、程序耗用的用戶時間 2、程序耗用的系統時間 3、子進程耗用的用戶時間 4、子進程耗用的系統時間 |
| 例子 | |
| 結果輸出 |
| 函數名 | sin |
| 調用語法 | retval = sin (value); |
| 解說 | 參數爲弧度值。 |
| 函數名 | cos |
| 調用語法 | retval = cos (value); |
| 解說 | 參數爲弧度值。 |
| 函數名 | atan2 |
| 調用語法 | retval = atan2 (value1, value2); |
| 解說 | 運算並返回value1除以value2結果的arctan值，單位爲弧度，範圍在-PI~PI。 |
| 應用例： 角度轉化成弧度子程序。 |
sub degrees_to_radians { local ($degrees) = @_; local ($radians);11: $radians = atan2(1,1) * $degrees / 45; } |
| 函數名 | sqrt |
| 調用語法 | retval = sqrt (value); |
| 解說 | 平方根函數。value爲非負數。 |
| 函數名 | exp |
| 調用語法 | retval = exp (value); |
| 解說 | 返回e的value次方。 |
| 函數名 | log |
| 調用語法 | retval = log (value); |
| 解說 | 以e爲底的自然對數。 |
| 函數名 | abs |
| 調用語法 | retval = abs (value); |
| 解說 | 絕對值函數。(Perl 4中沒有) |
| 函數名 | rand |
| 調用語法 | retval = rand (num); |
| 解說 | 隨機數函數，返回0和整數num之間的一個浮點數。 |
| 函數名 | srand |
| 調用語法 | srand (value); |
| 解說 | 初始化隨機數生成器。保證每次調用rand真正隨機。 |
| 函數名 | index |
| 調用語法 | position = index (string, substring, position); |
| 解說 | 返回子串substring在字符串string中的位置，如果不存在則返回-1。參數position是可選項，表示匹配之前跳過的字符數，或者說從該位置開始匹配。 |
| 函數名 | rindex |
| 調用語法 | position = rindex (string, substring, position); |
| 解說 | 與index類似，區別是從右端匹配。 |
| 函數名 | length |
| 調用語法 | num = length (string); |
| 解說 | 返回字符串長度，或者說含有字符的數目。 |
| 函數名 | pos |
| 調用語法 | offset = pos(string); |
| 解說 | 返回最後一次模式匹配的位置。 |
| 函數名 | substr |
| 調用語法 | substr (expr, skipchars, length) |
| 解說 | 抽取字符串（或表達式生成的字符串）expr中的子串，跳過skipchars個字符，或者說從位置skipchars開始抽取子串（第一個字符位置爲0），子串長度爲length，此參數可忽略，意味着取剩下的全部字符。 當此函數出現在等式左邊時，expr必須爲變量或數組元素，此時其中部分子串被等式右邊的值替換。 |
| 函數名 | study |
| 調用語法 | study (scalar); |
| 解說 | 用一種內部格式提高變量的訪問速度，同一時刻只對一個變量起作用。 |
| 函數名 | lc uc |
| 調用語法 | retval = lc(string); retval = uc(string); |
| 解說 | 將字符串全部轉換成小/大寫字母。 |
| 函數名 | lcfirst ucfirst |
| 調用語法 | retval = lcfirst(string); retval = ucfirst(string); |
| 解說 | 將第一個字母轉換成小/大寫。 |
| 函數名 | quotameta |
| 調用語法 | newstring = quotemeta(oldstring); |
| 解說 | 將非單詞的字母前面加上反斜線(/)。 語句 ： $string = quotemeta($string); 等效於：$string =~ s/(/W)///$1/g; 常用於模式匹配操作中，確保字符串中沒有字符被看作匹配操作符。 |
| 函數名 | join |
| 調用語法 | join (joinstr, list); |
| 解說 | 把字符串列表(數組)組合成一個長的字符串，在每兩個列表元素間插入串joinstr。 |
| 函數名 | sprintf |
| 調用語法 | sprintf (string, fields); |
| 解說 | 與printf類似，區別是結果不輸出到文件，而作爲返回值賦給變量。 |
| 例子 | $num = 26; $outstr = sprintf("%d = %x hexadecimal or %o octal/n",$num, $num, $num); print ($outstr); |
| 結果輸出 | 26 = 1a hexadecimal or 32 octal |
| 函數名 | chop |
| 調用語法 | $lastchar = chop (var); |
| 解說 | var可爲變量或數組，當var爲變量時，最後一個字符被刪除並賦給$lastchar，當var爲數組/列表時，所有元素的最後一個字符被刪除，最後一個元素的最後一個字母賦給$lastchar。 |
| 函數名 | chomp |
| 調用語法 | result = chomp(var); |
| 解說 | 檢查字符串或字符串列表中元素的最後一個字符是否爲由系統變量$/定義的行分隔符，如果是就刪除。返回值爲實際刪除的字符個數。 |
| 函數名 | crypt |
| 調用語法 | result = crypt (original, salt); |
| 解說 | 用DES算法加密字符串，original是將要加密的字符串，salt是兩個字符的字符串，定義如何改變DES算法，以使更難解碼。返回值爲加密後的串。 |
| 函數名 | hex |
| 調用語法 | decnum = hex (hexnum); |
| 解說 | 將十六進制數(字符串形式)轉化爲十進制數。 |
| 函數名 | int |
| 調用語法 | intnum = int (floatnum); |
| 解說 | 將浮點數捨去小數部分轉化爲整型數。 |
| 函數名 | oct |
| 調用語法 | decnum = oct (octnum); |
| 解說 | 將八進制數(字符串形式)或十六進制數("0x.."形式)轉化爲十進制數。 |
| 函數名 | ord |
| 調用語法 | asciival = ord (char); |
| 解說 | 返回單個字符的ASCII值，與PASCAL中同名函數類似。 |
| 函數名 | chr |
| 調用語法 | $char = chr (asciival); |
| 解說 | 返回ASCII值的相應字符，與PASCAL中同名函數類似。 |
| 函數名 | pack | ||||||||||||||||||||
| 調用語法 | formatstr = pack(packformat, list); | ||||||||||||||||||||
| 解說 | 把一個列表或數組以在實際機器存貯格式或C等編程語言使用的格式轉化（包裝）到一個簡單變量中。參數packformat包含一個或多個格式字符，列表中每個元素對應一個，各格式字符間可用空格或tab隔開，因爲pack忽略空格。 除了格式a、A和@外，重複使用一種格式多次可在其後加個整數，如： $twoints = pack ("i2", 103, 241); 把同一格式應用於所有的元素則加個*號，如： $manyints = pack ("i*", 14, 26, 11, 83); 對於a和A而言，其後的整數表示要創建的字符串長度，重複方法如下： $strings = pack ("a6" x 2, "test1", "test2"); 格式@的情況比較特殊，其後必須加個整數，該數表示字符串必須的長度，如果長度不夠，則用空字符(null)補足，如： $output = pack ("a @6 a", "test", "test2"); pack函數最常見的用途是創建可與C程序交互的數據，例如C語言中字符串均以空字符(null)結尾，創建這樣的數據可以這樣做： $Cstring = pack ("ax", $mystring); 下表是一些格式字符與C中數據類型的等價關係：
|
| 格式字符 | 描述 |
| a | 用空字符(null)補足的字符串 |
| A | 用空格補足的字符串 |
| b | 位串，低位在前 |
| B | 位串，高位在前 |
| c | 帶符號字符（通常-128~127） |
| C | 無符號字符（通常8位） |
| d | 雙精度浮點數 |
| f | 單精度浮點數 |
| h | 十六進制數串，低位在前 |
| H | 十六進制數串，高位在前 |
| i | 帶符號整數 |
| I | 無符號整數 |
| l | 帶符號長整數 |
| L | 無符號長整數 |
| n | 網絡序短整數 |
| N | 網絡序長整數 |
| p | 字符串指針 |
| s | 帶符號短整數 |
| S | 無符號短整數 |
| u | 轉化成uuencode格式 |
| v | VAX序短整數 |
| V | VAX序長整數 |
| x | 一個空字節 |
| X | 回退一個字節 |
| @ | 以空字節(null)填充 |
| 函數名 | unpack |
| 調用語法 | @list = unpack (packformat, formatstr); |
| 解說 | unpack與pack功能相反，將以機器格式存貯的值轉化成Perl中值的列表。其格式字符與pack基本相同（即上表），不同的有：A格式將機器格式字符串轉化爲Perl字符串並去掉尾部所有空格或空字符；x爲跳過一個字節；@爲跳過一些字節到指定的位置，如@4爲跳過4個字節。下面看一個@和X合同的例子： $longrightint = unpack ("@* X4 L", $packstring); 此語句將最後四個字節看作無符號長整數進行轉化。下面看一個對uuencode文件解碼的例子： 1 : #!/usr/local/bin/perl當將pack和unpack用於uuencode時，要記住，雖然它們與UNIX中的uuencode、uudecode工具算法相同，但並不提供首行和末行，如果想用uudecode對由pack的輸出創建的文件進行解碼，必須也把首行和末行輸出（詳見UNIX中uuencode幫助）。 |
| 函數名 | vec |
| 調用語法 | retval = vec (vector, index, bits); |
| 解說 | 顧名思義，vec即矢量(vector)函數，它把簡單變量vector的值看作多塊(維)數據，每塊含一定數目的位，合起來即一個矢量數據。每次的調用訪問其中一塊數據，可以讀取，也可以寫入。參數index就象數組下標一樣，提出訪問哪一塊，0爲第一塊，依次類推，要注意的是訪問次序是從右到左的，即第一塊在最右邊。參數bits指定每塊中的位數，可以爲1,2,4,8,16或32。 |
| 例子 | 1 : #!/usr/local/bin/perl 2 : 3 : $vector = pack ("B*", "11010011"); 4 : $val1 = vec ($vector, 0, 4); 5 : $val2 = vec ($vector, 1, 4); 6 : print ("high-to-low order values: $val1 and $val2/n"); 7 : $vector = pack ("b*", "11010011"); 8 : $val1 = vec ($vector, 0, 4); 9 : $val2 = vec ($vector, 1, 4); 10: print ("low-to-high order values: $val1 and $val2/n"); |
| 結果 | high-to-low order values: 3 and 13 low-to-high order values: 11 and 12 |
| 函數名 | defined |
| 調用語法 | retval = defined (expr); |
| 解說 | 判斷一個變量、數組或數組的一個元素是否已經被賦值。expr爲變量名、數組名或一個數組元素。 如果已定義，返回真，否則返回假。 |
| 函數名 | undef |
| 調用語法 | retval = undef (expr); |
| 解說 | 取消變量、數組或數組元素甚至子程序的定義，回收其空間。返回值始終爲未定義值，此值與空串等效。 |