#=プログラムの実行結果=(罫線を使った住所録) back

【No】
【会  社  名】
【名 前】
【住     所】
【電 話】
【FAX】

1
深沢薬局
深沢 利夫
旭川市2条通7丁目右1号
22-2737
23-3359

2
上村事務機
上村 敏充
旭川市新富3条1丁目
22-9916
22-7415

3
システム工房
松本 修一
旭川市西神楽4線6号1
65-8640
65-8640

4
永山土地(株)
熊野 博幸
旭川市大雪通8丁目
26-2231
26-2768

5
(有)アートライフ
岡崎 信一
旭川市末広4条5丁目
53-3539
52-9246

6
(有)道北宅建
田中 真司
旭川市末広1条4丁目
52-1133
52-1108

7
(株)アーバンライフ
松本きよみ
旭川市東7条3丁目
24-6161
24-6234

8
(有)東栄住宅
松村 勝弘
旭川市8条通り1丁目
22-2890
22-2983

9
北海通商(株)
野村 昌弘
旭川市9条通15丁目
24-1355
24-1356

10
栄和通商(株)
平野 康敬
旭川市川端町3条4丁目
51-2626
51-2732

=メンバーは10名です=



#=プログラム=

$homepage = 'http://127.0.0.1/~fujiko/';
$top_gif = 'http://127.0.0.1/~cgi-bin/images/kaiin1.gif';
print "Content-type: text/html\n\n";
require 'jcode.pl'; # 漢字ライブラリの読み込み
jcode'convert(*value, 'sjis'); # 日本語のコンバート
$i = 0;
open (FILELIST,"realnet.txt") || die "ファイルを開けません!:$!";
while (defined ($real = )){
chomp ($real);
$realname[$i] = $real; # 配列@realnameにreal.txtのリストを
$i++; # while文で1個ずつ格納する
}
close (FILELIST);
# 標題部分の書出し
print <<"end_top";
<table border="0" width="100%">
<tr> <td width="7%"><center><font size=2 color='#4B0082'>【No】</font></center></td>
<td width="29%"><font size=2 color='#4B0082'>【会  社  名】</font></td>
<td width="14%"><center><font size=2 color='#4B0082'>【名 前】</font></center></td>
<td width="30%"><font size=2 color='#4B0082'>【住     所】</font></td>
<td width="10%"><center><font size=2 color='#4B0082'>【電 話】</font></center></td>
<td width="10%"><center><font size=2 color='#4B0082'>【FAX】</font></center></td>
</tr>
<hr size=1>
</table>
end_top
$realname = @realname; # 配列の要素数を代入
$i = 1;
# 配列要素の一つを$lisに取り込んで/\t/(タブ)区切りで分解し@liscutに納める
foreach my $lis(@realname){
@liscut = split(/\t/,$lis);
$r = $i++;
$copany = $liscut[0];
$neme = $liscut[1];
$addres = $liscut[2];
$telno = $liscut[3];
$faxno = $liscut[4];
&kaki_dashi($r,$copany,$neme,$addres,$telno,$faxno);
}
print "<hr size=1>\n";
print "<center>=メンバーは$realname名です= </center>\n";
sub kaki_dashi{
my($rr,$copanyy,$nemee,$address,$telnoo,$faxnoo) = @_;
# 書出し部分のサブルーチン
print <<"end_viu";
<table border="0" width="100%">
<tr>
<td width="7%"><center><font size=2 color='#800000'>$rr</font></center></td>
<td width="29%"><font size=2 color='#800000'>$copanyy</font></td>
<td width="14%"><center><font size=2 color='#800000'>$nemee</font></center></td>
<td width="30%"><font size=2 color='#800000'>$address</font></td>
<td width="10%"><center><font size=2 color='#800000'>$telnoo</font></center></td>
<td width="10%"><center><font size=2 color='#800000'>$faxnoo</font></center></td>
</tr>
<hr size=1>
</table>
end_viu
}

Copyright © 1999 by fujiko. All Rights reserved. back