質問編集履歴

1

5/14 18:30 サーバーのエラーログを追記しました。

2019/05/14 09:30

投稿

m_nan
m_nan

スコア11

test CHANGED
File without changes
test CHANGED
@@ -183,3 +183,57 @@
183
183
  すぐに確認致しますので、ご教授いただけますと幸いです。
184
184
 
185
185
  どうぞ宜しくお願い致します。
186
+
187
+
188
+
189
+
190
+
191
+
192
+
193
+ 5/14 18:30追記
194
+
195
+ サーバーのエラーログを確認しました。(何度もUPしたせいで同じ表記がたくさんあります。)
196
+
197
+ [Tue May 14 17:17:21.572303 2019] [cgi:error] [pid 96140] [client 123.255.245.251:0] AH01215: defined(%hash) is deprecated at ./lib/jcode.pl line 641.: /***当社Web***/request/db-test/database.cgi
198
+
199
+ [Tue May 14 17:17:21.572400 2019] [cgi:error] [pid 96140] [client 123.255.245.251:0] AH01215: \t(Maybe you should just omit the defined()?): /***当社Web***/request/db-test/database.cgi
200
+
201
+ [Tue May 14 17:17:21.572434 2019] [cgi:error] [pid 96140] [client 123.255.245.251:0] AH01215: defined(%hash) is deprecated at ./lib/jcode.pl line 648.: /***当社Web***/request/db-test/database.cgi
202
+
203
+
204
+
205
+ これは、「jcode.pl」といつファイルの641行目と648行目に問題があるという事なのでしょうか?
206
+
207
+ ちなみにそのファイルの該当箇所(639~651行目)は以下の通りです。
208
+
209
+ ```
210
+
211
+ sub z2h_euc {
212
+
213
+ local(*_, $n) = @_;
214
+
215
+ &init_z2h_euc unless defined %z2h_euc;
216
+
217
+ s/($re_euc_c|$re_euc_kana)/$z2h_euc{$1} ? ($n++, $z2h_euc{$1}) : $1/geo;
218
+
219
+ $n;
220
+
221
+ }
222
+
223
+
224
+
225
+ sub z2h_sjis {
226
+
227
+ local(*_, $n) = @_;
228
+
229
+ &init_z2h_sjis unless defined %z2h_sjis;
230
+
231
+ s/($re_sjis_c)/$z2h_sjis{$1} ? ($n++, $z2h_sjis{$1}) : $1/geo;
232
+
233
+ $n;
234
+
235
+ }
236
+
237
+ ```
238
+
239
+ 宜しくお願い致します。