ビジネスセミナーガイド

#! /usr/local/bin/perl require 'jcode.pl'; $file = "/home/users/cross00/cliant.txt"; print "Content-type: text/html\n\n"; if (!open(IN,"$file")) { &error(not_open); } @DATA = ; $all = @DATA; close(IN); foreach $line (@DATA) { $match = "0"; &jcode'convert(*line,'euc'); ($s1,$s2,$s3,$s4,$s5,$s6,$s7,$s8,$s9,$s10,$s11,$s12,$s13,$s14,$s15,$s16,$s17) = split(/\,/, $line); $s17 =~ s/\n//g; if ($s17 =~ /^CL-1007/ || $s17 =~ /admin/ || $s17 =~ /^CL-1071/ || $s17 =~ /CL-1184/ || $s17 =~ /CL-1185/ || $s17 =~ /CL-1186/ || $s17 =~ /CL-1187/ || $s17 =~ /CL-1188/ || $s17 =~ /CL-9001/ || $s17 =~ /CL-9999/){ $match = "1"; } if ($match eq "0"){ &jcode'convert(*line,'sjis');push(@CS,$line); } } 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 " $\"BUSINESS$

\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 "\n"; print "\n"; print "


コンテンツ
	ユーティリティ
ビジネスマンに役立つ情報、リンクなどを掲載しています。
$\"icon_cl\"$	ｸﾛｽﾘﾝｸ会社概要

\n"; print "

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

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

企業別一覧

\n"; foreach $line (@CS) { ($s1,$s2,$s3,$s4,$s5,$s6,$s7,$s8,$s9,$s10,$s11,$s12,$s13,$s14,$s15,$s16,$s17) = split(/\,/, $line); $s17 =~ s/\n//g; print "■$s1
\n"; } print "

\n"; print "

ご要望・お問い合わせはinfo\@crosslink.co.jpまで。

\n"; print "\n"; print "\n"; sub error { $error = $_[0]; if ($error eq "not_open") { $error_msg = "データファイルをオープンできません。"; } else { $error_msg = "処理に何らかのエラーが発生し作業は中止されました。"; } print "エラー\n"; print "\n"; print "

エラー

\n"; print "$error_msg

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