Perl 中有各種正則表示式特殊變數。我們已在下面的表格中列出了它們：$digit 包含上次匹配模式中相應括號集匹配的文字。例如，$1 匹配先前正則表示式中第一組括號中包含的內容。$& 上次成功模式匹配匹配的字串。$MATCH $` 上次成功模式匹配之前匹配的字串。$PREMATCH $' 上次成功模式匹配之後匹配的字串。$POSTMATCH $+ 上次搜尋模式匹配的最後一個括號。如果您不知道哪個… 閱讀更多

Perl 中有各種全域性特殊變數。我們根據其用法和性質將它們列在不同的塊中：全域性陣列特殊變數 @ARGV 包含為指令碼設計的命令列引數的陣列。@INC 包含要由 do、require 或 use 構造查詢的 Perl 指令碼列表的位置的陣列。@F 當給出 -a 命令列開關時，輸入行被分割到的陣列。全域性雜湊特殊變數 %INC 包含透過 do 或 require 包含的每個檔案的檔名條目。%ENV 包含您當前環境的雜湊。%SIG 用於設定訊號的雜湊… 閱讀更多

Perl 中的 confess 函式類似於 cluck；它呼叫 die，然後列印一直到源指令碼的堆疊跟蹤。package T; require Exporter; @ISA = qw/Exporter/; @EXPORT = qw/function/; use Carp; sub function {    confess "Error in module!"; } 1;當從如下所示的指令碼呼叫時：use T; function();它將產生以下結果：Error in module! at T.pm line 9    T::function() called at test.pl line 4

Perl 中的 croak 函式等效於 die，只是它向上報告呼叫者一級。與 die 一樣，此函式還在向 STDERR 報告錯誤後退出指令碼：package T; require Exporter; @ISA = qw/Exporter/; @EXPORT = qw/function/; use Carp; sub function {    croak "Error in module!"; } 1;當從如下所示的指令碼呼叫時：use T; function();它將產生以下結果：Error in module! at test.pl line 4與 carp 一樣，關於根據 warn 和 die 函式包含行和檔案資訊的相同基本規則適用。

Perl 中的 cluck 函式是一種增強的 carp，它遵循相同的基本原理，但也列印導致呼叫該函式的所有模組的堆疊跟蹤，包括原始指令碼的資訊。package T; require Exporter; @ISA = qw/Exporter/; @EXPORT = qw/function/; use Carp qw(cluck); sub function {    cluck "Error in module!"; } 1;當從如下所示的指令碼呼叫時：use T; function();它將產生以下結果：Error in module! at T.pm line 9    T::function() called at test.pl line 4

Perl 中的 carp 函式是 warn 的基本等效項，它將訊息列印到 STDERR，而不會實際退出指令碼並列印指令碼名稱。package T; require Exporter; @ISA = qw/Exporter/; @EXPORT = qw/function/; use Carp; sub function {    carp "Error in module!"; } 1;當從如下所示的指令碼呼叫時：use T; function();它將產生以下結果：Error in module! at test.pl line 4

使用 Perl 程式設計時，我們應該能夠處理兩種不同的情況：報告模組中的錯誤，該錯誤引用模組的檔名和行號 - 這在除錯模組時很有用，或者當您特別想要引發與模組相關的錯誤而不是與指令碼相關的錯誤時。報告模組中引用的呼叫者資訊的錯誤，以便您可以除錯導致錯誤的指令碼中的行。以這種方式引發的錯誤對終端使用者很有用，因為它們突出了與呼叫指令碼的源行相關的錯誤。warn 和 die… 閱讀更多

Perl 中的 unless 函式與 if 邏輯相反：語句可以完全繞過成功狀態，並且僅在表示式返回 false 時才執行。例如：unless(chdir("/etc")) {    die "Error: Can't change directory - $!"; }unless 語句最適合在只想在表示式失敗時引發錯誤或備選方案時使用。該語句在單行語句中使用時也很有意義：die "Error: Can't change directory!: $!" unless(chdir("/etc"));這裡，只有在 chdir 操作失敗時我們才會 die。die 函式die 函式的工作方式與 warn 相同，只是它還會呼叫 exit。在… 閱讀更多

您可以使用 Perl 中的 mkdir 函式來建立一個新目錄。您需要具有建立目錄的必要許可權。#!/usr/bin/perl $dir = "/tmp/perl"; # 這會在 /tmp 目錄中建立 perl 目錄。 mkdir( $dir ) or die "Couldn't create $dir directory, $!"; print "Directory created successfully";刪除目錄您可以使用 Perl 中的 rmdir 函式刪除目錄。您需要具有刪除目錄的必要許可權。此外，在嘗試刪除目錄之前，該目錄應該是空的。#!/usr/bin/perl $dir = "/tmp/perl"; # 這會從 /tmp 目錄中刪除 perl 目錄。 rmdir( $dir ) or die "Couldn't ... 閱讀更多

有多種方法可以使用 Perl 列出特定目錄中可用的所有檔案。首先，讓我們使用簡單的方法來獲取並列出使用 glob 運算子的所有檔案：#!/usr/bin/perl # 顯示 /tmp 目錄中的所有檔案。 $dir = "/tmp/*"; my @files = glob( $dir ); foreach (@files ) {    print $_ . ""; } # 顯示 /tmp 目錄中的所有 C 原始檔。 $dir = "/tmp/*.c"; @files = glob( $dir ); foreach (@files ) {    print $_ . ""; } # 顯示所有隱藏檔案。 $dir = "/tmp/.*"; @files ... 閱讀更多