hello.pl
print "Content-type: text/html\n\n";
print "<body bgcolor=white>";
print $ENV{QUERY_STRING};
print "<h1>Hello world!
</H1><BR>\n";
print "Jag använder ";
print "$ENV{HTTP_USER_AGENT}, <BR>\n";
print "</body>";
h1test.pl
# p20_3.pl
# Detta program använder tilläggsmodulen cgi.pm. Denna
fil läggs i perlkatalogen.
use CGI; #Här refereras cgi.pm
$wp = new CGI; #Här refereras cgi.pm
print $wp->header; #Här refereras cgi.pm
print $wp->start_html (
-title=>'Using CGI.pm in a CGI script',
-BGCOLOR=>'white'); #Här refereras cgi.pm
print "<BODY>\n";
print "<H1>Hello, world!<H1>\n";
print "</BODY>\n";
print $wp->end_html; #Här refereras cgi.pm
hworld.pl
# p20_3.pl
use CGI;
open (RAKN, "rakna.txt");
$total = <RAKN>;
close(RAKN);
$total = $total + 1;
open (RAKN, ">rakna.txt");
print RAKN $total;
close (RAKN);
$wp = new CGI;
print $wp->header;
print $wp->start_html (
-title=>'Using CGI.pm in a CGI script',
-BGCOLOR=>'white');
print "<BODY>\n";
print "Hello, hello, hello, and hello
world!\n";
print "Rakna is $total.\n";
print "</BODY>\n";
print $wp->end_html;
randnum.pl
# randnum.pl
# Detta program genererar tio slumpmässiga nummer mellan
ett och tio
# och skriver sedan ut dem i tur och ordning.
srand();
$i = 0;
while ($i < 10){
$tal[$i] = int ( rand(10));
$i += 1;
}
$i = 1;
while ($i <= 10){
print "Tal $i \x84r $tal[$i-1]\n" ;
$i += 1;
}
ordsprak.pl
# ordsprak.pl
# Detta program väljer slumpmässigt ut ett ordspråk,
som finns lagrat i en array, och skriver ut det.
@ordsprak = ("N\x84ra skjuter ingen hare",
"Morgonstund har guld i mund",
"Bättre en fågel i handen än tio i skogen",
"Livet är ett paketerbjudande",
"Kärleken är som en duva; kramar du för hårt
dör den och håller du för löst flyger den"
);
srand();
$i = int (rand(5));
print "$ordsprak[$i-1]\n";
html-fil som
använder ett formulär för att ta reda på användarens
namn
<HTML>
<HEAD>
<TITLE>An HTML Form</TITLE>
</HEAD>
<BODY>
<FORM
ACTION="http://MyWebServerDomainName/Perl/perl.exe?skripter/p20_4.pl"
METHOD="POST">
This Web Page is designed to obtain the user´s name
<P>
Please enter your name:
<INPUT TYPE="text" NAME="user"
SIZE=40>
<P>
<INPUT TYPE="submit" VALUE="Click this
button to send your name to Web server">
</FORM>
</BODY>
</HTML>
Ett cgi-skript som hälsar på användaren
# p20_5.pl
use CGI;
$wp = new CGI;
# Fetch the user name entered in HTML form
$user_name = $wp->param ('user');
print $wp->header;
print $wp->start_html (
-title=>'A CGI script to Interact with the User',
-BGCOLOR=>'white');
# Send a greeting message back to the user
print "<BODY>\n";
print "Hello, $user_name,\n";
print "Welcome to my Web page!\n";
print "This message is sent to $user_name by the Web
server.\n";
print "</BODY>\n";
print $wp->end_html;
|