這是一個簡單的 URL，它使用 GET 方法將兩個值傳遞給 hello_get.cgi 程式。https://tutorialspoint.tw/cgi-bin/hello_get.cgi?first_name=ZARA&last_name=ALI以下是 hello_get.cgi 指令碼，用於處理 Web 瀏覽器提供的輸入。#!/usr/bin/perl local ($buffer, @pairs, $pair, $name, $value, %FORM); # 讀取文字 $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/; if ($ENV{'REQUEST_METHOD'} eq "GET") {    $buffer = $ENV{'QUERY_STRING'}; } # 將資訊拆分為名稱/值對 @pairs = split(/&/, $buffer); foreach $pair (@pairs) {    ($name, $value) = split(/=/, $pair);    $value =~ tr/+/ /;    $value =~ s/%(..)/pack("C", hex($1))/eg;    $FORM{$name} = $value; } $first_name = $FORM{first_name}; $last_name = $FORM{last_name}; print "Content-type:text/html\r\r"; print ""; print ""; print "Hello - Second CGI ... 閱讀更多

有時，您可能希望提供一個選項，使用者單擊連結後會彈出一個“檔案下載”對話方塊，而不是顯示實際內容。這非常簡單，可以透過使用 Perl 指令碼的 HTTP 標頭來實現。此 HTTP 標頭將與上一節中提到的標頭不同。例如，如果您想使 FileName 檔案可從給定連結下載，則其語法如下：#!/usr/bin/perl # HTTP 標頭 print "Content-Type:application/octet-stream; name = \"FileName\"\r"; print "Content-Disposition: attachment; filename = \"FileName\"\r"; # 實際 ... 閱讀更多

所有 Perl CGI 程式都可以訪問以下環境變數。這些變數在編寫任何 Perl CGI 程式時都起著重要作用。序號變數名稱和說明1CONTENT_TYPE內容的資料型別。當客戶端向伺服器傳送附加內容時使用。例如檔案上傳等。2CONTENT_LENGTH查詢資訊的長度。僅對 POST 請求可用3HTTP_COOKIE以鍵值對的形式返回設定的 Cookie。4HTTP_USER_AGENTUser-Agent 請求標頭欄位包含有關發出請求的使用者代理的資訊。它是 Web 瀏覽器的名稱。5PATH_INFOCGI 指令碼的路徑。6QUERY_STRING傳送的 URL 編碼資訊 ... 閱讀更多

這是一個簡單的 Perl CGI 程式，位於名為 hello.cgi 的檔案中。此檔案已儲存在 /cgi-bin/ 目錄中，其內容如下。在執行 CGI 程式之前，請確保使用 chmod 755 hello.cgi UNIX 命令更改檔案的模式。#!/usr/bin/perl print "Content-type:text/html\r\r"; print ''; print ''; print 'Hello Word - First CGI Program'; print ''; print ''; print 'Hello Word! This is my first CGI program'; print ''; print ''; 1;現在，如果您單擊 hello.cgi 連結，則請求將傳送到 Web 伺服器，Web 伺服器將在 /cgi-bin 目錄中搜索 hello.cgi，執行它，並將生成的任何結果傳送 ... 閱讀更多

檢查可用驅動程式@ary = DBI->available_drivers; @ary = DBI->available_drivers($quiet);返回透過搜尋 @INC 中的目錄中的 DBD::* 模組找到的所有可用驅動程式的列表。預設情況下，如果某些驅動程式被同一名稱的其它驅動程式隱藏在較早的目錄中，則會發出警告。傳遞 $quiet 的真值將抑制警告。檢查已安裝驅動程式%drivers = DBI->installed_drivers();返回當前程序中“已安裝”（已載入）的所有驅動程式的驅動程式名稱和驅動程式控制代碼對列表。驅動程式名稱不包括“DBD::”字首。檢查資料來源@ary = DBI->data_sources($driver);返回透過指定的驅動程式可用的資料來源（資料庫）列表。如果 $driver 是 ... 閱讀更多

未定義值或 undef 用於指示 Perl 資料庫操作中的 NULL 值。您可以像使用非 NULL 值一樣插入和更新具有 NULL 值的列。以下示例使用 NULL 值插入和更新 age 列：$sth = $dbh->prepare(qq {    INSERT INTO TEST_TABLE (FIRST_NAME, AGE) VALUES (?, ?) }); $sth->execute("Joe", undef);這裡 qq{} 用於返回一個帶引號的字串到 prepare API。但是，在嘗試在 WHERE 子句中使用 NULL 值時必須小心。考慮：SELECT FIRST_NAME FROM TEST_TABLE WHERE age = ?將 undef (NULL) 繫結到佔位符將 ... 閱讀更多

COMMIT 操作COMMIT 是向資料庫發出最終確認更改的訊號的操作，此操作後無法撤銷任何更改。這是一個呼叫 commit API 的簡單示例。$dbh->commit or die $dbh->errstr;ROLLBACK 操作如果您對所有更改不滿意，或者在任何操作過程中遇到錯誤，您可以使用 rollback API 撤銷這些更改。這是一個呼叫 rollback API 的簡單示例。$dbh->rollback or die $dbh->errstr;開始事務許多資料庫都支援事務。這意味著您可以進行大量修改資料庫的查詢，但沒有 ... 閱讀更多

當您想要從資料庫中刪除一些記錄時，需要 Perl DELETE 操作。以下是刪除 TEST_TABLE 中所有 AGE 等於 30 的記錄的過程。此操作將執行以下步驟。根據所需條件準備 SQL 查詢。這將使用 prepare() API 完成。執行 SQL 查詢以從資料庫中刪除所需記錄。這將使用 execute() API 完成。釋放語句控制代碼。這將使用 finish() API 完成。如果一切順利，則提交此操作，否則您可以回滾整個事務。$age = 30; my $sth = $dbh->prepare("DELETE FROM TEST_TABLE WHERE AGE = ?"); $sth->execute( $age ) or ... 閱讀更多

在任何資料庫上執行 Perl UPDATE 操作意味著更新資料庫表中已有的一個或多個記錄。以下是更新所有 SEX 為“M”的記錄的過程。我們將所有男性的 AGE 增加一年。這將分三個步驟進行：根據所需條件準備 SQL 查詢。這將使用 prepare() API 完成。執行 SQL 查詢以從資料庫中選擇所有結果。這將使用 execute() API 完成。釋放語句控制代碼。這將使用 finish() API 完成。如果一切順利，則提交此操作，否則您可以回滾整個事務。請參見下一個 ... 閱讀更多

Perl 對任何資料庫的讀取操作意味著從資料庫中獲取一些有用的資訊，即一個或多個表中的一條或多條記錄。因此，一旦建立了資料庫連線，我們就可以對該資料庫進行查詢。以下是查詢所有年齡大於 20 的記錄的過程——這將分四個步驟進行：根據所需條件準備 SQL SELECT 查詢。這將使用 prepare() API 完成。執行 SQL 查詢以從資料庫中選擇所有結果。這將使用 execute() API 完成。逐條獲取所有結果……閱讀更多