質問編集履歴
1
5/14 18:30 サーバーのエラーログを追記しました。
    
        title	
    CHANGED
    
    | 
            File without changes
         | 
    
        body	
    CHANGED
    
    | @@ -90,4 +90,31 @@ | |
| 90 90 |  | 
| 91 91 | 
             
            見ていただくにあたり、不足している箇所等ありましたら
         | 
| 92 92 | 
             
            すぐに確認致しますので、ご教授いただけますと幸いです。
         | 
| 93 | 
            -
            どうぞ宜しくお願い致します。
         | 
| 93 | 
            +
            どうぞ宜しくお願い致します。
         | 
| 94 | 
            +
             | 
| 95 | 
            +
             | 
| 96 | 
            +
             | 
| 97 | 
            +
            5/14 18:30追記
         | 
| 98 | 
            +
            サーバーのエラーログを確認しました。(何度もUPしたせいで同じ表記がたくさんあります。)
         | 
| 99 | 
            +
            [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
         | 
| 100 | 
            +
            [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
         | 
| 101 | 
            +
            [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
         | 
| 102 | 
            +
             | 
| 103 | 
            +
            これは、「jcode.pl」といつファイルの641行目と648行目に問題があるという事なのでしょうか?
         | 
| 104 | 
            +
            ちなみにそのファイルの該当箇所(639~651行目)は以下の通りです。
         | 
| 105 | 
            +
            ```
         | 
| 106 | 
            +
            sub z2h_euc {
         | 
| 107 | 
            +
                local(*_, $n) = @_;
         | 
| 108 | 
            +
                &init_z2h_euc unless defined %z2h_euc;
         | 
| 109 | 
            +
                s/($re_euc_c|$re_euc_kana)/$z2h_euc{$1} ? ($n++, $z2h_euc{$1}) : $1/geo;
         | 
| 110 | 
            +
                $n;
         | 
| 111 | 
            +
            }
         | 
| 112 | 
            +
             | 
| 113 | 
            +
            sub z2h_sjis {
         | 
| 114 | 
            +
                local(*_, $n) = @_;
         | 
| 115 | 
            +
                &init_z2h_sjis unless defined %z2h_sjis;
         | 
| 116 | 
            +
                s/($re_sjis_c)/$z2h_sjis{$1} ? ($n++, $z2h_sjis{$1}) : $1/geo;
         | 
| 117 | 
            +
                $n;
         | 
| 118 | 
            +
            }
         | 
| 119 | 
            +
            ```
         | 
| 120 | 
            +
            宜しくお願い致します。
         | 
