Latest web development tutorials

Perl 特殊變量

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

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

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

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

#!/usr/bin/perl

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

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

Google
w3big
Taobao

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

#!/usr/bin/perl

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

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

Google
w3big
Taobao

實例中,首先輸出"Google" ,接著輸出"w3big" ,最後輸出"Taobao" 。

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

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

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

特殊變量類型

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

  • 全局標量特殊變量。

  • 全局數組特殊變量。

  • 全局哈希特殊變量。

  • 全局特殊文件句柄。

  • 全局特殊常量。

  • 正則表達式特殊變量。

  • 文件句柄特殊變量。

全局標量特殊變量

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

$_ 默認輸入和模式匹配內容。
$ARG
$. 前一次讀的文件句柄的當前行號
$NR
$/ 輸入記錄分隔符,默認是新行字符。 如用undef這個變量,將讀到文件結尾。
$RS
$, 輸出域分隔符
$OFS
$\ 輸出記錄分隔符
$ORS
$" 該變量同$,類似,但應用於向雙引號引起的字符串(或類似的內插字符串)中內插數組和切片值的場合。 默認為一個空格。
$LIST_SEPARATOR
$; 在仿真多維數組時使用的分隔符。 默認為"\034"。
$SUBSCRIPT_SEPARATOR
$^L 發送到輸出通道的走紙換頁符。 默認為"\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 打印前用於保存格式化數據的變量
$ACCUMULATOR
$# 打印數字時默認的數字輸出格式(已廢棄)。
$OFMT
$? 返回上一個外部命令的狀態
$CHILD_ERROR
$! 這個變量的數字值是errno的值,字符串值是對應的系統錯誤字符串
$OS_ERROR or $ERRNO
[email protected] 命令eval的錯誤消息.如果為空,則表示上一次eval命令執行成功
$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 包含正在執行的腳本的文件名
$PROGRAM_NAME
$[ 數組的數組第一個元素的下標,默認是0。
$] Perl的版本號
$PERL_VERSION
$^D 調試標誌的值
$DEBUGGING
$^E 在非UNIX環境中的操作系統擴展錯誤信息
$EXTENDED_OS_ERROR
$^F 最大的文件捆述符數值
$SYSTEM_FD_MAX
$^H 由編譯器激活的語法檢查狀態
$^I 內置控制編輯器的值
$INPLACE_EDIT
$^M 備用內存池的大小
$^O 操作系統名
$OSNAME
$^P 指定當前調試值的內部變量
$PERLDB
$^T 從新世紀開始算起,腳步本以秒計算的開始運行的時間
$BASETIME
$^W 警告開關的當前值
$WARNING
$^X Perl二進制可執行代碼的名字
$EXECUTABLE_NAME
$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

$+

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

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

$LAST_PAREN_MATCH

文件句柄特殊變量

$|

如果設置為零,在每次調用函數write或print後,自動調用函數fflush,將所寫內容寫回文件

$OUTPUT_AUTOFLUSH

$%

當前輸出頁號

$FORMAT_PAGE_NUMBER

$=

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

$FORMAT_LINES_PER_PAGE

$-

當前頁剩餘的行數

$FORMAT_LINES_LEFT

$~

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

$FORMAT_NAME

$^

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

$FORMAT_TOP_NAME