Perl類 CGI和DBI程式設計

方法是一種屬於類的特殊子例程，要求第乙個引數必須是包含或指向物件的引用，並且這個引數是由perl自動隱式賦值的。

house.pm

package house;

sub new;
bless($ref,$class);
return $ref;
}sub set_data=$value;
}sub get_data;
}1;

同目錄下建立perl檔案usehouse

#!/usr/bin/perl

use 5.010;					##say相當於print外加換行符，但必須申明使用perl5.1的新特徵
require ("house.pm");		##引入外部檔案
my $house=new house("bieshu");
say ref($house);			##ref函式返回類名--house
$house->set_data("name","balihaoting");
say $house->get_data("name");

在apache服務目錄下有個htdocs，用來存放html檔案，form.html

cgi-bin目錄下用來存放指令碼檔案，form

#!/usr/bin/perl

print "content-type:text/html\n\n";
@key_value=split(/&/,$env);
foreach $pair (@key_value)

下面給乙個在同乙個perl程式中顯示頁面和處理響應的例子：

#!/usr/bin/perl

use cgi qw(:standard);
print header("text/html;charset=gb2312");
print start_html(-title=>'function-oriented syntax',-bgcolor=>'silver');
print 
h1("let's hear from you!"),
h2("i'm intersted."),
start_form,
"what's your name?",textfield('name'),
p,"what's you occupation?",textfield('job'),
p,"select a vacation spot.",popup_menu(
-name=>'place',
-value=>['hawaii','europe','mexico','japan'],
),p,
"do you want a green balloon?",
br,checkbox(-name=>"choice",-label=>'if yes,check this box'),
p,submit("submit"),
end_form;
print hr;
if(param())
print hr;
}print end_html;

dbi程式設計示例：

#!/usr/bin/perl

use dbi qw/:sql_types/;
my $dbh=dbi->connect('dbi:mysql:mysql','root','passwd',
)or die "connect failed:$dgi::errstr";
my @rows=(
['zcy',3,4],
['orisun',34,5],
['zsir',4,1]
);my $sql=qq;
my $sth=$dbh->prepare($sql);
foreach $param (@rows);
}if($@)
else\t";
print "height=$row->\t";
print "weight=$row->\n";
}}$sth->finish();
$dbh->disconnect();

程式設計作業 程式設計作業 類和物件

描述 下面程式輸出的結果是 4,6請填空 include using namespace std class a int getval class b public a int getval int main 輸入無輸出4,6樣例輸入 無樣例輸出 4,6code include using name...

c 程式設計類和物件

此型別的合法值是什麼？此型別應該有什麼樣的函式和操作符 新型別的物件該如何被建立和銷毀 如何進行物件的初始化和賦值 物件作為函式引數如何以值傳遞 誰將使用此型別的物件成員 語法形式 class 類名稱 在類中宣告函式原型 可以在類外給出函式體實現，並在函式名前使用類名加以限定 也可以直接在類中給出函...

物件導向程式設計和類

class product def init self,name self.name name self.label price 0 self.real price 0 c product 電腦 d product 印表機 e product 投影儀 c.label price,c.real pri...