#=プログラムの実行結果=(formatによる住所録) back
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名です。

#=プログラム=

require 'jcode.pl'; # 漢字ライブラリの読み込み
jcode'convert(*value, 'sjis'); # 日本語のコンバート
$i = 0; open (FILELIST,"realnet.txt") || die "ファイルを開けません!:$!";
while (defined ($real = )){
chomp ($real);
$realname[$i] = $real; # 配列@realnameにrealnet.txtのリストを
$i++; # while文で1個ずつ格納する
}
close (FILELIST);
$realname = @realname; # 配列の要素数を代入
$i = 1;
foreach my (@realname){
@liscut = split(/\t/,$lis);
$copany = $liscut[0];
$neme = $liscut[1];
$addres = $liscut[2];
$telno = $liscut[3];
$faxno = $liscut[4];
$r = $i++." ●";
write;
print "<hr Size=1>\n";
}
print "メンバーは、$#realname名です。\n";


format STDOUT =
@<<<<<<<<<<<<<<< ●@<<<<<<< ●@<<<<<<<<<<<<<<<<< ●@<<<<<<< ●@<<<<<<<
$r.$copany,$neme,$addres,$telno,$faxno
.


Copyright © 1999 by
fujiko. All Rights reserved. back