如果您想使用 sendmail 傳送 HTML 格式的電子郵件，則只需在電子郵件的頭部新增 Content-type: text/html，如下所示：#!/usr/bin/perl $to = 'abcd@gmail.com'; $from = 'webmaster@yourdomain.com'; $subject = 'Test Email'; $message = 'This is test email sent by Perl Script'; 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 "Email Sent Successfully";

如果您在 Linux/Unix 機器上工作，則可以在 Perl 程式中簡單地使用 sendmail 實用程式來發送電子郵件。以下是一個示例指令碼，可以將電子郵件傳送到給定的電子郵件 ID。請確保 sendmail 實用程式的給定路徑是正確的。這在您的 Linux/Unix 機器上可能有所不同。#!/usr/bin/perl $to = 'abcd@gmail.com'; $from = 'webmaster@yourdomain.com'; $subject = 'Test Email'; $message = 'This is test email sent by Perl Script'; 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 = "The time is: 12:31:02 on 4/12/00"; $string =~ /:\s+/g; ($time) = ($string =~ /\G(\d+:\d+:\d+)/); $string =~ /.+\s+/g; ($date) = ($string =~ m{\G(\d+/\d+/\d+)}); print "Time: $time, Date: $date"; 當以上程式執行時，它會產生以下結果 - Time: 12:31:02, Date: 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: $first, Last: $last"; 當以上程式執行時，它會產生以下結果 - First: foo, Last: footbrdige

Perl 中的匹配運算子 m// 用於將字串或語句與正則表示式匹配。例如，要將字元序列“foo”與標量 $bar 匹配，您可以使用如下語句 - 示例 即時演示 #!/usr/bin/perl $bar = "This is foo and again foo"; if ($bar =~ /foo/) {    print "First time is matching";    } else {    print "First time is not matching"; } $bar = "foo"; if ($bar =~ /foo/) {    print "Second time is matching";    } else {    print "Second time is not matching"; } 當以上程式執行時， ... 閱讀更多

Perl 中有各種與檔案控制代碼相關的特殊變數。我們在下面以表格形式列出了它們。$| 如果設定為非零，則在當前選定的輸出通道上的每次寫入或列印後強制執行 fflush(3)。$OUTPUT_AUTOFLUSH$% 當前選定輸出通道的當前頁碼。$FORMAT_PAGE_NUMBER$= 當前選定輸出通道的當前頁面長度（可列印行）。預設為 60。$FORMAT_LINES_PER_PAGE$- 當前選定輸出通道的頁面上剩餘的行數 $FORMAT_LINES_LEFT$~ 當前選定輸出通道的當前報表格式的名稱。預設為檔案控制代碼的名稱。$FORMAT_NAME$^ 當前選定輸出通道的當前頁面頂部的格式的名稱。 ... 閱讀更多