cgibessou_page007

7．環境変数

環境変数を全て表示してみたが・・・。＾＾；
あと、サブルーチンと呼び出しを仕分けしてみたが・・・何か？＾＾；

cgibessou_page007.cgi

#!/usr/local/bin/perl print "Content-type: text/html\n\n"; #####↓サブルーチン呼び出し##### # # # #&header; #&html; &kankyohensu; #&footer; # # # # #####↑サブルーチン呼び出し##### #####↓サブルーチン##### # # # #環境変数 sub kankyohensu{ foreach $date(sort keys %ENV){ print "$date = $ENV{$date}<br><br>\n"; } } #ヘッダーサブルーチン sub header{ print "Content-type: text/html\n\n"; print <<"header"; <title>別荘007</title> <html><body> header } #HTMLサブルーチン sub html{ print <<"munba"; munba } #フッターサブルーチン sub footer{ print "</body></html>\n"; } footer # # # #####↑サブルーチン##### exit;

今後、ここの別荘では、このテンプレートはうざくなるから（自爆
次回に、新しいテンプレート作って再スタートするっす。＾＾

環境変数を、個別に呼び出して表示できる様にしたいんだけど、配列の復習をしないといけないのかも。
とりあえず、次回は環境変数を個別に呼び出して表示するスクリプトを作ろうかと思う。

戻る