r9.dvi

Size: px

Start display at page:

Download "r9.dvi"

もりよりつちかね
7 years ago
Views:

1 11 3 /Web (script) ( Windows/MS-DOS ) 1 GUI 100? 100?? 100 1,000? 10,000?? script 1:? ( 1) 1 1 GUI Unix 1

2 Perl( / ) PHP(Web ) JavaScript(Web ) Unix ( ) Unix ( ) if while bash % for i in * > do > echo $i $i > done temp temp test.txt test.txt 2 % 1 1 (AWK 2) Lisp ML AWK Schme Tcl Perl Ruby Python PHP JavaScript OCaml 2: 1988 Larry Wall Perl Perl 1 Unix + Perl 2

3 Perl Tcl 1990 C C++ Java Perl Perl5 Perl Python Ruby( ) WWW JavaScript JavaScript ( PC ) Lisp Scheme ML Ocaml (light language) 2 Perl 2.1 CPU (COBOL ) 77 Fortran ( ) / Perl Perl 2.2 OPTION ( ) : 3

4 x y z ABC + DE = ABC DE 6chars 6chars 12chars x y z 3 ABC 2 DE 5 ABCDE 3: (mapping) ( ) (?) Pascal Fortran COBOL ( 3) x y 3 2 ABC DE z 5 ABCDE x 3 ABC 2 DE 5 ABCDE y z Heap Area 4: (?) ( ) ( ) ( 4)

