オンラインテスト

Size: px

Start display at page:

Download "オンラインテスト"

さみかたづ
5 years ago
Views:

2 1. 2. JavaScript 3. Perl 4. CGI

3 1. WWW HTML WWW World Wide Web HTML Hyper Text Markup Language XML, XHTML

5 Java (.java) JavaApplet (.class,.jar) JavaServlet (.jsp) JavaScript (.html) CGI (.cgi) SSI (.shtml) ActiveX (.asp) Perl(.pl)

6 WWW on Apache IIS AN HTTPD WWW on Internet Explorer IE Netscape Navigator

7 WWW JavaScript JavaApplet Java on WWW CGI (Common Gateway Interface) SSI (Server Side Include) JavaServlet ActiveX

8 JavaScript JavaApplet JavaServlet ActiveX CGI + Perl SSI + Perl

9 2. JavaScript Web time.htm gree.htm button.htm

10 time.htm <html> <body> <script language= JavaScript > var now = new Date(); document.write( now, <br> ); </script> </body> </html> 1. time.htm 2. time2.htm

11 gree.htm <script> hour = (new Date()).getHours(); if( hour < 12 ) gree = "Morning"; else gree="hello"; document.write(gree); </script> gree2.htm 1. gree.htm 2.

12 button.htm <script language= JavaScript > function WinOpen() { window.open( ); } </script> <input type= button value=, onclick= WinOpen() >

13 3. Perl Perl HelloWorld hello.pl time.pl

14 HelloWorld hello.pl print hello world. n ; 3. hello2.pl Perl perl hello2.pl

15 time2.pl 1. asperl 2. hello2.pl time.pl print hello world. n ; $now = localtime(time); print $now; 5.

16 4. CGI WWW CGI Perl Perl HelloWorld hello.cgi time.cgi gree.cgi wtime.htm

17 HelloWorld hello.cgi 1. asperl hello.cgi print context-type: text/html n n ; print <html> ; print <body> ; print Hello World n ; print </body> ; print </html> ; 2. Web

18 time.cgi 1. asperl time.cgi print context-type: text/html n n ; $now = localtime( time ); print <html> ; print <body> ; print $now; print </body> ; print </html> ; 2. Web

19 gree.cgi 1. asperl gree.cgi print context-type: text/html n n ; ($sec, $min, $hour) = localtime(time); if( $hour < 10 ) { $msg = "Morning" } else { $msg = "Hello" }; print <html><body> ; print $msg, " World";print <html> ; print </body> ; print </html> ; 2. Web

20 wtime.htm 1. wtime.htm <html><body> <form action= cgi-bin/time.cgi method= POST > <input type= submit value= What time? > </form> </body></html> 2. Web

21 Windows

23 1. HTML) CGI

24 WWW test2.htm <HTML><body> <form method= POST action= cgi-bin/sendtest2.pl > WWW <p> <textarea name= comment > </textarea><p> <input type= submit > </form></body></html> sendtest2.cgi

25 test2.htm <HTML><body> <form method= POST action= cgi-bin/sendtest2.pl > WWW <p> <textarea name= comment > </textarea><p> <input type= submit > </form></body></html>

26 sendtest2.pl (1) require cgi-bin.pl &ReadParse; $comment=$in{ comment }; $mailto= ; $sendmail= /usr/lib/sendmail open(mail, $sendmail $mailto ); print MAIL Subject: Answers n ; print MAIL $comment; close(mail);

27 sendtest2.pl (2) print Context-type:text/html n n ; print <html> ; print <body> ; print ; print </body> ; print </html> ;

28 2. ID CGI HTML CGI Perl & Excel Excel HTML

29 WWW data.txt [test:1234] # <h3> </h3> # # 1. 1:, 2: exectest.cgi 2. a:, b: 3. a., b., c., d., e. -- 1x x80 sendtest.cgi Perl & Excel

30 exectest.pl sendtest.pl jcode.pl, cgi-lib.pl CGI perl cgi-bin data.txt test.htm

31 data.txt [test:1234] # <h3> </h3> # # 1. 1:, 2: 2. a:, b: 3. a., b., c., d., e. -- 1x x80

32 test.htm

33 exectest.pl

35 Received: (qmail invoked by uid 60001); 23 Jul :44: Date: 23 Jul :44: Message-ID: Subject: test From: To: [-choice-] 1 b abe [--text--] [--text--]

36 Perl getcsv.pl while(<stdin>){ if( /^From: ){ $from = $1;} elsif( /^Date: S+, ( d+ w+ d+) ( d+: d+: d+)/ ){ $date = $1; $time = $2;} elsif( /^ [-choice- ] (.*)$/ ){ $choice = $1;&jcode'convert(*from, 'sjis'); print " "".$from." ", "".$date." ", "".$time." ""; print ",".join(',',split(/ s/,$choice));} elsif( /^ [--text-- ] (.*)$/ ){ text = $1; &jcode'convert(*text, 'sjis'); print ", "".$text." "";}}

37 Perl Excel

39 Excel HTML

41 3. Windows AN HTTPD Active Perl next,next,... Perl Perl C: Perl bin cgi-lib.pl jcode.pl cgi-bin wsendmail.txt SMTP sendmail.cgi C: Perl bin

42 public_html [ ] index.htm [ ] cgi-bin [CGI ] cgi-lib.pl, jcode.pl [ ] exectest.pl, sendtest.pl onlinetest test.htm data.txt

43 AN HTTPD 1.42h Active Perl Perl v cgi-lib.pl jcode.pl wsendmail.txt

44 &URL Q&A Perl & CGI IDG ISBN Perl ISBN WWW FUJI21 CGI E

untitled

untitled Perl2 Web2 PerlCGI Web IT2006 2 Perl Perl Perl Perl Perl Perl OS CGIWeb IT2006 4 1. FTP CD-ROM 2. IT2006 5 3. +Lhaca C: Program Files asperl C: Programs 4. IT2006 6 +Lhaca /Archives +Lhaca / local Lhaca075.EXE