新着情報|太陽光・人工光や培養液などを制御し野菜の安定供給を可能にする-千葉大学 植物工場

農林水産省 植物工場 実証・展示・研修事業 千葉大学拠点
  • 農林水産省 植物工場 実証・展示・研修事業 千葉大学拠点のトップページへ
  • アクセスマップ
  • サイトマップ

人と環境にやさしい 高品質・高収量・計画的植物生産とその普及促進のために

新着情報

新着情報一覧

#!/usr/local/bin/perl # ==================================================================== # 農林水産省 植物工場 実証・展示・研修事業 千葉大学拠点CGIスクリプト # 作成者: 株式会社コアネット # 著作権所有:株式会社コアネット(Copyright(c) COANET) # WEB:http://www.coa2.co.jp # 設置・規約:システム設置マニュアルをご参照下さい。 # ==================================================================== #---------------------------------------------------------------- # 初期設定 #---------------------------------------------------------------- # ログファイル設定 $CGI_NAME[0] = 'シンポジウム・セミナー'; $CGI_PATH[0] = '../seminar/data/'; $CGI_DATA[0] = 'datalog.dat'; $CGI_URL[0] = 'news_seminer.html'; $CGI_NAME[1] = '研修'; $CGI_PATH[1] = '../lecture/data/'; $CGI_DATA[1] = 'datalog.dat'; $CGI_URL[1] = 'news_lecture.html'; $CGI_NAME[2] = '活動レポート'; $CGI_PATH[2] = '../report/data/'; $CGI_DATA[2] = 'datalog.dat'; $CGI_URL[2] = 'news_report.html'; $CGI_NAME[3] = 'プレスリリース'; $CGI_PATH[3] = '../press/data/'; $CGI_DATA[3] = 'datalog.dat'; $CGI_URL[3] = 'news_press.html'; $CGI_NAME[4] = '公募情報'; $CGI_PATH[4] = '../recruit/data/'; $CGI_DATA[4] = 'datalog.dat'; $CGI_URL[4] = 'human_recruit.html'; $CGI_NAME[5] = '受賞'; $CGI_PATH[5] = '../award/data/'; $CGI_DATA[5] = 'datalog.dat'; $CGI_URL[5] = 'news_award.html'; $CGI_NAME[6] = 'お知らせ'; $CGI_PATH[6] = '../news/data/'; $CGI_DATA[6] = 'datalog.dat'; $CGI_URL[6] = 'information.html'; #$CGI_NAME[7] = '人材育成'; #$CGI_PATH[7] = '../human/data/'; #$CGI_DATA[7] = 'datalog.dat'; #$CGI_URL[7] = 'human.html'; #$CGI_NAME[8] = '教育・カリキュラム'; #$CGI_PATH[8] = '../h_support/data/'; #$CGI_DATA[8] = 'datalog.dat'; #$CGI_URL[8] = 'human_support.html'; # 表示件数 $DATA_MAX = 100; #---------------------------------------------------------------- # 実行前処理 #---------------------------------------------------------------- print "Content-type: text/html\n\n"; @tmpNewData = (); $cntCgiData = @CGI_DATA; # 複数ログ読込み処理 for ($i=0; $i<$cntCgiData; $i++) { if (!$CGI_PATH[$i] || !$CGI_DATA[$i]) { next; } if ($CGI_PATH[$i] !~ /\/$/) { $CGI_PATH[$i] .= "/"; } # ログファイル読込み open(IN,"$CGI_PATH[$i]$CGI_DATA[$i]");# || &Error('ログファイルの読込みに失敗しました'); flock(IN,2); @IN_DATA = ; flock(IN,8); close(IN); # 必要な件数分ログデータを取得する if (@IN_DATA) { $j = 0; foreach (@IN_DATA) { if ($j >= $DATA_MAX) { last; } @data = split (/<>/, $_); $tmpInData = "$data[0]<>$i<>$data[2]<>$data[3]<>$data[4]<>$data[5]<>$data[6]<>$data[7]<>$data[8]<>\n"; push(@tmpNewData, $tmpInData); $j++; } } } # 取得したログデータをソートする @tmpNewData = sort { (split(/<>/,$b))[0] <=> (split(/<>/,$a))[0] } @tmpNewData; if (@tmpNewData) { $i = 0; foreach (@tmpNewData) { if ($i >= $DATA_MAX) { last; } @data = split (/<>/, $_); ($time, $sec, $min, $hour, $mday, $mon, $year, $week_j, $week_e) = &getTime($data[0]); $mon = int($mon); #一桁の時、先頭の「0」を取る $mday = int($mday); $toukoubi = $year.'年'.$mon.'月'.$mday.'日'; $tmpTitle = &decHtmlEscape($data[3]); $tmpBody = &decHtmlEscape($data[4]); print <<"EOM"; EOM $i++; } } exit; #------------------------------------------------- # 時間の取得 ($time, $sec, $min, $hour, $mday, $mon, $year, $week_j, $week_e) = &getTime($time); #------------------------------------------------- sub getTime { local($time) = $_[0]; local($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst); if (!$time) { $time = time; } ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time); $sec = sprintf("%.2d", $sec); $min = sprintf("%.2d", $min); $hour = sprintf("%.2d", $hour); $mday = sprintf("%.2d", $mday); $mon = sprintf("%.2d", $mon + 1); $year = sprintf("%.4d", $year + 1900); $week_j = sprintf("%s", ("日", "月", "火", "水", "木", "金", "土")[$wday]); $week_e = sprintf("%s", ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat")[$wday]); return ($time, $sec, $min, $hour, $mday, $mon, $year, $week_j, $week_e); } #------------------------------------------------- # HTMLタグ使用許可処理 #------------------------------------------------- sub decHtmlEscape { local($str) = $_[0]; # エスケープ解除 $str =~ s/&/&/g; $str =~ s/"/"/g; $str =~ s/<//g; return $str; }

PAGE TOP

シンポジウム・セミナー
研修
お知らせ

NPO植物工場研究会
NPO植物工場研究会 植物工場勉強会
お問い合わせ

農林水産省 植物工場
実証・展示・研修事業 千葉大学拠点

国立大学法人 千葉大学
環境健康フィールド科学センター
〒277-0882
千葉県柏市柏の葉6丁目2番1号
TEL/FAX:04-7137-8312
【受付】平日10:00〜12:00,13:00〜17:00
お問い合わせはこちらへ

千葉大学