這是一個簡單的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編碼資訊... 閱讀更多

這是一個名為hello.cgi檔案的簡單Perl 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，執行它，並將生成的任何結果傳送... 閱讀更多

檢查available_drivers@ary = DBI->available_drivers; @ary = DBI->available_drivers($quiet);透過搜尋@INC中的目錄中的DBD::*模組來返回所有可用驅動程式的列表。預設情況下，如果某些驅動程式被同一名稱的早期目錄中的其他驅動程式隱藏，則會發出警告。為$quiet傳遞真值將抑制警告。檢查installed_drivers%drivers = DBI->installed_drivers();返回當前程序中“安裝”（載入）的所有驅動程式的驅動程式名稱和驅動程式控制代碼對列表。驅動程式名稱不包含“DBD::”字首。檢查data_sources@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操作如果您對所有更改不滿意，或者在任何操作過程中遇到錯誤，您可以使用回滾API將這些更改恢復。這是一個呼叫回滾API的簡單示例。$dbh->rollback or die $dbh->errstr;開始事務許多資料庫都支援事務。這意味著您可以進行大量會修改資料庫的查詢，但沒有一個... 閱讀更多

當您想從資料庫中刪除一些記錄時，需要Perl DELETE操作。以下是刪除AGE等於30的所有TEST_TABLE記錄的過程。此操作將採取以下步驟。根據所需條件準備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 READ操作意味著從資料庫中獲取一些有用的資訊，即一個或多個表中的一個或多個記錄。因此，一旦建立了資料庫連線，我們就可以對該資料庫進行查詢。以下是查詢所有AGE大於20的記錄的過程。這將分四個步驟進行−根據所需條件準備SQL SELECT查詢。這將使用prepare() API完成。執行SQL查詢以從資料庫中選擇所有結果。這將使用execute() API完成。逐一獲取所有結果，並... 閱讀更多