会python真的可以为所欲为0(回)
353天前
这里还有人吗1(回)
538天前这里还有人吗0(回)
538天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
762天前到处都是羊，不想上班0(回)
842天前
鸽子
0(回)
847天前#----------------------------- |
print ol ( li ( [ qw ( red blue green ) ] ) ); |
# <OL><LI>red</LI> <LI>blue</LI> <LI>green</LI></OL> |
@names = qw ( Larry Moe Curly ); |
print ul ( li ( { -TYPE => "disc" }, \@names ) ); |
# <UL><LI TYPE="disc">Larry</LI> <LI TYPE="disc">Moe</LI> |
# |
# <LI TYPE="disc">Curly</LI></UL> |
#----------------------------- |
print li ( "alpha" ); |
# <LI>alpha</LI> |
print li ( [ "alpha", "omega"] ); |
# <LI>alpha</LI> <LI>omega</LI> |
#----------------------------- |
use CGI qw ( :standard :html3 ); |
%hash = ( |
"Wisconsin" => [ "Superior", "Lake Geneva", "Madison" ], |
"Colorado" => [ "Denver", "Fort Collins", "Boulder" ], |
"Texas" => [ "Plano", "Austin", "Fort Stockton" ], |
"California" => [ "Sebastopol", "Santa Rosa", "Berkeley" ], |
); |
$\ = "\n"; |
print "<TABLE> <CAPTION>Cities I Have Known</CAPTION>"; |
print Tr ( th [qw ( State Cities ) ] ); |
for $k ( sort keys %hash ) |
{ |
print Tr ( th ( $k ), td ( [ sort @ {$hash{$k}} ] ) ); |
} |
print "</TABLE>"; |
#----------------------------- |
# <TABLE> <CAPTION>Cities I Have Known</CAPTION> |
# |
# <TR><TH>State</TH> <TH>Cities</TH></TR> |
# |
# <TR><TH>California</TH> <TD>Berkeley</TD> <TD>Santa Rosa</TD> |
# |
# <TD>Sebastopol</TD> </TR> |
# |
# <TR><TH>Colorado</TH> <TD>Boulder</TD> <TD>Denver</TD> |
# |
# <TD>Fort Collins</TD> </TR> |
# |
# <TR><TH>Texas</TH> <TD>Austin</TD> <TD>Fort Stockton</TD> |
# |
# <TD>Plano</TD></TR> |
# |
# <TR><TH>Wisconsin</TH> <TD>Lake Geneva</TD> <TD>Madison</TD> |
# |
# <TD>Superior</TD></TR> |
# |
# </TABLE> |
#----------------------------- |
print table |
caption ( 'Cities I have Known' ), |
Tr ( th [qw ( State Cities ) ] ), |
map { Tr ( th ( $_ ), td ( [ sort @{$hash{$_}} ] ) ) } sort keys %hash; |
#----------------------------- |
# download the following standalone program |
#!/usr/bin/perl |
# salcheck - check for salaries |
use DBI; |
use CGI qw ( :standard :html3 ); |
$limit = param ( "LIMIT" ); |
print header(), start_html ( "Salary Query" ), |
h1 ( "Search" ), |
start_form(), |
p ( "Enter minimum salary", textfield ( "LIMIT" ) ), |
submit(), |
end_form(); |
if ( defined $limit ) |
{ |
$dbh = DBI->connect ( "dbi:mysql:somedb:server.host.dom:3306", |
"username", "password" ) |
or die "Connecting: $DBI::errstr"; |
$sth = $dbh->prepare ( "SELECT name,salary FROM employees |
WHERE salary > $limit" ) |
or die "Preparing: ", $dbh->errstr; |
$sth->execute |
or die "Executing: ", $sth->errstr; |
print h1 ( "Results" ), "<TABLE BORDER=1>"; |
while ( @row = $sth->fetchrow() ) |
{ |
print Tr ( td ( \@row ) ); |
} |
print "</TABLE>\n"; |
$sth->finish; |
$dbh->disconnect; |
} |
print end_html(); |
#----------------------------- |
by: 发表于：2017-09-13 14:16:42 顶(0) | 踩(0) 回复
??
回复评论