5 ( 5 ) THE QUICK BROWN FOX JUMPED... QUICK x QUICK x QUICK x QUICK x QUICK o oo o o --OK comparison = 9 times AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB AAAAAAAAAB o o o o o.. o x AAAAAAAAAB o o o o o.. o x... comparison = 300times 5: 2 C 2 sed, grep, tr, sort, uniq 2.3 Perl Perl Larry Wall Perl $... "..." if for {... test1.pl for($i = 0; $i < 10; ++$i) { print " ", $i; print "\n"; perl 2 5

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB AAAAAAAAAB o o o o o.. o x

6 % perl test1.pl % Perl print "\n"( ) 2.4 Perl Perl Unix < > <> Unix cat while($line = <>) { print $line; ( test2.pl ) % cat t1 This is a pen. t1 % perl test2.pl t1 t1 t1 2 This is a pen. This is a pen. 2 % "\n" print open open(f, ">test.txt"); > print (, ) print F "this is a pen.\n"; close(f); 2.5 split :

$pl ) % cat t1 This is a pen. t1 % perl test2.pl t1 t1 t1 2 This is a pen. This is a pen. 2 % "\n" print open open(f, ">test.$

7 $line chop($line); split : ($name, $d1, $d2, $d3) = split(/ +/, $line); / +/ 1 ( ) split 1 $name $d1 $d2 $d3 CSV /,/ : while($line = <>) { chop($line); ($name, $d1, $d2, $d3) = split(/ +/, $line); $avg = ($d1 + $d2 + $d3) / 3.0; print "$name $d1 $d2 $d3 $avg\n"; print "..." : perl test3.pl t.data Perl latex : print "\\documentclass[12pt,a4j]{jarticle\n"; print "\\usepackage{graphicx\n"; print "\\begin{document\n"; print "\\title{ \n"; print "\\maketitle\n"; print "\\begin{center\n"; print "\\begin{tabular{ c r r r c \n"; print "\\hline\n"; print " & 1970 & 1980 & 1990 & \\\\\n"; print "\\hline\n"; $num = 0; while($line = <>) { chop($line); ($name, $d1, $d2, $d3) = split(/ +/, $line); $avg = ($d1 + $d2 + $d3) / 3.0; print "$name & $d1 & $d2 & $d3 & $avg\\\\\n"; print "\\hline\n"; 7

$6 Perl latex : print "\\documentclass[12pt,a4j]{jarticle\n"; print "\\usepackage{graphicx\n"; print "\\begin{document\n"; print "\\title{ \n"; print "\\maketitle\n"; print "\\begin{center\n"; print$

8 print "\\end{tabular\n"; print "\\end{center\n"; print "\\end{document\n"; latex print & \ ( ) 1 2 perl test4.pl t.data >test.tex platex test.tex latex : PostScript PostScript #5 newpath X Y moveto (X,Y ) X Y lineto (X,Y ) stroke lineto W setlinewidth Wpt pt (1pt = 1 72 inch) 1 1 fig1.ps PostScript latex \includegraphics[scale= ]{ (. ): print "\\documentclass[12pt,a4j]{jarticle\n"; print "\\usepackage{graphicx\n"; print "\\begin{document\n"; print "\\title{ + \n"; print "\\maketitle\n"; print "\\begin{center\n"; print "\\begin{tabular{ c r r r c \n"; print "\\hline\n"; 8

$ps PostScript latex \includegraphics[scale= ]{ (.$

9 print " & 1970 & 1980 & 1990 & \\\\\n"; print "\\hline\n"; $num = 0; while($line = <>) { chop($line); ($name, $d1, $d2, $d3) = split(/ +/, $line); $file = "fig". ++$num. ".ps"; open(f, ">".$file); print F "%!PS-Adobe-2.0\n"; print F "%%BoundingBox: \n"; print F "newpath moveto 0 0 lineto lineto stroke\n"; print F "3 setlinewidth\n"; print F "newpath 0 $d1 moveto 100 $d2 lineto 200 $d3 lineto stroke\n"; close(f); print "$name & $d1 & $d2 & $d3 &"; print "\\includegraphics[scale=0.333]{$file\\\\\n"; print "\\hline\n"; print "\\end{tabular\n"; print "\\end{center\n"; print "\\end{document\n"; $file PostScript open close latex includegraphics PostScript : PHP Web 3.1 PHP Web HTML CGI 9

$0\n"; print F "%%BoundingBox: -5-5 310 210\n"; print F "newpath 0 200 moveto 0 0 lineto 300 0 lineto stroke\n"; print F "3 setlinewidth\n"; print F "newpath 0 $d1 moveto 100 $d2 lineto 200$

10 CGI ( Ajax ) CGI(Common Gateway Interface) Web Web CGI WWW C Perl PHP(Hypertext Processor P Personal Home Page tools ) Web 1995 Rasmus Lerdorf 2004 PHP5 PHP HTML PHP MS ASP(Active Server Page) JSP(Java Server Page) 1 PHP ( ).php <html> <head>... <?php...?>... <html> PHP 6: PHP Web Apache PHP.php PHP.php PHP (PHP ) ( 6) PHP.php URI PHP action.php URI PHP ( ) PHP CGI Web 3.2 PHP Web PHP HTML ( ) 10

Page) JSP(Java Server Page) 1 PHP ( ).php <html> <head>... <?php...?>... <html> PHP 6: PHP Web Apache PHP.

11 <?php PHP?> PHP C C++ Java (/*... */ // ( # ) 1 PHP HTTP (header() ) PHP header() PHP ( ): <?php header("content-type: text/html; charset=euc-jp"); /* */?> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"> <html><head><title>title...</title> <style type="text/css"> /* CSS */ </style><head><body> <?php /* */?> </body></html> EUC Emacs Ctrl-X [RET] f euc-jp [RET] EUC E EUC PHP HTML ( 7) <php? header("content-type: text/html; charset=euc-jp");?> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"> <html><head><title>php sample</title> <style type="text/css"> div.num { margin: 2px 20px; background: rgb(200,215,255) </style></head><body> <h1> </h1> <?php for($i = 0; $i < 10; ++$i) { echo "<div class= num > {$i </div>";?> </body></html> <?php 1 ( header() i div 10 echo (Perl ) {$ 11

> </body></html> EUC Emacs Ctrl-X [RET] f euc-jp [RET] EUC E EUC PHP HTML ( 7) <php? header("content-type: text/html; charset=euc-jp");?> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.

12 7: PHP CSS div 3.3 PHP HTML form get $_GET[ ] post $_POST[ ] ( form name ) isset() ( 1 ) <?php if(isset($_get[ ]) { else {?>... <form action="#">... </form> <php? header("content-type: text/html; charset=euc-jp");?> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"> <html><head><title>php sample</title> <style type="text/css"> div.num { margin: 2px 0px; background: rgb(200,215,255) form { padding: 1ex; background: rgb(200,185,220) </style></head><body> 12

header("content-type: text/html; charset=euc-jp");?> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.

13 8: PHP <h1> 2</h1> <div><form action="#"> <?php if(isset($_get[ init ])) { $i = $_GET[ init ]; $s = $_GET[ step ]; $m = $_GET[ max ]; else { $i = 0; $s = 1; $m = 10; echo " :<input type= text name= init size= 4 value= {$i >"; echo " :<input type= text name= step size= 4 value= {$s >"; echo " :<input type= text name= max size= 4 value= {$m >"; echo " <button> </button></form></div>"; for($k = $i; $k < $m; $k = $k + $s) { echo "<div class= num > {$k </div>";?> </body></html> text 3 text PHP value 3.4 PHP Web ( 9) PHP msg.txt Web ( ID nobody ) ( 1 ) 13

type= text name= init size= 4 value= {$i >"; echo " :<input type= text name= step size= 4 value= {$s >"; echo " :<input type= text name=

14 9: PHP % echo >msg.txt % chmod a+rw mgs.txt PHP (file() ) fopen(, ) ( ) r w a ( ) fclose( ) ( ) fwrite(, ) fread(, ) fsize( ) ( ) file( ) 1 1 <?php header("content-type: text/html; charset=euc-jp");?> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"> <html><head><title>php sample</title> <style type="text/css"> div.msg { margin: 2px 0px; padding: 4px; background: rgb(200,215,255) form { padding: 1ex; background: rgb(200,185,220) </style></head><body> <h1> </h1> <?php if(isset($_post[ msg ])) { $fd = fopen( msg.txt, a ); fwrite($fd, "<div class= msg >{$_POST[ namae ]: {$_POST[ msg ]</div>\n"); 14

01//EN"> <html><head><title>php sample</title> <style type="text/css"> div.

15 fclose($fd); $fd = fopen( msg.txt, r ); echo fread($fd, filesize( msg.txt )); fclose($fd);?> <div><form method="post" action="#"> : <input type="text" name="namae"><br> <textarea name="msg" rows="5" cols="40"></textarea> <button> </button> </div></form> </body></html> 10: ( 10) Web Web (a) (b) (c) (a) 1 ( 1 1 ) 15

16 (b) (c) ( ) 4 JavaScript Web 4.1 ( ) 3 Scheme Tcl VBA(Visual Basic for Applications) ( 11) 11:?? 4.2 JavaScript JavaScript HTML ( JavaScript JavaScript )? JavaScript 3 PHP Web 16

17 JavaScirpt Web ( ) JavaScript 1 (GUI ) ( ) document.write( ) HTML ( ) DOM innerhtml HTML CSS / GUI / ( ) 1 ( 12) 12: ( ) : 17

18 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"> <html><head> <title>sample</title> <style type="text/css"> div { background: rgb(200,255,235); padding: 1em </style> <script type="text/javascript"> function chg(elt) { var c = elt.value.charat(0); var i = parsefloat(elt.value.substring(1)); if(c == F c == f ) { document.getelementbyid( s0 ).innerhtml = C + ((5/9)*(i - 32)); else { document.getelementbyid( s0 ).innerhtml = F + ((9/5)*i + 32); </script> </head><body> <h1> </h1> <div> F C <br><br> : <input type="text" name="it" value="f" onkeyup="chg(this)"><br><br> : <span id="s0">???</span> </div></body></html> form (input type="text") onkeyup this chg() this HTML (input) chg().value onkeyup 1 F C div id document.getelementbyid().innerhtml HTML JavaScript HTML XML ( ) DOM(Document Object Mdel) 1 ( 13): <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"> <html><head> <title>sample</title> <style type="text/css"> div { background: rgb(200,255,235); padding: 1em #d0 { background: rgb(10,200,190); position: absolute; top: 200px; left: 20px; width: 400px; height: 10px #s0 { color: red; position: absolute; top: 5x; left: 195px </style> 18

charat(0); var i = parsefloat(elt.value.substring(1)); if(c == F c == f ) { document.getelementbyid( s0 ).

19 13: <script type="text/javascript"> function drag(ev) { var x = ev.clientx ev.pagex; x = x - 25; if(x < 0) x = 0; if(x > 400) x = 400; document.getelementbyid( s0 ).style.left = x + px ; var c = 0.5*x - 50, f = (9/5)*c + 32; document.getelementbyid( d1 ).innerhtml = = + c; document.getelementbyid( d2 ).innerhtml = = + f; </script> </head><body> <h1> </h1> <div id="d0" onmousemove="drag(event)"><span id="s0"> </span></div> <div id="d1">?</div><div id="d2">?</div></body></html> div span CSS (position: absolute) left top width hight HTML onmousemove drag().clientx.pagex( ) X HTML.style CSS JavaScript 4.3 Ajax OPTION Ajax(Asynchronous JavaScript And XML) 2006 JavaScirpt 1 Web 19

innerhtml = = + f; </script> </head><body> <h1> </h1> <div id="d0" onmousemove="drag(event)"><span id="s0"> </span></div> <div id="d1">?</div><div id="d2">?

20 XMLHttpRequest() (IE 6.0 ) ( ) DOM innerhtml 14: Ajax Ajax ( 14) PHP bid.txt ( PHP ) 100 PHP bid.php <?php $fdata = file("bid.txt"); if(isset($_get[ user ]) && $fdata[1] < $_GET[ val ]) { $fd = fopen("bid.txt", "w"); fwrite($fd, $_GET[ user ]."\n".$_get[ val ]."\n"); fclose($fd); $fdata = file("bid.txt"); echo "user=".$fdata[0]." value=".$fdata[1];?> get user val 2 bid.txt val bid.txt <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"> <html><head> 20

$txt", "w"); fwrite($fd, $_GET[ user ]."\n".$_get[ val ]."\n"); fclose($fd); $fdata = file("bid.$

21 <title>sample</title> <style type="text/css"> div { margin: 1ex; padding: 2ex; background: rgb(200,255,240) </style> <script type="text/javascript"> var r = new XMLHttpRequest(); function recv() { if(r.readystate == 4) { document.getelementbyid( h0 ).innerhtml = r.responsetext; function update(uri) { r.onreadystatechange = recv; r.open( GET, uri, true); r.send(null); function send() { var u = document.getelementbyid( t0 ).value; var v = document.getelementbyid( t1 ).value; update( bid.php?user= + u + &val= + v); function watch() { update( bid.php ); </script> </head><body onload="setinterval(watch, 1000)"> <h1 id="h0"> :</h1> <div> : <input type="text" id="t0"><br><br> : <input type="text" id="t1"><br><br> <button onclick="send()"> </button></div> </body></html> r XMLHttpRequest recv() XMLHttpRequest (h1 ) update() URI get recv() send() 2 update() watch() update() body onload 1 watch() send() HTML 21

22 5 Perl Web PHP Web JavaScript 3 JavaScript Ajax 3-1. latex Perl ( ) 3-2. latex PostScript Perl PHP (a) (b) ( ) (c) 3-4. PHP (a) (b) (100 ) (c) 3-5. JavaScript Web 3-6. JavaScript PHP Web 22

07_経営論集2010　小松先生.indd

07_経営論集2010　小松先生.indd 19 1 2009 105 123 Web Web Web Web World Wide Web WWW OS 1990 WWW Web HTML CSS JavaScript Web 1 WWW 2 Web Web 3 Web 4 HTML5 5 Web Web 3 1970 WWW HTML Web WWW WWW WWW WWW WWW 105 Web WWW 2 Web 1 1 NTT NTT