CGI02_02.txt


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

aaa

#!/usr/local/bin/perl
# 上の1行の前には空行も空白文字もはいらないようにしてください。
# 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

#www.ie.u-ryukyu.ac.jp/~j05017/ie/profile/rep8.html

print "$FORM{'adrs'}";
print "$linedat(8)";

print <<END_OF_DATA03;
><b>
END_OF_DATA03

# さめがめプログラミングレポート

print <<END_OF_DATA04;
</b></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