html

Question

#!/urs/bin/local/perl use CGI qw(:standard); use Date::Calc qw(:all); $year = param('year'); $mon = param('mon'); if ($year or $mon){ #年、月がないとエラー if (!$year){ &error(100,'年、月を入力して下さい。'); }elsif(!$mon){ &error(110,'年、月を入力して下さい。'); } #年は１以上、月は、１～１２の範囲 #紀元前は計算しない if($year < 1){ &error(120,'年に誤りがあります。'); } if($mon < 1 or $mon > 12){ &error(130,'月に誤りがあります。'); } #カレンダーの計算 $cline = Calendar($year,$mon); #先頭行と最終行をとる $cline =~ s/^ //; $cline =~ s/ $//; #改行区切りで分割 @Cal = split(/ /,$cline); #まず、年、月をテーブルに入れる $CAL.=<<"EOL"; EOL #曜日をテーブルに入れる $CAL.=<<"EOL"; EOL #日付をテーブルに入れる for($i=2; $i<=$#Cal; $i++){ $CAL.= <<"EOL"; EOL $shift=3; #１日に３文字文使う $s = 0; for ($j=0; $j<7; $j++){ $day = substr($Cal[$i], $s, $shift); if($day !~ /\d/){ $day = ' '; #数字がなければスペース }else{ $day =~ s/ //g; #余分なスペースをとる } $CAL.=<<"EOL"; EOL $s += $shift #3文字を右へ $s += 1; #２回目からは、区切り文字も計算 } $CAL.=<<"EOL"; EOL } $CAL.=<<"EOL";

$year年$mon月
日	月	火	水	木	金	土
$day

EOL } print <<"EOL"; Content-type: txet/html というプログラムを作ってカレンダーを表示させたいのですが、 HTMLで打つときにカレンダー年: 月:

ここに入れるべきものがよくわかりません。何を入れるとプログラムにきれいにカレンダーが表示されるのでしょうか？

TA-HT81S · Accepted Answer

何がしたいのかよくわからないです。

> HTMLで打つときに

って、HTMLでカレンダーを動的に変化させるつもりですか？

1ページ目がHTMLで書かれてて、そこで年と月を入力し、
2ページ目は、report.cgiでカレンダーを表示するのでは？

fire-- · Answer

htmlからformでcgiを呼び出すと、呼び出したhtmlの特定の書式の部分を書き換えてくれるような機能があると思ってませんか。

そういう機能はありません。

cgiでカレンダー以外の部分(たぶん年月を指定するform)も含んだhtmlを書き出すのがもっとも素直なやり方でしょう。

あるいは、元のhtmlをframe構造にしておき、formのtargetでframeを指定するとかでしょう。

http://www.tohoho-web.com/www.htm
でも参考にしてやってみてはどうでしょう。

akira212 · Answer

カテゴリーがＣＧＩではないでしょうか？
少なくともＨＴＭＬとは、少し違うような気がします。

ＦＯＲＭの中で年月をいれると、下にカレンダーが表示されるといったことをしたいようですが、「.cgi」の拡張子でそのなかにＣＧＩをかくか、またはフォームで値をＣＧＩに渡すだけにするかのどちらかのようなきがします。

私はＣＧＩが専門じゃないので、やはりＣＧＩのカテゴリで再投稿されてみてはいかがでしょうか？
もちろん、このカテゴリーでも返信はあるかと思いますが、カテゴリを移動すれば、より確実な気がします。

html

何がしたいのかよくわからないです。

htmlからformでcgiを呼び出すと、呼び出したhtmlの特定の書式の部分を書き換えてくれるような機能があると思ってませんか。

カテゴリーがＣＧＩではないでしょうか？

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング