Perl 特殊變量

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

很多特殊的變量有一個很長的英文名，操作系統(tǒng)變量 $! 可以寫為 $OS_ERROR。

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

最常用的特殊變量為 $_，該變量包含了默認輸入和模式匹配內(nèi)容。實例如下：

#!/usr/bin/perl

foreach ('Google','W3CSchool','Taobao') {
	print $_;
	print "\n";
}

執(zhí)行以上程序，輸出結(jié)果為：

Google
W3CSchool
Taobao

以下實例我們不使用 $_ 來輸出內(nèi)容：

#!/usr/bin/perl

foreach ('Google','W3CSchool','Taobao') {
	print;
	print "\n";
}

執(zhí)行以上程序，輸出結(jié)果為：

Google
W3CSchool
Taobao

實例中，首先輸出 "Google" ，接著輸出 "W3CSchool" ，最后輸出 "Taobao" 。

在迭代循環(huán)中，當前循環(huán)的字符串會放在 $_ 中, 然后 通過 print 輸出。另外 print 在不指定輸出變量，默認情況下使用的也是 $_。

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

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

特殊變量類型

根據(jù)特殊的變量的使用性質(zhì)，可以分為以下幾類：

  • 全局標量特殊變量。

  • 全局數(shù)組特殊變量。

  • 全局哈希特殊變量。

  • 全局特殊文件句柄。

  • 全局特殊常量。

  • 正則表達式特殊變量。

  • 文件句柄特殊變量。

全局標量特殊變量

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

$_ 默認輸入和模式匹配內(nèi)容。
$ARG
$. 前一次讀的文件句柄的當前行號
$NR
$/ 輸入記錄分隔符,默認是新行字符。如用undef這個變量,將讀到文件結(jié)尾。
$RS
$, 輸出域分隔符
$OFS
$\ 輸出記錄分隔符
$ORS
$" 該變量同 $,類似，但應用于向雙引號引起的字符串(或類似的內(nèi)插字符串)中內(nèi)插數(shù)組和切片值的場合。默認為一個空格。
$LIST_SEPARATOR
$; 在仿真多維數(shù)組時使用的分隔符。默認為 "\034"。
$SUBSCRIPT_SEPARATOR
$^L 發(fā)送到輸出通道的走紙換頁符。默認為 "\f".
$FORMAT_FORMFEED
$: The current set of characters after which a string may be broken to fill continuation fields (starting with ^) in a format. Default is "\n"".
$FORMAT_LINE_BREAK_CHARACTERS
$^A 打印前用于保存格式化數(shù)據(jù)的變量
$ACCUMULATOR
$# 打印數(shù)字時默認的數(shù)字輸出格式（已廢棄）。
$OFMT
$? 返回上一個外部命令的狀態(tài)
$CHILD_ERROR
$! 這個變量的數(shù)字值是errno的值,字符串值是對應的系統(tǒng)錯誤字符串
$OS_ERROR or $ERRNO
$@ 命令eval的錯誤消息.如果為空,則表示上一次eval命令執(zhí)行成功
$EVAL_ERROR
$$ 運行當前Perl腳本程序的進程號
$PROCESS_ID or $PID
$< 當前進程的實際用戶號
$REAL_USER_ID or $UID
$> 當前進程的有效用戶號
$EFFECTIVE_USER_ID or $EUID
$( 當前進程的實際組用戶號
$REAL_GROUP_ID or $GID
$) 當前進程的有效組用戶號
$EFFECTIVE_GROUP_ID or $EGID
$0 包含正在執(zhí)行的腳本的文件名
$PROGRAM_NAME
$[ 數(shù)組的數(shù)組第一個元素的下標,默認是 0。
$] Perl的版本號
$PERL_VERSION
$^D 調(diào)試標志的值
$DEBUGGING
$^E 在非UNIX環(huán)境中的操作系統(tǒng)擴展錯誤信息
$EXTENDED_OS_ERROR
$^F 最大的文件捆述符數(shù)值
$SYSTEM_FD_MAX
$^H 由編譯器激活的語法檢查狀態(tài)
$^I 內(nèi)置控制編輯器的值
$INPLACE_EDIT
$^M 備用內(nèi)存池的大小
$^O 操作系統(tǒng)名
$OSNAME
$^P 指定當前調(diào)試值的內(nèi)部變量
$PERLDB
$^T 從新世紀開始算起,腳步本以秒計算的開始運行的時間
$BASETIME
$^W 警告開關的當前值
$WARNING
$^X Perl二進制可執(zhí)行代碼的名字
$EXECUTABLE_NAME
$ARGV 從默認的文件句柄中讀取時的當前文件名

全局數(shù)組特殊變量

@ARGV 傳給腳本的命令行參數(shù)列表
@INC 在導入模塊時需要搜索的目錄列表
@F 命令行的數(shù)組輸入

全局哈希特殊變量

%INC

 散列表%INC包含所有用do或require語句包含的文件.關鍵字是文件名,值是這個文件的路徑

%ENV

 包含當前環(huán)境變量

%SIG

 信號列表及其處理方式

全局特殊文件句柄

ARGV

 遍歷數(shù)組變量@ARGV中的所有文件名的特殊文件句柄

STDERR

 標準錯誤輸出句柄

STDIN

 標準輸入句柄

STDOUT

 標準輸出句柄

DATA

 特殊文件句柄引用了在文件中 __END__ 標志后的任何內(nèi)容包含腳本內(nèi)容?；蛘咭靡粋€包含文件中__DATA__ 標志后的所有內(nèi)容，只要你在同一個包有讀取數(shù)據(jù)，__DATA__ 就存在。

_ (下劃線)

 特殊的文件句柄用于緩存文件信息(fstat、stat和lstat)。

全局特殊常量

__END__

 腳本的邏輯結(jié)束，忽略后面的文本。

__FILE__

 當前文件名

__LINE__

 當前行號

__PACKAGE__

 當前包名，默認的包名是main。

正則表達式特殊變量

$n

 包含上次模式匹配的第n個子串

$&

 前一次成功模式匹配的字符串

$MATCH

$`

 前次匹配成功的子串之前的內(nèi)容

$PREMATCH

$'

 前次匹配成功的子串之后的內(nèi)容

$POSTMATCH

$+

與上個正則表達式搜索格式匹配的最后一個括號。例如：

/Version: (.*)|Revision: (.*)/ && ($rev = $+);

$LAST_PAREN_MATCH

文件句柄特殊變量

$|

 如果設置為零,在每次調(diào)用函數(shù)write或print后，自動調(diào)用函數(shù)fflush,將所寫內(nèi)容寫回文件

$OUTPUT_AUTOFLUSH

$%

 當前輸出頁號

$FORMAT_PAGE_NUMBER

$=

 當前每頁長度。默認為 60。

$FORMAT_LINES_PER_PAGE

$-

 當前頁剩余的行數(shù)

$FORMAT_LINES_LEFT

$~

 當前報表輸出格式的名稱。默認值是文件句柄名。

$FORMAT_NAME

$^

 當前報表輸出表頭格式的名稱。默認值是帶后綴"_TOP"的文件句柄名。

$FORMAT_TOP_NAME