#!/usr/local/bin/perl # # 合格者及び登録者数表示用 # # # [履歴] # 2005/9/8 作成武田 # #-------------------- #日本語コード処理ライブラリ require './jcode.pl'; #データベースファイル $file1 = "./csv/data1.csv"; $file2 = "./csv/data2.csv"; print "Content-type: text/html\n\n"; print "\n"; print "CALS/EC資格制度\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #■データベース読取 if (!open(IN,"$file1")) { &error('データベース読取エラー','ブラウザの[戻る]ボタンを押して前の画面に移動してください.'); } @BASE = ; close(IN); $n = 0; #print '$n = ', "$n\n"; open(FILE01,$file1) || die "can not open file01"; foreach(){ chop; @_ = split(/,/); if ( $n == 0 ) { print ""; print ""; if (!open(IN,"$file2")) { &error('データベース読取エラー','ブラウザの[戻る]ボタンを押して前の画面に移動してください.'); } @BASE = ; close(IN); $n = 0; open(FILE02,$file2) || die "can not open file02"; foreach(){ chop; @_ = split(/,/); if ( $n == 0 ) { print ""; print ""; # print "\n"; print "\n"; print "\n"; print "\n"; print "

CGI版

●制度の概要

\n"; print "\n"; print "\n"; print "

　■ＣＡＬＳ／ＥＣ資格制度概要(JACIC)

\n"; print "

\n"; print "
\n"; print "

■合格者及び登録者数

■ＣＡＬＳ／ＥＣ資格試験合格者数

（平成$_[0]年$_[1]月$_[2]日現在）

"; print ""; print ""; print ""; print "

"; print ""; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; $n = 1; } else { print " "; } } close(FILE01); print "

	北海道	東北	関東	北陸	中部	近畿	中国	四国	九州	計
$_[0]	$_[1]	$_[2]	$_[3]	$_[4]	$_[5]	$_[6]	$_[7]	$_[8]	$_[9]	$_[10]

"; print "

■ＣＡＬＳ／ＥＣ資格登録者数

（平成$_[0]年$_[1]月$_[2]日現在）

"; print ""; print "

	北海道	東北	関東	北陸	中部	近畿	中国	四国	九州	計
$_[0]	$_[1]	$_[2]	$_[3]	$_[4]	$_[5]	$_[6]	$_[7]	$_[8]	$_[9]	$_[10]

"; print "

※上表においてＲＣＥの中国地区で合格者数に対して登録者数が多いのは、中国地区以外で資格試験に合格し、転勤等により中国地区で登録したため。

\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "\n"; print " \n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

　■ＣＡＬＳ／ＥＣ資格制度施行規程(184.0KB)

　■ＣＡＬＳ／ＥＣ資格制度管理委員会規則(13.3KB)

　■ＣＡＬＳ／ＥＣ資格試験事務規則(17.7KB)

　■ＣＡＬＳ／ＥＣ資格制度登録事務規則(23.7KB)

　■ＣＡＬＳ／ＥＣ資格制度　更新講習など継続教育取扱要領(302.0KB)
(2010/6/14 更新)

\n"; print "

\n"; print "
\n"; print "

\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "


		このサイトについて（ご利用条件） \| 個人情報保護・セキュリティに関する方針
		本サイトの閲覧はInternetExplorer4.0・NetscapeNavigater4.7以上の環境を推奨いたします。 \n"; print "コンテンツの無断使用・転用はご遠慮ください
		copyright(c) Japan Civil engineering Consultants Association

\n"; print "\n"; print "\n"; sub error { print "Content-type: text/html\n\n"; print "$title\n"; print "$body\n"; print "

$_[0]

\n"; print "

$_[1]

\n"; print "ブラウザの[戻る]ボタンを押して前の画面に移動してください.

\n"; print "\n"; exit; }