#!/usr/koeki/bin/ruby
$KCODE = 'e'
name = Array.new
city = Array.new
place = Array.new
tel = Array.new
i = 0
open("web_data_ta05001.dat") do |data|
while readline = data.gets
# p readline
if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/ =~ readline
name[i] = $1
city[i] = $2
place[i] = $3
tel[i] = $4
i += 1
end
end
end
j = 0
while j < i
open("ta05001_#{j}.html", "w") do |letter|
letter.print("\n")
letter.print("\n")
letter.print("\tオレオレ詐欺会社からの架空請求メール\n")
letter.print("\n")
letter.print("\n")
letter.printf("\t%s様
\n", name[j])
letter.printf("\tこちらはオレオレ詐欺会社です。
\n")
letter.printf("\t%s にある %s の学生として活躍されていることと思います。
\n", city[j], place[j])
letter.printf("\tさて、さる 6 月に携帯電話 %s からアクセスしたサイトへの ...
\n",tel[j])
letter.print("\n")
letter.print("\n")
j += 1
end
end