#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
#データまでのパス
$data1 = './control/top/top1.dat';
$data2 = './control/top/top2.dat';
$data3 = './control/top/top3.dat';
#データを配列に保存
open(LOG1,"$data1");
@line1=;
close(LOG1);
open(LOG2,"$data2");
@line2=;
close(LOG2);
open(LOG3,"$data3");
@line3=;
close(LOG3);
print <<"EOT";
(cache) 衆議院議員 高木 義明 - 決意と政策
|
|
|
|
|
|
EOT
#件数分ループ
foreach $lines1 (@line1) {
#挨拶文出力
print $lines1;
}
print <<"EOT";
EOT
#件数分ループ
foreach $lines2 (@line2) {
#決意出力
print $lines2;
}
print <<"EOT";
EOT
#件数分ループ
foreach $lines3 (@line3) {
#決意出力
print $lines3;
}
print <<"EOT";
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
EOT
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 "〒850-0035 \n";
print "長崎市元船町7-6元船ビル \n";
print " "."Tel(095)826-0446 \n";
print " "."Fax(095)826-0445 | \n";
print <<"EOT";
|
|
|
|
|
|
copyright (C) YOSHIAKI TAKAKI,All rights reserved |
|
当サイトのすべての記事、画像等の無断借用及び転載を禁止いたします。 |
EOT
exit(0);