從 Perl 如何處理物件的角度解釋了三個主要術語。這些術語是物件、類和方法。Perl 中的**物件**僅僅是對知道其所屬類的某種資料型別的引用。物件作為標量變數中的引用儲存。因為標量只包含對物件的引用，所以同一個標量可以在不同的類中儲存不同的物件。Perl 中的**類**是一個包含建立和操作物件所需相應方法的包。Perl 中的**方法**是一個用包定義的子例程。第一個引數為…… 閱讀更多

如果您想使用 Perl 傳送帶有附件的電子郵件，則以下指令碼可以實現此目的 −#!/usr/bin/perl use MIME::Lite; $to = 'abcd@gmail.com'; $cc = 'efgh@mail.com'; $from = 'webmaster@yourdomain.com'; $subject = '測試郵件'; $message = '這是 Perl 指令碼傳送的測試郵件'; $msg = MIME::Lite-=>new(    From => $from,    To => $to,    Cc => $cc,    Subject => $subject,    Type => 'multipart/mixed' ); # 新增文字訊息。 $msg->attach(    Type => 'text',    Data => $message ); # 指定檔案作為附件。 $msg->attach(Type => 'image/gif',    Path => '/tmp/logo.gif',    Filename => 'logo.gif', ... 閱讀更多

如果您想使用 sendmail 傳送 HTML 格式的電子郵件，則只需在電子郵件的標題部分新增 Content-type: text/html，如下所示 −#!/usr/bin/perl $to = 'abcd@gmail.com'; $from = 'webmaster@yourdomain.com'; $subject = '測試郵件'; $message = '這是 Perl 指令碼傳送的測試郵件'; open(MAIL, "|/usr/sbin/sendmail -t"); # 電子郵件標題 print MAIL "To: $to"; print MAIL "From: $from"; print MAIL "Subject: $subject"; print MAIL "Content-type: text/html"; # 電子郵件正文 print MAIL $message; close(MAIL); print "郵件傳送成功";

如果您在 Linux/Unix 機器上工作，則可以在 Perl 程式中簡單地使用 sendmail 實用程式來發送電子郵件。這是一個可以將電子郵件傳送到給定電子郵件 ID 的示例指令碼。只需確保 sendmail 實用程式的給定路徑正確即可。這在您的 Linux/Unix 機器上可能有所不同。#!/usr/bin/perl $to = 'abcd@gmail.com'; $from = 'webmaster@yourdomain.com'; $subject = '測試郵件'; $message = '這是 Perl 指令碼傳送的測試郵件'; open(MAIL, "|/usr/sbin/sendmail -t"); # 電子郵件標題 print MAIL "To: $to"; print MAIL "From: $from"; print MAIL "Subject: $subject"; # 電子郵件正文 print MAIL $message; close(MAIL); ... 閱讀更多

Perl 中的 \G 斷言允許您從上次匹配發生的位置繼續搜尋。例如，在以下程式碼中，我們使用了 \G，以便我們可以搜尋到正確的位置，然後提取一些資訊，而無需建立更復雜的單個正則表示式 −示例 即時演示 #!/usr/bin/perl $string = "時間是：12:31:02，日期是 4/12/00"; $string =~ /:\s+/g; ($time) = ($string =~ /\G(\d+:\d+:\d+)/); $string =~ /.+\s+/g; ($date) = ($string =~ m{\G(\d+/\d+/\d+)}); print "時間：$time，日期：$date";當執行上述程式時，它會產生以下結果 −時間：12:31:02，日期：4/12/00\G 斷言是…… 閱讀更多

從 Perl 中正則表示式的角度來看，以下兩個表示式之間沒有區別，只是前者稍微清晰一些。$string =~ /(\S+)\s+(\S+)/; 和 $string =~ /\S+\s+\S+/;但是，分組的好處是它允許我們從正則表示式中提取序列。分組按其在原始表示式中出現的順序返回為列表。例如，在以下片段中，我們從字串中提取了小時、分鐘和秒。my ($hours, $minutes, $seconds) = ($time =~ m/(\d+):(\d+):(\d+)/);除了這種直接方法外，匹配的分組也可以在…… 閱讀更多

Perl 中的匹配邊界 \b 在 Perl 中的任何單詞邊界處匹配，由 \w 類和 \W 類之間的差異定義。因為 \w 包括單詞的字元，而 \W 包括相反的字元，所以這通常意味著單詞的終止。\B 斷言匹配任何不是單詞邊界的位置。例如 −/\bcat\b/ # 匹配 'the cat sat' 但不匹配 'cat on the mat' /\Bcat\B/ # 匹配 'verification' 但不匹配 'the cat on the mat' /\bcat\B/ # 匹配 'catatonic' 但不匹配 'polecat' /\Bcat\b/ # 匹配 'polecat' 但不匹配 'catatonic'Perl 中的選擇備選方案 | 字元就像…… 閱讀更多

轉換類似於 Perl 中的替換原則，但並不完全相同，但與替換不同，轉換（或音譯）不使用正則表示式來搜尋替換值。轉換運算子為 −tr/SEARCHLIST/REPLACEMENTLIST/cds y/SEARCHLIST/REPLACEMENTLIST/cds轉換將 SEARCHLIST 中字元的所有出現替換為 REPLACEMENTLIST 中對應的字元。例如，使用我們在本章中一直使用的字串 "The cat sat on the mat." −示例 即時演示 #/user/bin/perl $string = 'The cat sat on the mat'; $string =~ tr/a/o/; print "$string";當執行上述程式時，它會產生以下結果 −The cot sot on the mot.標準 Perl…… 閱讀更多

Perl 中的替換運算子 s/// 實際上只是匹配運算子的擴充套件，它允許您將匹配的文字替換為一些新文字。運算子的基本形式為 −s/PATTERN/REPLACEMENT/;PATTERN 是我們要查詢的文字的正則表示式。REPLACEMENT 是我們要用來替換找到的文字的文字或正則表示式的規範。例如，我們可以使用以下正則表示式將所有出現的 dog 替換為 cat −示例 即時演示 #/user/bin/perl $string = "The cat sat on the mat"; $string =~ s/cat/dog/; print "$string";當執行上述程式…… 閱讀更多

Perl 中有一個更簡單的匹配運算子 - ?PATTERN? 運算子。這與 m// 運算子基本相同，只是它只在每次呼叫重置之間的搜尋字串中匹配一次。例如，您可以使用它來獲取列表中的第一個和最後一個元素 −示例 即時演示 #!/usr/bin/perl @list = qw/food foosball subeo footnote terfoot canic footbrdige/; foreach (@list) {    $first = $1 if /(foo.*?)/;    $last = $1 if /(foo.*)/; } print "第一個：$first，最後一個：$last";當執行上述程式時，它會產生以下結果 −第一個：foo，最後一個：footbrdige