Like Share Discussion Bookmark Smile

J.J. Huang   2021-06-08   Perl   瀏覽次數:

Perl - 第十八章 | Perl 特殊變量

Perl 語言中定義了一些特殊的變量,通常以 $, @, 或 % 作為前綴,例如:$_。

很多特殊的變量有一個很長的英文名,操作系統變量 $! 可以寫為 $OS_ERROR

如果你想使用英文名的特殊變量需要在程序頭部添加 use English;。這樣就可以使用具有描述性的英文特殊變量。

最常用的特殊變量為 $_,該變量包含了預設輸入和模式匹配內容。範例如下:

1
2
3
4
5
6
#!/usr/bin/perl

foreach ('Google','MoroseDog','GitLab') {
print $_;
print "\n";
}

執行以上程序,輸出結果為:

1
2
3
Google
MoroseDog
GitLab

以下範例我們不使用 $_ 來輸出內容:

1
2
3
4
5
6
#!/usr/bin/perl

foreach ('Google','MoroseDog','GitLab') {
print;
print "\n";
}

執行以上程序,輸出結果為:

1
2
3
Google
MoroseDog
GitLab

範例中,首先輸出 “Google” ,接著輸出 “MoroseDog” ,最後輸出 “GitLab”。

在迭代循環中,當前循環的字符串會放在 $_ 中, 然後 通過 print 輸出。另外 print 在不指定輸出變量,預設情況下使用的也是 $_。

以下是幾處即使沒有寫明 Perl 也會假定使用 $_ 的地方:

  • 各種單目函數,包括像 ord() 和 int() 這樣的函數以及除 “-t”以外所有的文件 測試操作 (“-f”,”-d”),”-t” 預設操作 STDIN。
  • 各種列表函數,例如 print() 和 unlink()。
  • 沒有使用 “=~” 運算符時的模式匹配操作 “m//“、”s///“ 和”tr///“。
  • 在沒有給出其他變量時是 “foreach” 循環的預設迭代變量。
  • grep() 和 map() 函數的隱含迭代變量。
  • 當 “while” 僅有唯一條件,且該條件是對 “”操作的結果進行測試時,$_ 就是存放輸入記錄的預設位置。除了”while” 測試條件之外不會發生這種情況。 (註記:下劃線在特定操作中是可以省略的。)

特殊變量類型

根據特殊的變量的使用性質,可以分為以下幾類:

  • 全局標量特殊變量。
  • 全局數組特殊變量。
  • 全局哈希特殊變量。
  • 全局特殊文件句柄。
  • 全局特殊常量。
  • 正則表達式特殊變量。
  • 文件句柄特殊變量。

全局標量特殊變量

以下列出了所有的標量特殊變量,包含了特殊字符與英文形式的變量:

特殊字符/英文形式 說明
$_
$ARG
預設輸入和模式匹配內容。
$.
$NR
前一次讀的文件句柄的當前行號
$/
$RS
輸入記錄分隔符,預設是新行字符。如用undef這個變量,將讀到文件結尾。
$,
$OFS
輸出域分隔符
$\
$ORS
輸出記錄分隔符
$”
$LIST_SEPARATOR
該變量同 $,類似,但應用於向雙引號引起的字符串(或類似的內插字符串)中內插數組和切片值的場合。預設為一個空格。
$;
$SUBSCRIPT_SEPARATOR
在仿真多維數組時使用的分隔符。預設為 “\034”。
$^L
$FORMAT_FORMFEED
發送到輸出通道的走紙換頁符。預設為 “\f”.
$:
$FORMAT_LINE_BREAK_CHARACTERS
當前字符集,在該字符之後字符串可能會被打斷以填充格式中的延續字段(以 ^ 開頭)。預設值為“\n””。
$^A
$ACCUMULATOR
打印前用於保存格式化資料的變量
$#
$OFMT
打印數字時預設的數字輸出格式(已廢棄)。
$?
$CHILD_ERROR
返回上一個外部命令的狀態
$!
$OS_ERROR or $ERRNO
這個變量的數字值是errno的值,字符串值是對應的系統錯誤字符串
$@
$EVAL_ERROR
命令eval的錯誤消息.如果為空,則表示上一次eval命令執行成功
$$
$PROCESS_ID or $PID
運行當前Perl腳本程序的進程號
$<
$REAL_USER_ID or $UID
當前進程的實際用戶號
$>
$REAL_GROUP_ID or $GID
當前進程的有效用戶號
$(
$REAL_GROUP_ID or $GID
當前進程的實際組用戶號
$)
$EFFECTIVE_GROUP_ID or $EGID
當前進程的有效組用戶號
$0
$PROGRAM_NAME
包含正在執行的腳本的文件名
$[ 數組的數組第一個元素的下標,預設是 0。
$]
$PERL_VERSION
Perl的版本號
$^D
$DEBUGGING
調試標誌的值
$^E
$EXTENDED_OS_ERROR
在非UNIX環境中的操作系統擴展錯誤信息
$^F
$SYSTEM_FD_MAX
最大的文件捆述符數值
$^H 由編譯器激活的語法檢查狀態
$^I
$INPLACE_EDIT
內置控制編輯器的值
$^M 備用內存池的大小
$^O
$OSNAME
操作系統名
$^P
$PERLDB
指定當前調試值的內部變量
$^T
$BASETIME
從新世紀開始算起,腳步本以秒計算的開始運行的時間
$^W
$WARNING
警告開關的當前值
$^X
$EXECUTABLE_NAME
Perl二進制可執行程式碼的名字
$ARGV 從預設的文件句柄中讀取時的當前文件名

