[CGI02_02.txt]の変更点 - aurora72source2 @ ウィキ

CGI02_02.txt

「CGI02_02.txt」(2008/07/17 (木) 16:03:12) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

aaa #!/usr/local/bin/perl # 上の１行の前には空行も空白文字もはいらないようにしてください。 # perlのパス名はプロバイダや環境に合わせて変更してください。 #require "jcode.pl"; # # CGIのヘッダを書き出します。通常は text/html を指定します。 # print "Content-type: text/html\n"; print "\n"; # # HTMLを書き出します。 # "～\n" の～の部分に HTML を記述しますが、ダブルクォーテーション( " ) # を用いる際は " の代わりに ' を用いるか、\" のように、バックスラッシュ( \ ) # を前に置いてください。 # print "<HTML>\n"; print "<HEAD>\n"; print "<TITLE>CGI TEST</TITLE>\n"; print "</HEAD>\n"; print "<BODY BGCOLOR='#FFFFFF' TEXT='#000000'>\n"; print "<XMP>\n"; # # wwwperl.cgi?引数1+引数2 で指定したコマンド引数を書き出します。 # # #print "<hr>\n"; # print "=================================\n"; print "コマンド引数\n"; print "=================================\n"; for ($i = 0; $i <= $#ARGV; $i++) { print "ARGV[$i] = [ $ARGV[$i] ]\n"; } print "\n"; print "<hr>\n"; # # CGIスクリプトが参照可能な環境変数を書き出します。 # print "=================================\n"; print "環境変数\n"; print "=================================\n"; print "AUTH_TYPE = [ $ENV{'AUTH_TYPE'} ]\n"; print "CONTENT_LENGTH = [ $ENV{'CONTENT_LENGTH'} ]\n"; print "CONTENT_TYPE = [ $ENV{'CONTENT_TYPE'} ]\n"; print "GATEWAY_INTERFACE = [ $ENV{'GATEWAY_INTERFACE'} ]\n"; print "HTTP_ACCEPT = [ $ENV{'HTTP_ACCEPT'} ]\n"; print "HTTP_FORWARDED = [ $ENV{'HTTP_FORWARDED'} ]\n"; print "HTTP_REFERER = [ $ENV{'HTTP_REFERER'} ]\n"; print "HTTP_USER_AGENT = [ $ENV{'HTTP_USER_AGENT'} ]\n"; print "HTTP_X_FORWARDED_FOR = [ $ENV{'HTTP_X_FORWARDED_FOR'} ]\n"; print "PATH_INFO = [ $ENV{'PATH_INFO'} ]\n"; print "PATH_TRANSLATED = [ $ENV{'PATH_TRANSLATED'} ]\n"; print "QUERY_STRING = [ $ENV{'QUERY_STRING'} ]\n"; print "REMOTE_ADDR = [ $ENV{'REMOTE_ADDR'} ]\n"; print "REMOTE_HOST = [ $ENV{'REMOTE_HOST'} ]\n"; print "REMOTE_IDENT = [ $ENV{'REMOTE_IDENT'} ]\n"; print "REMOTE_USER = [ $ENV{'REMOTE_USER'} ]\n"; print "REQUEST_METHOD = [ $ENV{'REQUEST_METHOD'} ]\n"; print "SCRIPT_NAME = [ $ENV{'SCRIPT_NAME'} ]\n"; print "SERVER_NAME = [ $ENV{'SERVER_NAME'} ]\n"; print "SERVER_PORT = [ $ENV{'SERVER_PORT'} ]\n"; print "SERVER_PROTOCOL = [ $ENV{'SERVER_PROTOCOL'} ]\n"; print "SERVER_SOFTWARE = [ $ENV{'SERVER_SOFTWARE'} ]\n"; print "\n"; # 時間帯を日本時間に設定する #$ENV{'TZ'} = "JST-9"; # プログラム強制中断の際の処理を記述する #$SIG{'INT'} = $SIG{'HUP'} = $SIG{'QUIT'} = $SIG{'TERM'} = "sigexit"; #sub sigexit { # # この部分に作業ファイル削除などの終了処理を記述する #} #require "jcode.pl"; #$xx = "漢字"; #&jcode'convert(*xx, "euc"); # # フォームに指定した値を読み込んで、書き出します。 # print "=================================\n"; print "フォーム変数\n"; print "=================================\n"; if ($ENV{'REQUEST_METHOD'} eq "POST") { # POSTであれば標準入力から読込みます read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'}); } else { # GETであれば環境変数から読込みます $query_string = $ENV{'QUERY_STRING'}; } # 「変数名1=値1&変数名2=値2」の形式をアンパサンド( & )で分解します @a = split(/&/, $query_string); # それぞれの「変数名=値」について foreach $a (@a) { # イコール( = )で分解します ($name, $value) = split(/=/, $a); # + や %8A などをデコードします $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; # 変数名と値を書き出します print "$name = $value\n"; # 後で使用する場合は、$FORM{'変数名'} に代入しておきます $FORM{$name} = $value; } # # # open(IN, "xxxx.txt"); while (<IN>) { print $_; } close(IN); # # # #open(IN, "/usr/local/bin/nkf -e datafile.txt |"); print "==================================================\n"; open(IN, "ls -la |"); j = 0; while (<IN>) { @linedat = split(/ /, $linedata); # print $_; j++; print "---------------------------------------------------\n"; print "j = $j\n"; foreach $i (@linedat) { print "i = $i\n"; } print "---------------------------------------------------\n"; print <<END_OF_DATA01; <tr bgcolor=#ffffcc> <td colspan=5> ■ <input type=checkbox name=chkno value=> | <input type=radio name=delno value= END_OF_DATA01 # 31 print "j"; # printf("Name=%s, Age=%d\n", $name, $age); print <<END_OF_DATA02; > | <a href=http:// END_OF_DATA02 # <a href="http://www.ie.u-ryukyu.ac.jp/~j05017/ie/profile/rep8.html">www.ie.u-ryukyu.ac.jp/~j05017/ie/profile/rep8.html</a> print "$FORM{'adrs'}"; print "$linedat(8)"; print <<END_OF_DATA03; > END_OF_DATA03 # さめがめプログラミングレポート print <<END_OF_DATA04; </a> | <input type=text size=30 name=re_name value=> | <input type=text size=4 name=kengen value=777 END_OF_DATA04 # 755 print <<END_OF_DATA04; > | END_OF_DATA04 # 2008.01.01 01:01:01 print "$linedat(8)"; print <<END_OF_DATA05; | </td> </tr> END_OF_DATA05 } close(IN); print "==================================================\n"; #open(IN01, "_form.f"); #open(IN01, "_form.clf"); #open(IN01, "_form.f"); #while (<IN01>) { # print $_; #} #close(IN01); # # HTMLの終わりの部分を書き出します。 # print "</XMP>\n"; print "</BODY>\n"; print "</HTML>\n"; print "\n"; aaa

