- Perl 基礎
- Perl - 首頁
- Perl - 簡介
- Perl - 環境
- Perl - 語法概述
- Perl - 資料型別
- Perl - 變數
- Perl - 標量
- Perl - 陣列
- Perl - 雜湊
- Perl - IF...ELSE
- Perl - 迴圈
- Perl - 運算子
- Perl - 日期和時間
- Perl - 子例程
- Perl - 引用
- Perl - 格式
- Perl - 檔案 I/O
- Perl - 目錄
- Perl - 錯誤處理
- Perl - 特殊變數
- Perl - 編碼標準
- Perl - 正則表示式
- Perl - 傳送電子郵件
- Perl 高階
- Perl - 套接字程式設計
- Perl - 面向物件
- Perl - 資料庫訪問
- Perl - CGI 程式設計
- Perl - 包和模組
- Perl - 程序管理
- Perl - 嵌入式文件
- Perl - 函式引用
- Perl 有用資源
- Perl - 問題和答案
- Perl - 快速指南
- Perl - 實用資源
- Perl - 討論
Perl vec 函式
描述
此函式將指定的字串 EXPR 用作無符號整數的向量。NUMBITS 引數是每條位向量中每個條目保留的位數。
這必須是 1 到 32 之間的 2 的冪。請注意,偏移是向量末尾的標記,它倒數指定的位數來查詢起點。向量可以透過邏輯位運算子 |、& 和 ^ 進行處理。
語法
以下是此函式的簡單語法 −
vec EXPR, OFFSET, BITS
返回值
此函式返回 OFFSET 指定的位欄位的值。
示例
以下是顯示其基本用法的示例程式碼 −
#!/usr/bin/perl -w
$vec = '';
vec($vec, 3, 4) = 1; # bits 0 to 3
vec($vec, 7, 4) = 10; # bits 4 to 7
vec($vec, 11, 4) = 3; # bits 8 to 11
vec($vec, 15, 4) = 15; # bits 12 to 15
# As there are 4 bits per number this can
# be decoded by unpack() as a hex number
print("vec() Has a created a string of nybbles, in hex: ", unpack("h*", $vec), "\n");
當執行以上程式碼時,它會產生以下結果 −
vec() Has a created a string of nybbles, in hex: 0001000a0003000f
perl_function_references.htm
廣告