全局數組特殊變量

特殊字符/英文形式 說明
@ARGV 傳給腳本的命令行參數列表
@INC 在導入模組時需要搜索的目錄列表
@F 命令行的數組輸入

全局哈希特殊變量

特殊字符/英文形式 說明
%INC 散列表%INC包含所有用do或require語句包含的文件.關鍵字是文件名,值是這個文件的路徑
%ENV 包含當前環境變量
%SIG 信號列表及其處理方式

全局特殊文件句柄

特殊字符/英文形式 說明
ARGV 遍歷數組變量@ARGV中的所有文件名的特殊文件句柄
STDERR 標準錯誤輸出句柄
STDIN 標準輸入句柄
STDOUT 標準輸出句柄
DATA 特殊文件句柄引用了在文件中 __END__ 標誌後的任何內容包含腳本內容。或者引用一個包含文件中__DATA__ 標誌後的所有內容,只要你在同一個包有讀取資料,__DATA__ 就存在。
_ (下劃線) 特殊的文件句柄用於緩存文件信息(fstat、stat和lstat)。

全局特殊常量

特殊字符/英文形式 說明
__END__ 腳本的邏輯結束,忽略後面的文本。
__FILE__ 當前文件名
__LINE__ 當前行號
__PACKAGE__ 當前包名,預設的包名是main。

正則表達式特殊變量

特殊字符/英文形式 說明
$n 包含上次模式匹配的第n個子串
$&
$MATCH
前一次成功模式匹配的字符串
$`
$PREMATCH
前次匹配成功的子串之前的內容
$’
$POSTMATCH
前次匹配成功的子串之後的內容
$+
$LAST_PAREN_MATCH
與上個正則表達式搜索格式匹配的最後一個括號。例如:
/Version: (.\*)|Revision: (.*)\/ \&\& ($rev = $+);

文件句柄特殊變量

特殊字符/英文形式 說明
$|
$OUTPUT_AUTOFLUSH
如果設置為非零,則在當前選定的輸出通道上每次寫入或打印後強制執行 fflush(3)。
$%
$FORMAT_PAGE_NUMBER
當前選擇的輸出通道的當前頁碼。
$=
$FORMAT_LINES_PER_PAGE
當前所選輸出通道的當前頁面長度(可打印行)。預設值為60。
$-
$FORMAT_LINES_LEFT
當前所選輸出通道的頁面上剩餘的行數。
$~
$FORMAT_NAME
當前選定輸出通道的當前報告格式的名稱。 預設是文件句柄的名稱。
$^
$FORMAT_TOP_NAME
當前所選輸出通道的當前頁首格式的名稱。 預設是附加了 _TOP 的文件句柄的名稱。

註:以上參考了
Tutorialspoint, Perl - Special Variables