aaa #!/usr/local/bin/perl # 上の１行の前には空行も空白文字もはいらないようにしてください。 # perlのパス名はプロバイダや環境に合わせて変更してください。 #require "jcode.pl"; # # CGIのヘッダを書き出します。通常は text/html を指定します。 # print "Content-type: text/html\n"; print "\n"; # # HTMLを書き出します。 # "～\n" の～の部分に HTML を記述しますが、ダブルクォーテーション( " ) # を用いる際は " の代わりに ' を用いるか、\" のように、バックスラッシュ( \ ) # を前に置いてください。 # print "<HTML>\n"; print "<HEAD>\n"; print "<TITLE>CGI TEST</TITLE>\n"; print "</HEAD>\n"; print "<BODY BGCOLOR='#FFFFFF' TEXT='#000000'>\n"; # # wwwperl.cgi?引数1+引数2 で指定したコマンド引数を書き出します。 # # #print "<hr>\n"; # print "=================================\n"; print "コマンド引数\n"; print "=================================\n"; for ($i = 0; $i <= $#ARGV; $i++) { print "ARGV[$i] = [ $ARGV[$i] ]\n"; } print "\n"; print "<hr>\n"; # # CGIスクリプトが参照可能な環境変数を書き出します。 # print "=================================\n"; print "環境変数\n"; print "=================================\n"; print "AUTH_TYPE = [ $ENV{'AUTH_TYPE'} ]\n"; print "CONTENT_LENGTH = [ $ENV{'CONTENT_LENGTH'} ]\n"; print "CONTENT_TYPE = [ $ENV{'CONTENT_TYPE'} ]\n"; print "GATEWAY_INTERFACE = [ $ENV{'GATEWAY_INTERFACE'} ]\n"; print "HTTP_ACCEPT = [ $ENV{'HTTP_ACCEPT'} ]\n"; print "HTTP_FORWARDED = [ $ENV{'HTTP_FORWARDED'} ]\n"; print "HTTP_REFERER = [ $ENV{'HTTP_REFERER'} ]\n"; print "HTTP_USER_AGENT = [ $ENV{'HTTP_USER_AGENT'} ]\n"; print "HTTP_X_FORWARDED_FOR = [ $ENV{'HTTP_X_FORWARDED_FOR'} ]\n"; print "PATH_INFO = [ $ENV{'PATH_INFO'} ]\n"; print "PATH_TRANSLATED = [ $ENV{'PATH_TRANSLATED'} ]\n"; print "QUERY_STRING = [ $ENV{'QUERY_STRING'} ]\n"; print "REMOTE_ADDR = [ $ENV{'REMOTE_ADDR'} ]\n"; print "REMOTE_HOST = [ $ENV{'REMOTE_HOST'} ]\n"; print "REMOTE_IDENT = [ $ENV{'REMOTE_IDENT'} ]\n"; print "REMOTE_USER = [ $ENV{'REMOTE_USER'} ]\n"; print "REQUEST_METHOD = [ $ENV{'REQUEST_METHOD'} ]\n"; print "SCRIPT_NAME = [ $ENV{'SCRIPT_NAME'} ]\n"; print "SERVER_NAME = [ $ENV{'SERVER_NAME'} ]\n"; print "SERVER_PORT = [ $ENV{'SERVER_PORT'} ]\n"; print "SERVER_PROTOCOL = [ $ENV{'SERVER_PROTOCOL'} ]\n"; print "SERVER_SOFTWARE = [ $ENV{'SERVER_SOFTWARE'} ]\n"; print "\n"; # 時間帯を日本時間に設定する #$ENV{'TZ'} = "JST-9"; # プログラム強制中断の際の処理を記述する #$SIG{'INT'} = $SIG{'HUP'} = $SIG{'QUIT'} = $SIG{'TERM'} = "sigexit"; #sub sigexit { # # この部分に作業ファイル削除などの終了処理を記述する #} #require "jcode.pl"; #$xx = "漢字"; #&jcode'convert(*xx, "euc"); # # フォームに指定した値を読み込んで、書き出します。 # print "=================================\n"; print "フォーム変数\n"; print "=================================\n"; if ($ENV{'REQUEST_METHOD'} eq "POST") { # POSTであれば標準入力から読込みます read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'}); } else { # GETであれば環境変数から読込みます $query_string = $ENV{'QUERY_STRING'}; } # 「変数名1=値1&変数名2=値2」の形式をアンパサンド( & )で分解します @a = split(/&/, $query_string); # それぞれの「変数名=値」について foreach $a (@a) { # イコール( = )で分解します ($name, $value) = split(/=/, $a); # + や %8A などをデコードします $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; # 変数名と値を書き出します print "$name = $value\n"; # 後で使用する場合は、$FORM{'変数名'} に代入しておきます $FORM{$name} = $value; } # # # open(IN, "xxxx.txt"); while (<IN>) { print $_; } close(IN); # # # #open(IN, "/usr/local/bin/nkf -e datafile.txt |"); print "==================================================\n"; open(IN, "ls -la |"); j = 0; while (<IN>) { @linedat = split(/ /, $linedata); # print $_; j++; print "---------------------------------------------------\n"; print "j = $j\n"; foreach $i (@linedat) { print "i = $i\n"; } print "---------------------------------------------------\n"; print <<END_OF_DATA01; <tr bgcolor=#ffffcc> <td colspan=5> ■ <input type=checkbox name=chkno value=> | <input type=radio name=delno value= END_OF_DATA01 # 31 print "j"; # printf("Name=%s, Age=%d\n", $name, $age); print <<END_OF_DATA02; > | <a href=http:// END_OF_DATA02 #<a href="http://www.ie.u-ryukyu.ac.jp/~j05017/ie/profile/rep8.html">www.ie.u-ryukyu.ac.jp/~j05017/ie/profile/rep8.html</a> print "$FORM{'adrs'}"; print "$linedat(8)"; print <<END_OF_DATA03; > END_OF_DATA03 # さめがめプログラミングレポート print <<END_OF_DATA04; </a> | <input type=text size=30 name=re_name value=> | <input type=text size=4 name=kengen value=777 END_OF_DATA04 # 755 print <<END_OF_DATA04; > | END_OF_DATA04 # 2008.01.01 01:01:01 print "$linedat(8)"; print <<END_OF_DATA05; | </td> </tr> END_OF_DATA05 } close(IN); print "==================================================\n"; #open(IN01, "_form.f"); #open(IN01, "_form.clf"); #open(IN01, "_form.f"); #while (<IN01>) { # print $_; #} #close(IN01); # # HTMLの終わりの部分を書き出します。 # print "</BODY>\n"; print "</HTML>\n"; print "\n"; aaa

表示オプション

横に並べて表示：

変化行の前後のみ表示：

aurora72source2 @ ウィキ

メニュー

リンク

他のサービス

更新履歴

CGI02_02.txt

「CGI02_02.txt」(2008/07/17 (木) 16:03:12) の最新版変更点