annotate program/cgi/bus.rb @ 418:52c981371c31

ディレクトリ整理しました
author MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
date Thu, 21 Nov 2013 03:45:41 +0900
parents cgi/bus.rb@bd6e71c3e31d
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
74
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
1 #!/usr/koeki/bin/ruby
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
2 #coding: euc-jp
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
3
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
4 require 'cgi'
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
5
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
6 cgi = CGI.new(:accept_charset => "EUC-JP")
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
7 print("Content-type: text/html; charset=EUC-JP\n\n")
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
8
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
9 bus = Hash.new
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
10
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
11 direc = cgi["direc"]
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
12 dep = cgi["dep"]
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
13 arr = cgi["arr"]
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
14 hour = cgi["hour"]
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
15 min = cgi["min"]
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
16 which = cgi["which"]
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
17
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
18 if direc == "e"
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
19 open("/home/irhome/c110/c110188/Ruby/zikoku1.txt","r:euc-jp") do |zikoku|
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
20 while line = zikoku.gets
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
21 if /(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*)/ =~ line
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
22 bus[$10.to_s] = [$1.to_i,$2.to_i,$3.to_i,$4.to_i,$5.to_i,
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
23 $6.to_i,$7.to_i,$8.to_i,$9.to_i]
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
24 end
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
25 end
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
26 end
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
27
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
28 elsif direc == "k"
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
29 open("/home/irhome/c110/c110188/Ruby/zikoku2.txt","r:euc-jp") do |zikoku|
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
30 while line = zikoku.gets
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
31 if /(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*),(\S*)/ =~ line
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
32 bus[$10.to_s] = [$1.to_i,$2.to_i,$3.to_i,$4.to_i,$5.to_i,
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
33 $6.to_i,$7.to_i,$8.to_i,$9.to_i]
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
34 end
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
35 end
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
36 end
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
37 end
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
38
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
39 time = hour + min
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
40
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
41 # p time
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
42
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
43 print("<html>\n")
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
44 print("<head>\n")
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
45 print("<title>結果</title>\n")
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
46 print("</head>\n")
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
47 print("<body>\n")
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
48 print("<link rel=\"stylesheet\" href=\"ruru.css\" type=\"text/css\">\n")
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
49 print("<h1>検索結果</h1>\n")
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
50
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
51 a = 0
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
52 if which == "t"
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
53 while true
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
54 if time.to_i < bus[arr][0]
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
55 print("<h2>乗車</h2>")
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
56 printf("<p> %s %d\n</p>\n",dep,bus[dep][8])
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
57 printf("<p>下車 %s %d\n</p>\n",arr,bus[arr][8])
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
58 break
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
59 elsif a >= 8 || time.to_i > bus[arr][a] && time.to_i < bus[arr][a+1]
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
60 print("<h2>乗車</h2>")
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
61 printf("<p>%s %d\n</p>\n",dep,bus[dep][a])
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
62 print("<h2>下車</h2>")
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
63 printf("<p>%s %d\n</p>\n",arr,bus[arr][a])
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
64 break
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
65 else
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
66 a += 1
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
67 end
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
68 end
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
69 elsif which == "s"
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
70 while true
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
71 if time.to_i < bus[dep][0] || time.to_i > bus[dep][8]
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
72 printf("<p>乗車 %s %d\n</p>\n",dep,bus[dep][0])
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
73 printf("<p>下車 %s %d\n</p>\n",arr,bus[arr][0])
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
74 break
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
75 elsif time.to_i > bus[dep][a] && time.to_i < bus[dep][a+1]
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
76 printf("<p>乗車 %s %d\n</p>\n",dep,bus[dep][a+1])
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
77 printf("<p>下車 %s %d\n</p>\n",arr,bus[arr][a+1])
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
78 break
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
79 else
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
80 a += 1
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
81 end
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
82 end
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
83 end
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
84
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
85 print("</body>\n")
bd6e71c3e31d zikoku added
Miyahara Emiri <c110188@f.koeki-u.ac.jp>
parents:
diff changeset
86 print("</html>\n")

yatex.org