質問編集履歴
4
detest\.cgiのソースコードを修正しました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -8,172 +8,176 @@
|
|
8
8
|
|
9
9
|
|
10
10
|
|
11
|
-
```
|
11
|
+
```
|
12
|
+
|
13
|
+
#!/opt/local/bin/Perl
|
14
|
+
|
15
|
+
# 下2行はおまじない
|
16
|
+
|
17
|
+
use strict;
|
18
|
+
|
19
|
+
use warnings;
|
20
|
+
|
21
|
+
|
22
|
+
|
23
|
+
# データベースへ接続するためのモジュールを読み込む
|
24
|
+
|
25
|
+
use DBI;
|
26
|
+
|
27
|
+
|
28
|
+
|
29
|
+
# データソースの登録
|
30
|
+
|
31
|
+
my $db_source = 'DBI:mysql:abc';
|
32
|
+
|
33
|
+
# ユーザー名
|
34
|
+
|
35
|
+
my $user = 'abc';
|
36
|
+
|
37
|
+
# パスワード
|
38
|
+
|
39
|
+
my $pass = 'abcd';
|
40
|
+
|
41
|
+
|
42
|
+
|
43
|
+
# SQL ステートメント
|
44
|
+
|
45
|
+
my $statement = 'SELECT `id` FROM `test` LIMIT 0 , 30;';
|
46
|
+
|
47
|
+
|
48
|
+
|
49
|
+
# データベースへの接続
|
50
|
+
|
51
|
+
# 失敗したら、エラーを表示して実行を終了させる
|
52
|
+
|
53
|
+
my $dbh = DBI->connect($db_source, $user, $pass) || die $DBI::errstr;
|
54
|
+
|
55
|
+
|
56
|
+
|
57
|
+
# SQL ステートメントをコンパイルする
|
58
|
+
|
59
|
+
# 失敗したら、エラーを表示して実行を終了させる
|
60
|
+
|
61
|
+
my $sth = $dbh->prepare($statement) || die $dbh->errstr;
|
62
|
+
|
63
|
+
|
64
|
+
|
65
|
+
# コンパイルした SQL ステートメントを実行する
|
66
|
+
|
67
|
+
# 失敗したら、エラーを表示して実行を終了させる
|
68
|
+
|
69
|
+
my $result_set = $sth->execute || die $sth->errstr;
|
70
|
+
|
71
|
+
|
72
|
+
|
73
|
+
|
74
|
+
|
75
|
+
# SQL ステートメントの実行に成功をしたら
|
76
|
+
|
77
|
+
# 実行結果を取得する
|
78
|
+
|
79
|
+
|
80
|
+
|
81
|
+
print "Content-Type: text/html\n\n";
|
82
|
+
|
83
|
+
print "\n";
|
84
|
+
|
85
|
+
|
86
|
+
|
87
|
+
|
88
|
+
|
89
|
+
if ($result_set) {
|
90
|
+
|
91
|
+
# 結果件数を取得する
|
92
|
+
|
93
|
+
my $rows = $sth->rows;
|
94
|
+
|
95
|
+
# 結果件数を表示する
|
96
|
+
|
97
|
+
print "$rows records found.\n";
|
98
|
+
|
99
|
+
# 結果件数分の処理を行う
|
100
|
+
|
101
|
+
for (my $i = 0; $i < $rows; $i++) {
|
102
|
+
|
103
|
+
# 実行結果を1件ずつ取得する
|
104
|
+
|
105
|
+
my @result = $sth->fetchrow_array;
|
106
|
+
|
107
|
+
# 実行結果の値を表示する
|
108
|
+
|
109
|
+
print "$result[0]\n";
|
110
|
+
|
111
|
+
}
|
112
|
+
|
113
|
+
}
|
114
|
+
|
115
|
+
|
116
|
+
|
117
|
+
# ステートメントハンドルのオブジェクトを閉じる
|
118
|
+
|
119
|
+
$sth->finish;
|
120
|
+
|
121
|
+
# データベースハンドルのオブジェクトを閉じる
|
122
|
+
|
123
|
+
$dbh->disconnect;
|
124
|
+
|
125
|
+
exit;
|
126
|
+
|
127
|
+
```
|
128
|
+
|
129
|
+
|
130
|
+
|
131
|
+
|
132
|
+
|
133
|
+
となってます.
|
134
|
+
|
135
|
+
クライアント側のエラーはInternal Server Errorです.
|
136
|
+
|
137
|
+
サーバ側のエラーは
|
138
|
+
|
139
|
+
```ここに言語を入力
|
140
|
+
|
141
|
+
tail -f /private/var/log/apache2/error_log
|
142
|
+
|
143
|
+
```
|
144
|
+
|
145
|
+
で表示したものは
|
146
|
+
|
147
|
+
```ここに言語を入力
|
148
|
+
|
149
|
+
[Fri Dec 18 17:54:29.075038 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: install_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC (@INC contains: /Library/Perl/5.16/darwin-thread-multi-2level /Library/Perl/5.16 /Network/Library/Perl/5.16/darwin-thread-multi-2level /Network/Library/Perl/5.16 /Library/Perl/Updates/5.16.3 /System/Library/Perl/5.16/darwin-thread-multi-2level /System/Library/Perl/5.16 /System/Library/Perl/Extras/5.16/darwin-thread-multi-2level /System/Library/Perl/Extras/5.16 .) at (eval 3) line 3.: /Library/Server/Web/Data/Sites/sugi-tomo.com/dbtest.cgi
|
150
|
+
|
151
|
+
[Fri Dec 18 17:54:29.106924 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: Perhaps the DBD::mysql perl module hasn't been fully installed,: /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi
|
152
|
+
|
153
|
+
[Fri Dec 18 17:54:29.106966 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: or perhaps the capitalisation of 'mysql' isn't right.: /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi
|
154
|
+
|
155
|
+
[Fri Dec 18 17:54:29.107004 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: Available drivers: DBM, ExampleP, File, Gofer, Proxy, SQLite, Sponge.: /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi
|
156
|
+
|
157
|
+
[Fri Dec 18 17:54:29.107041 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: at /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi line 21.: /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi
|
158
|
+
|
159
|
+
[Fri Dec 18 17:54:29.107075 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] End of script output before headers: dbtest.cgi
|
160
|
+
|
161
|
+
```
|
162
|
+
|
163
|
+
となっています.ちなみにターミナルからdbtest.cgiの
|
164
|
+
|
165
|
+
```ここに言語を入力
|
166
|
+
|
167
|
+
print "Content-Type: text/html\n\n”;
|
168
|
+
|
169
|
+
```
|
170
|
+
|
171
|
+
をコメントアウトして実行するとちゃんと動作します.
|
172
|
+
|
173
|
+
|
174
|
+
|
175
|
+
また,detest.cgiを
|
176
|
+
|
177
|
+
```
|
12
178
|
|
13
179
|
#!/usr/bin/perl5.16
|
14
180
|
|
15
|
-
# 下2行はおまじない
|
16
|
-
|
17
|
-
use strict;
|
18
|
-
|
19
|
-
use warnings;
|
20
|
-
|
21
|
-
|
22
|
-
|
23
|
-
# データベースへ接続するためのモジュールを読み込む
|
24
|
-
|
25
|
-
use DBI;
|
26
|
-
|
27
|
-
|
28
|
-
|
29
|
-
# データソースの登録
|
30
|
-
|
31
|
-
my $db_source = 'DBI:mysql:test';
|
32
|
-
|
33
|
-
# ユーザー名
|
34
|
-
|
35
|
-
my $user = 'abc';
|
36
|
-
|
37
|
-
# パスワード
|
38
|
-
|
39
|
-
my $pass = 'acide';
|
40
|
-
|
41
|
-
|
42
|
-
|
43
|
-
# SQL ステートメント
|
44
|
-
|
45
|
-
my $statement = 'SELECT `id` FROM `test` LIMIT 0 , 30;';
|
46
|
-
|
47
|
-
|
48
|
-
|
49
|
-
# データベースへの接続
|
50
|
-
|
51
|
-
# 失敗したら、エラーを表示して実行を終了させる
|
52
|
-
|
53
|
-
my $dbh = DBI->connect($db_source, $user, $pass) || die $DBI::errstr;
|
54
|
-
|
55
|
-
|
56
|
-
|
57
|
-
# SQL ステートメントをコンパイルする
|
58
|
-
|
59
|
-
# 失敗したら、エラーを表示して実行を終了させる
|
60
|
-
|
61
|
-
my $sth = $dbh->prepare($statement) || die $dbh->errstr;
|
62
|
-
|
63
|
-
|
64
|
-
|
65
|
-
# コンパイルした SQL ステートメントを実行する
|
66
|
-
|
67
|
-
# 失敗したら、エラーを表示して実行を終了させる
|
68
|
-
|
69
|
-
my $result_set = $sth->execute || die $sth->errstr;
|
70
|
-
|
71
|
-
|
72
|
-
|
73
|
-
# SQL ステートメントの実行に成功をしたら
|
74
|
-
|
75
|
-
# 実行結果を取得する
|
76
|
-
|
77
|
-
|
78
|
-
|
79
|
-
print "Content-Type: text/html\n\n";
|
80
|
-
|
81
|
-
print "\n”;
|
82
|
-
|
83
|
-
|
84
|
-
|
85
|
-
if ($result_set) {
|
86
|
-
|
87
|
-
# 結果件数を取得する
|
88
|
-
|
89
|
-
my $rows = $sth->rows;
|
90
|
-
|
91
|
-
# 結果件数を表示する
|
92
|
-
|
93
|
-
# print "$rows records found.\n";
|
94
|
-
|
95
|
-
# 結果件数分の処理を行う
|
96
|
-
|
97
|
-
for (my $i = 0; $i < $rows; $i++) {
|
98
|
-
|
99
|
-
# 実行結果を1件ずつ取得する
|
100
|
-
|
101
|
-
my @result = $sth->fetchrow_array;
|
102
|
-
|
103
|
-
# 実行結果の値を表示する
|
104
|
-
|
105
|
-
# print "$result[0]\n";
|
106
|
-
|
107
|
-
}
|
108
|
-
|
109
|
-
}
|
110
|
-
|
111
|
-
|
112
|
-
|
113
|
-
# ステートメントハンドルのオブジェクトを閉じる
|
114
|
-
|
115
|
-
$sth->finish;
|
116
|
-
|
117
|
-
# データベースハンドルのオブジェクトを閉じる
|
118
|
-
|
119
|
-
$dbh->disconnect;
|
120
|
-
|
121
|
-
exit;
|
122
|
-
|
123
|
-
```
|
124
|
-
|
125
|
-
|
126
|
-
|
127
|
-
|
128
|
-
|
129
|
-
となってます.
|
130
|
-
|
131
|
-
クライアント側のエラーはInternal Server Errorです.
|
132
|
-
|
133
|
-
サーバ側のエラーは
|
134
|
-
|
135
|
-
```ここに言語を入力
|
136
|
-
|
137
|
-
tail -f /private/var/log/apache2/error_log
|
138
|
-
|
139
|
-
```
|
140
|
-
|
141
|
-
で表示したものは
|
142
|
-
|
143
|
-
```ここに言語を入力
|
144
|
-
|
145
|
-
[Fri Dec 18 17:54:29.075038 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: install_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC (@INC contains: /Library/Perl/5.16/darwin-thread-multi-2level /Library/Perl/5.16 /Network/Library/Perl/5.16/darwin-thread-multi-2level /Network/Library/Perl/5.16 /Library/Perl/Updates/5.16.3 /System/Library/Perl/5.16/darwin-thread-multi-2level /System/Library/Perl/5.16 /System/Library/Perl/Extras/5.16/darwin-thread-multi-2level /System/Library/Perl/Extras/5.16 .) at (eval 3) line 3.: /Library/Server/Web/Data/Sites/sugi-tomo.com/dbtest.cgi
|
146
|
-
|
147
|
-
[Fri Dec 18 17:54:29.106924 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: Perhaps the DBD::mysql perl module hasn't been fully installed,: /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi
|
148
|
-
|
149
|
-
[Fri Dec 18 17:54:29.106966 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: or perhaps the capitalisation of 'mysql' isn't right.: /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi
|
150
|
-
|
151
|
-
[Fri Dec 18 17:54:29.107004 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: Available drivers: DBM, ExampleP, File, Gofer, Proxy, SQLite, Sponge.: /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi
|
152
|
-
|
153
|
-
[Fri Dec 18 17:54:29.107041 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: at /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi line 21.: /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi
|
154
|
-
|
155
|
-
[Fri Dec 18 17:54:29.107075 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] End of script output before headers: dbtest.cgi
|
156
|
-
|
157
|
-
```
|
158
|
-
|
159
|
-
となっています.ちなみにターミナルからdbtest.cgiの
|
160
|
-
|
161
|
-
```ここに言語を入力
|
162
|
-
|
163
|
-
print "Content-Type: text/html\n\n”;
|
164
|
-
|
165
|
-
```
|
166
|
-
|
167
|
-
をコメントアウトして実行するとちゃんと動作します.
|
168
|
-
|
169
|
-
|
170
|
-
|
171
|
-
また,detest.cgiを
|
172
|
-
|
173
|
-
```ここに言語を入力
|
174
|
-
|
175
|
-
#!/usr/bin/perl5.16
|
176
|
-
|
177
181
|
print "Content-type: text/html\n";
|
178
182
|
|
179
183
|
print "\n";
|
3
which Perl コマンドの出力結果を追記いたしました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -289,3 +289,21 @@
|
|
289
289
|
```
|
290
290
|
|
291
291
|
でContent-Typeをコメントアウトしなくてもdetest.cgiは動作しました.
|
292
|
+
|
293
|
+
|
294
|
+
|
295
|
+
```
|
296
|
+
|
297
|
+
which Perl
|
298
|
+
|
299
|
+
```
|
300
|
+
|
301
|
+
コマンドの出力結果は
|
302
|
+
|
303
|
+
```
|
304
|
+
|
305
|
+
/opt/local/bin/Perl
|
306
|
+
|
307
|
+
```
|
308
|
+
|
309
|
+
でした。
|
2
arguesのご指摘通りdetest\.cgiのソースコードを変更しました。Content-Typeをコメントアウトする必要はなかったです。
test
CHANGED
File without changes
|
test
CHANGED
@@ -76,92 +76,92 @@
|
|
76
76
|
|
77
77
|
|
78
78
|
|
79
|
+
print "Content-Type: text/html\n\n";
|
80
|
+
|
81
|
+
print "\n”;
|
82
|
+
|
83
|
+
|
84
|
+
|
85
|
+
if ($result_set) {
|
86
|
+
|
87
|
+
# 結果件数を取得する
|
88
|
+
|
89
|
+
my $rows = $sth->rows;
|
90
|
+
|
91
|
+
# 結果件数を表示する
|
92
|
+
|
93
|
+
# print "$rows records found.\n";
|
94
|
+
|
95
|
+
# 結果件数分の処理を行う
|
96
|
+
|
97
|
+
for (my $i = 0; $i < $rows; $i++) {
|
98
|
+
|
99
|
+
# 実行結果を1件ずつ取得する
|
100
|
+
|
101
|
+
my @result = $sth->fetchrow_array;
|
102
|
+
|
103
|
+
# 実行結果の値を表示する
|
104
|
+
|
105
|
+
# print "$result[0]\n";
|
106
|
+
|
107
|
+
}
|
108
|
+
|
109
|
+
}
|
110
|
+
|
111
|
+
|
112
|
+
|
113
|
+
# ステートメントハンドルのオブジェクトを閉じる
|
114
|
+
|
115
|
+
$sth->finish;
|
116
|
+
|
117
|
+
# データベースハンドルのオブジェクトを閉じる
|
118
|
+
|
119
|
+
$dbh->disconnect;
|
120
|
+
|
121
|
+
exit;
|
122
|
+
|
123
|
+
```
|
124
|
+
|
125
|
+
|
126
|
+
|
127
|
+
|
128
|
+
|
129
|
+
となってます.
|
130
|
+
|
131
|
+
クライアント側のエラーはInternal Server Errorです.
|
132
|
+
|
133
|
+
サーバ側のエラーは
|
134
|
+
|
135
|
+
```ここに言語を入力
|
136
|
+
|
137
|
+
tail -f /private/var/log/apache2/error_log
|
138
|
+
|
139
|
+
```
|
140
|
+
|
141
|
+
で表示したものは
|
142
|
+
|
143
|
+
```ここに言語を入力
|
144
|
+
|
145
|
+
[Fri Dec 18 17:54:29.075038 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: install_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC (@INC contains: /Library/Perl/5.16/darwin-thread-multi-2level /Library/Perl/5.16 /Network/Library/Perl/5.16/darwin-thread-multi-2level /Network/Library/Perl/5.16 /Library/Perl/Updates/5.16.3 /System/Library/Perl/5.16/darwin-thread-multi-2level /System/Library/Perl/5.16 /System/Library/Perl/Extras/5.16/darwin-thread-multi-2level /System/Library/Perl/Extras/5.16 .) at (eval 3) line 3.: /Library/Server/Web/Data/Sites/sugi-tomo.com/dbtest.cgi
|
146
|
+
|
147
|
+
[Fri Dec 18 17:54:29.106924 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: Perhaps the DBD::mysql perl module hasn't been fully installed,: /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi
|
148
|
+
|
149
|
+
[Fri Dec 18 17:54:29.106966 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: or perhaps the capitalisation of 'mysql' isn't right.: /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi
|
150
|
+
|
151
|
+
[Fri Dec 18 17:54:29.107004 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: Available drivers: DBM, ExampleP, File, Gofer, Proxy, SQLite, Sponge.: /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi
|
152
|
+
|
153
|
+
[Fri Dec 18 17:54:29.107041 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: at /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi line 21.: /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi
|
154
|
+
|
155
|
+
[Fri Dec 18 17:54:29.107075 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] End of script output before headers: dbtest.cgi
|
156
|
+
|
157
|
+
```
|
158
|
+
|
159
|
+
となっています.ちなみにターミナルからdbtest.cgiの
|
160
|
+
|
161
|
+
```ここに言語を入力
|
162
|
+
|
79
163
|
print "Content-Type: text/html\n\n”;
|
80
164
|
|
81
|
-
print "\n”;
|
82
|
-
|
83
|
-
|
84
|
-
|
85
|
-
if ($result_set) {
|
86
|
-
|
87
|
-
# 結果件数を取得する
|
88
|
-
|
89
|
-
my $rows = $sth->rows;
|
90
|
-
|
91
|
-
# 結果件数を表示する
|
92
|
-
|
93
|
-
# print "$rows records found.\n";
|
94
|
-
|
95
|
-
# 結果件数分の処理を行う
|
96
|
-
|
97
|
-
for (my $i = 0; $i < $rows; $i++) {
|
98
|
-
|
99
|
-
# 実行結果を1件ずつ取得する
|
100
|
-
|
101
|
-
my @result = $sth->fetchrow_array;
|
102
|
-
|
103
|
-
# 実行結果の値を表示する
|
104
|
-
|
105
|
-
# print "$result[0]\n";
|
106
|
-
|
107
|
-
}
|
108
|
-
|
109
|
-
}
|
110
|
-
|
111
|
-
|
112
|
-
|
113
|
-
# ステートメントハンドルのオブジェクトを閉じる
|
114
|
-
|
115
|
-
$sth->finish;
|
116
|
-
|
117
|
-
# データベースハンドルのオブジェクトを閉じる
|
118
|
-
|
119
|
-
$dbh->disconnect;
|
120
|
-
|
121
|
-
exit;
|
122
|
-
|
123
|
-
```
|
124
|
-
|
125
|
-
|
126
|
-
|
127
|
-
|
128
|
-
|
129
|
-
となってます.
|
130
|
-
|
131
|
-
クライアント側のエラーはInternal Server Errorです.
|
132
|
-
|
133
|
-
サーバ側のエラーは
|
134
|
-
|
135
|
-
```ここに言語を入力
|
136
|
-
|
137
|
-
tail -f /private/var/log/apache2/error_log
|
138
|
-
|
139
|
-
```
|
140
|
-
|
141
|
-
で表示したものは
|
142
|
-
|
143
|
-
```ここに言語を入力
|
144
|
-
|
145
|
-
[Fri Dec 18 17:54:29.075038 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: install_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC (@INC contains: /Library/Perl/5.16/darwin-thread-multi-2level /Library/Perl/5.16 /Network/Library/Perl/5.16/darwin-thread-multi-2level /Network/Library/Perl/5.16 /Library/Perl/Updates/5.16.3 /System/Library/Perl/5.16/darwin-thread-multi-2level /System/Library/Perl/5.16 /System/Library/Perl/Extras/5.16/darwin-thread-multi-2level /System/Library/Perl/Extras/5.16 .) at (eval 3) line 3.: /Library/Server/Web/Data/Sites/sugi-tomo.com/dbtest.cgi
|
146
|
-
|
147
|
-
[Fri Dec 18 17:54:29.106924 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: Perhaps the DBD::mysql perl module hasn't been fully installed,: /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi
|
148
|
-
|
149
|
-
[Fri Dec 18 17:54:29.106966 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: or perhaps the capitalisation of 'mysql' isn't right.: /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi
|
150
|
-
|
151
|
-
[Fri Dec 18 17:54:29.107004 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: Available drivers: DBM, ExampleP, File, Gofer, Proxy, SQLite, Sponge.: /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi
|
152
|
-
|
153
|
-
[Fri Dec 18 17:54:29.107041 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] AH01215: at /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi line 21.: /Library/Server/Web/Data/Sites/abcdefg.com/dbtest.cgi
|
154
|
-
|
155
|
-
[Fri Dec 18 17:54:29.107075 2015] [cgi:error] [pid 94505] [client 126.236.146.142:50492] End of script output before headers: dbtest.cgi
|
156
|
-
|
157
|
-
```
|
158
|
-
|
159
|
-
となっています.ちなみにターミナルからdbtest.cgiの
|
160
|
-
|
161
|
-
```ここに言語を入力
|
162
|
-
|
163
|
-
print "Content-Type: text/html\n\n”;
|
164
|
-
|
165
165
|
```
|
166
166
|
|
167
167
|
をコメントアウトして実行するとちゃんと動作します.
|
@@ -288,48 +288,4 @@
|
|
288
288
|
|
289
289
|
```
|
290
290
|
|
291
|
-
でContent-Typeをコメントアウトしな
|
291
|
+
でContent-Typeをコメントアウトしなくてもdetest.cgiは動作しました.
|
292
|
-
|
293
|
-
```
|
294
|
-
|
295
|
-
Backslash found where operator expected at dbtest.cgi line 36, near "#print "\"
|
296
|
-
|
297
|
-
(Might be a runaway multi-line "" string starting on line 35)
|
298
|
-
|
299
|
-
(Missing operator before \?)
|
300
|
-
|
301
|
-
String found where operator expected at dbtest.cgi line 42, near "print ""
|
302
|
-
|
303
|
-
(Might be a runaway multi-line "" string starting on line 36)
|
304
|
-
|
305
|
-
(Missing semicolon on previous line?)
|
306
|
-
|
307
|
-
Bareword found where operator expected at dbtest.cgi line 42, near "$rows records"
|
308
|
-
|
309
|
-
(Missing operator before records?)
|
310
|
-
|
311
|
-
String found where operator expected at dbtest.cgi line 48, near "print ""
|
312
|
-
|
313
|
-
(Might be a runaway multi-line "" string starting on line 42)
|
314
|
-
|
315
|
-
(Missing semicolon on previous line?)
|
316
|
-
|
317
|
-
Backslash found where operator expected at dbtest.cgi line 48, near "]\"
|
318
|
-
|
319
|
-
(Missing operator before \?)
|
320
|
-
|
321
|
-
String found where operator expected at dbtest.cgi line 48, at end of line
|
322
|
-
|
323
|
-
(Missing semicolon on previous line?)
|
324
|
-
|
325
|
-
syntax error at dbtest.cgi line 36, near "#print "\"
|
326
|
-
|
327
|
-
Global symbol "$rows" requires explicit package name at dbtest.cgi line 42.
|
328
|
-
|
329
|
-
Global symbol "@result" requires explicit package name at dbtest.cgi line 48.
|
330
|
-
|
331
|
-
Can't find string terminator '"' anywhere before EOF at dbtest.cgi line 48.
|
332
|
-
|
333
|
-
```
|
334
|
-
|
335
|
-
というエラーメッセージが出てしまいます。
|
1
perl -v の結果とターミナルからdbtest\.cgiを実行したときのコマンドを追記いたします。
test
CHANGED
File without changes
|
test
CHANGED
@@ -78,6 +78,8 @@
|
|
78
78
|
|
79
79
|
print "Content-Type: text/html\n\n”;
|
80
80
|
|
81
|
+
print "\n”;
|
82
|
+
|
81
83
|
|
82
84
|
|
83
85
|
if ($result_set) {
|
@@ -243,3 +245,91 @@
|
|
243
245
|
コマンドでもエラーを吐かないです。
|
244
246
|
|
245
247
|
どうして,webからアクセスした場合はDBD::mysqlが使えなくなってしまうのかどうしてもわかりません.どなたかお助けください.
|
248
|
+
|
249
|
+
|
250
|
+
|
251
|
+
```
|
252
|
+
|
253
|
+
perl -v
|
254
|
+
|
255
|
+
```
|
256
|
+
|
257
|
+
コマンドの結果は
|
258
|
+
|
259
|
+
```
|
260
|
+
|
261
|
+
This is perl 5, version 16, subversion 3 (v5.16.3) built for darwin-thread-multi-2level
|
262
|
+
|
263
|
+
|
264
|
+
|
265
|
+
Copyright 1987-2012, Larry Wall
|
266
|
+
|
267
|
+
|
268
|
+
|
269
|
+
Perl may be copied only under the terms of either the Artistic License or the
|
270
|
+
|
271
|
+
GNU General Public License, which may be found in the Perl 5 source kit.
|
272
|
+
|
273
|
+
|
274
|
+
|
275
|
+
Complete documentation for Perl, including FAQ lists, should be found on
|
276
|
+
|
277
|
+
this system using "man perl" or "perldoc perl". If you have access to the
|
278
|
+
|
279
|
+
Internet, point your browser at http://www.perl.org/, the Perl Home Page.
|
280
|
+
|
281
|
+
```
|
282
|
+
|
283
|
+
でした。ターミナルからdbtest.cgiを実行したときのコマンドは
|
284
|
+
|
285
|
+
```
|
286
|
+
|
287
|
+
perl5.16 dbtest.cgi
|
288
|
+
|
289
|
+
```
|
290
|
+
|
291
|
+
でContent-Typeをコメントアウトしないと
|
292
|
+
|
293
|
+
```
|
294
|
+
|
295
|
+
Backslash found where operator expected at dbtest.cgi line 36, near "#print "\"
|
296
|
+
|
297
|
+
(Might be a runaway multi-line "" string starting on line 35)
|
298
|
+
|
299
|
+
(Missing operator before \?)
|
300
|
+
|
301
|
+
String found where operator expected at dbtest.cgi line 42, near "print ""
|
302
|
+
|
303
|
+
(Might be a runaway multi-line "" string starting on line 36)
|
304
|
+
|
305
|
+
(Missing semicolon on previous line?)
|
306
|
+
|
307
|
+
Bareword found where operator expected at dbtest.cgi line 42, near "$rows records"
|
308
|
+
|
309
|
+
(Missing operator before records?)
|
310
|
+
|
311
|
+
String found where operator expected at dbtest.cgi line 48, near "print ""
|
312
|
+
|
313
|
+
(Might be a runaway multi-line "" string starting on line 42)
|
314
|
+
|
315
|
+
(Missing semicolon on previous line?)
|
316
|
+
|
317
|
+
Backslash found where operator expected at dbtest.cgi line 48, near "]\"
|
318
|
+
|
319
|
+
(Missing operator before \?)
|
320
|
+
|
321
|
+
String found where operator expected at dbtest.cgi line 48, at end of line
|
322
|
+
|
323
|
+
(Missing semicolon on previous line?)
|
324
|
+
|
325
|
+
syntax error at dbtest.cgi line 36, near "#print "\"
|
326
|
+
|
327
|
+
Global symbol "$rows" requires explicit package name at dbtest.cgi line 42.
|
328
|
+
|
329
|
+
Global symbol "@result" requires explicit package name at dbtest.cgi line 48.
|
330
|
+
|
331
|
+
Can't find string terminator '"' anywhere before EOF at dbtest.cgi line 48.
|
332
|
+
|
333
|
+
```
|
334
|
+
|
335
|
+
というエラーメッセージが出てしまいます。
|