如果你想使用 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 = "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 "第一次匹配";    } else {    print "第一次不匹配"; } $bar = "foo"; if ($bar =~ /foo/) {    print "第二次匹配";    } else {    print "第二次不匹配"; } 當上述程式執行時，... 閱讀更多

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