>ごはん
>サラダ
>かぼちゃサラダ
>おからサラダ
>漬物
>ほうれん草の胡麻和え
>柿
>りんご
>オレンジ
>ラフランス
>ほっけ
>おからの煮物
>ヨーグルト



ごはんツール

#!/usr/bin/perl

#

@menu="ごはん",

	"サラダ",
	"かぼちゃサラダ",
	"おからサラダ",
	"漬物",
	"ほうれん草の胡麻和え",
	"柿",
	"りんご",
	"オレンジ",
	"ラフランス",
	"ほっけ",
	"おからの煮物",
	"ヨーグルト");

sub decode {

   local($args, $n_read, *terms, $tag, $value);
   $ENV{'REQUEST_METHOD'} eq "POST" ?
   ($n_read = sysread(STDIN, $args, $ENV{'CONTENT_LENGTH'})):
   ($args = $ENV{'QUERY_STRING'});
   @terms = split('&', $args);
   foreach (@terms) {
       ($tag, $value) = split(/=/, $_, 2);
       $value =~ s/\+/ /g;
       $value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("c", hex($1))/ge;
       $tags{$tag} = $value;       # tags is global
   }

}

print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=EUC-JP\">";
print "<TITLE>ごはんツール</TITLE>\n";
print "</HEAD>\n";
print "<BODY>\n";
print "<form method=\"POST\" action=\"./gohan.cgi\">";
print "<p><font size=\"4\">■ごはんツール</font></p>";
print "<p>メニューをチェックして、それぞれにカロリーを記入してください。</p>";
foreach my $each_menu (@menu){

	print "<input type=\"checkbox\" name=\"in\" value=\"$each_menu\">$each_menu   \n";
	print "<input type=\"text\" name=\"in\" size=\"5\" maxlength=\"5\"><br>\n";

}

print "<p><input type=\"submit\" value=\"整形\" name=\"submit\"></p>\n";

#&decode();

#print $tags{in};

#&gyoubunkatsu("$tags{in}");

#print "<br>";

#print "<font size=\"1\">動作に不具合等ありましたらご連絡ください。早急に対応したいと思います。(2008年11月17日<a href=\"http://hinata.la.coocan.jp/pukiwiki/?FrontPage\" target=\"blank\">日向充</a>)</font>";

#print "<br><br><br>\n";

#print "<script type=\"text/javascript\"><!--\n";

#print "amazon_ad_tag = \"hinatamitsuru-22\"; amazon_ad_width = \"728\"; amazon_ad_height = \"90\";//--></script>\n";

#print "<script type=\"text/javascript\" src=\"http://www.assoc-amazon.jp/s/ads.js\"></script>\n";

#print "<iframe src=\"http://rcm-jp.amazon.co.jp/e/cm?t=hinatamitsuru-22&o=9&p=20&l=qs1&f=ifr\"\n";

#print "width=\"120\" height=\"90\" frameborder=\"0\" scrolling=\"no\"></iframe>";

#print "<br>";

#print "<font color=\"white\">";

#print $tags_n{in};

#print "</font>";
print "</BODY>\n";
print "</HTML>\n";


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2008-11-22 (土) 22:22:22 (4354d)