<tr>
      <td>d</td>
      <td>雙精度浮點數</td>
    </tr>
    <tr>
      <td>f</td>
      <td>單精度浮點數</td>
    </tr>
    <tr>
      <td>h</td>
      <td>十六進制數串，低位在前</td>
    </tr>
    <tr>
      <td>H</td>
      <td>十六進制數串，高位在前</td>
    </tr>
    <tr>
      <td>i</td>
      <td>帶符號整數</td>
    </tr>
    <tr>
      <td>I</td>
      <td>無符號整數</td>
    </tr>
    <tr>
      <td>l</td>
      <td>帶符號長整數</td>
    </tr>
    <tr>
      <td>L</td>
      <td>無符號長整數</td>
    </tr>
    <tr>
      <td>n</td>
      <td>網絡序短整數</td>
    </tr>
    <tr>
      <td>N</td>
      <td>網絡序長整數</td>
    </tr>
    <tr>
      <td>p</td>
      <td>字符串指針</td>
    </tr>
    <tr>
      <td>s</td>
      <td>帶符號短整數</td>
    </tr>
    <tr>
      <td>S</td>
      <td>無符號短整數</td>
    </tr>
    <tr>
      <td>u</td>
      <td>轉化成uuencode格式</td>
    </tr>
    <tr>
      <td>v</td>
      <td>VAX序短整數</td>
    </tr>
    <tr>
      <td>V</td>
      <td>VAX序長整數</td>
    </tr>
    <tr>
      <td>x</td>
      <td>一個空字節</td>
    </tr>
    <tr>
      <td>X</td>
      <td>回退一個字節</td>
    </tr>
    <tr>
      <td>@</td>
      <td>以空字節(null)填充</td>
    </tr>
</table></p>

<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>unpack</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>@list = unpack (packformat, formatstr);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>unpack與pack功能相反，將以機器格式存貯的值轉化成Perl中值的列表。其格式字符與pack基本相同（即上表），不同的有：A格式將機器格式字符串轉化為Perl字符串并去掉尾部所有空格或空字符；x為跳過一個字節；@為跳過一些字節到指定的位置，如@4為跳過4個字節。下面看一個@和X合同的例子：
&nbsp;&nbsp; $longrightint = unpack ("@* X4 L", $packstring);<br>
&nbsp;&nbsp;此語句將最后四個字節看作無符號長整數進行轉化。下面看一個對uuencode文件解碼的例子：<br>
<blockquote>
1 :  #!/usr/local/bin/perl<br>
2 :  <br>
3 :  open (CODEDFILE, "/u/janedoe/codefile") ||<br>
4 :          die ("Can't open input file");<br>
5 :  open (OUTFILE, "&gt;outfile") ||<br>
6 :          die ("Can't open output file");<br>
7 :  while ($line = &lt;CODEDFILE>) {<br>
8 :          $decoded = unpack("u", $line);<br>
9 :          print OUTFILE ($decoded);<br>
10: }<br>
11: close (OUTFILE);<br>
12: close (CODEDFILE);
</blockquote>
&nbsp;&nbsp;當將pack和unpack用于uuencode時，要記住，雖然它們與UNIX中的uuencode、uudecode工具算法相同，但并不提供首行和末行，如果想用uudecode對由pack的輸出創建的文件進行解碼，必須也把首行和末行輸出（詳見UNIX中uuencode幫助）。<br>
        
        
        </td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>vec</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>retval = vec (vector, index, bits);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>顧名思義，vec即矢量(vector)函數，它把簡單變量vector的值看作多塊(維)數據，每塊含一定數目的位，合起來即一個矢量數據。每次的調用訪問其中一塊數據，可以讀取，也可以寫入。參數index就象數組下標一樣，提出訪問哪一塊，0為第一塊，依次類推，要注意的是訪問次序是從右到左的，即第一塊在最右邊。參數bits指定每塊中的位數，可以為1,2,4,8,16或32。</td>
    </tr>
    <tr>
      <td>例子</td>
      <td>
1 :  #!/usr/local/bin/perl<br>
2 :  <br>
3 :  $vector = pack ("B*", "11010011");<br>
4 :  $val1 = vec ($vector, 0, 4);<br>
5 :  $val2 = vec ($vector, 1, 4);<br>
6 :  print ("high-to-low order values: $val1 and $val2\n");<br>
7 :  $vector = pack ("b*", "11010011");<br>
8 :  $val1 = vec ($vector, 0, 4);<br>
9 :  $val2 = vec ($vector, 1, 4);<br>
10: print ("low-to-high order values: $val1 and $val2\n");

</td>
    </tr>
    <tr>
      <td>結果</td>
      <td>high-to-low order values: 3 and 13<br>low-to-high order values: 11 and 12</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>defined</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>retval = defined (expr);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>判斷一個變量、數組或數組的一個元素是否已經被賦值。expr為變量名、數組名或一個數組元素。<br>如果已定義，返回真，否則返回假。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>undef</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>retval = undef (expr);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>取消變量、數組或數組元素甚至子程序的定義，回收其空間。返回值始終為未定義值，此值與空串等效。</td>
    </tr>
</table></p>
<a name="5">五、數組和列表函數</a><br>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>grep</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>@foundlist = grep (pattern, @searchlist);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>與同名的UNIX查找工具類似，grep函數在列表中抽取與指定模式匹配的元素，參數pattern為欲查找的模式，返回值是匹配元素的列表。</td>
    </tr>
    <tr>
        <td>例子</td>
        <td>@list = ("This", "is", "a", "test");<br>@foundlist = grep(/^[tT]/, @list);</td>
    </tr>
    <tr>
        <td>結果</td>
        <td>@foundlist = ("This", "test");</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>splice</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>@retval = splice (@array, slipelements, length, @newlist);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>&nbsp;&nbsp;拼接函數可以向列表（數組）中間插入元素、刪除子列表或替換子列表。參數skipelements是拼接前跳過的元素數目，length是被替換的元素數，newlist是將要拼接進來的列表。當newlist的長度大于length時，后面的元素自動后移，反之則向前縮進。因此，當length=0時，就相當于向列表中插入元素，而形如語句<br>&nbsp;&nbsp;splice (@array, -1, 0, "Hello");<br>則向數組末尾添加元素。而當newlist為空時就相當于刪除子列表，這時，如果length為空，就從第skipelements個元素后全部刪除，而刪除最后一個元素則為：splice (@array, -1);這種情況下，返回值為被刪去的元素列表。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>shift</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>element = shift (@arrayvar);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>刪去數組第一個元素，剩下元素前移，返回被刪去的元素。不加參數時，缺省地對@ARGV進行操作。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>unshift</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>count = unshift (@arrayver, elements);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>作用與shift相反，在數組arrayvar開頭增加一個或多個元素，返回值為結果(列表)的長度。等價于splice (@array, 0, 0, elements);</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>push</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>push (@arrayvar, elements);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>在數組末尾增加一個或多個元素。等價于slice (@array, @array, 0, elements);</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>pop</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>element = pop (@arrayvar);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>與push作用相反，刪去列表最后一個元素，并將其作為返回值，當列表已空，則返回“未定義值”(即空串)。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>split</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>@list = split (pattern, string, maxlength);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>將字符串分割成一組元素的列表。每匹配一次pattern，就開始一個新元素，但pattern本身不包含在元素中。maxlength是可選項，當指定它時，達到該長度就不再分割。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>sort</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>@sorted = sort (@list);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>按字母次序給列表排序。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>reverse</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>@reversed = reverse (@list);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>按字母反序給列表排序。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>map</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>@resultlist = map (expr, @list);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>此函數在Perl5中定義，可以把列表中的各個元素作為表達式expr的操作數進行運算，其本身不改變，結果作為返回值。在表達式expr中，系統變量$_代表各個元素。</td>
    </tr>
    <tr>
        <td>例子</td>
        <td>1、@list = (100, 200, 300);<br> &nbsp; &nbsp;@results = map ($_+1, @list);<br>2、@results = map (&mysub($_), @list);</td>
    </tr>
    <tr>
        <td>結果</td>
        <td>1、(101, 201, 301)<br>2、無</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>wantarray</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>result = wantarray();</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>Perl中，一些內置函數的行為根據其處理簡單變量還是數組有所不同，如chop。自定義的子程序也可以定義這樣兩種行為。當子程序被期望返回列表時，此函數返回值為非零值(真)，否則為零值(假)。</td>
    </tr>
    <tr>
        <td>例子</td>
        <td>
1 :  #!/usr/local/bin/perl<br>
2 : <br>
3 :  @array = &mysub();<br>
4 :  $scalar = &mysub();<br>
5 :<br>
6 :  sub mysub {<br>
7 :          if (wantarray()) {<br>
8 :                  print ("true\n");<br>
9 :          } else {<br>
10:                 print ("false\n");<br>
11:         }<br>
12: }  
</td>
    </tr>
    <tr>
        <td>結果</td>
        <td>$program<br>true<br>false<br>$</td>
    </tr>
</table></p>

<a name="6">六、關聯數組函數</a><br>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>keys</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>@list = keys (%assoc_array);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>返回關聯數組無序的下標列表。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>values</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>@list = values (%assoc_array);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>返回關聯數組無序的值列表。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>each</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>@pair = each (%assoc_array);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>返回兩個元素的列表--鍵值對（即下標和相應的值），同樣無序。當關聯數組已空，則返回空列表。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>delete</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>element = delete (assoc_array_item);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>刪除關聯數組中的元素，并將其值作為返回值。</td>
    </tr>
    <tr>
        <td>例子</td>
        <td>%array = ("foo", 26, "bar", 17");<br>$retval = delete ($array{"foo"});</td>
    </tr>
    <tr>
        <td>結果</td>
        <td>$retval = 26;</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函數名</td>
        <td>exists</td>
    </tr>
    <tr>
        <td>調用語法</td>
        <td>result = exists (element);</td>
    </tr>
    <tr>
        <td>解說</td>
        <td>在Perl5中定義，判斷關聯數組中是否存在某元素，若存在，返回非零值(真)，否則返回零值(假)。</td>
    </tr>
    <tr>
        <td>例子</td>
        <td>$result = exists ($myarray{$mykey});</td>
    </tr>
</table></p>

<p align="center"><a href="perl14.htm">上一章</a> <a href="index.htm">目錄</a></p>

</body>
</html>