質問: $q->upload('file01'); copy ($fh, "$newfile"); } undef $q; print "Location: complete.htm\n\n"; ``` ``` -------- ``` 以上となります。 どなたか解決方法などご存知の方がいらっしゃいましたら、 その方法をご教授いただければ幸いです。 宜しくお願い致します。
回答: KojiDoi様 mts10806様 ご回答いただき有難うございます。 お二人の回答を試してみたところ、直接の解決には至らなかったのですが、 アップロードをしたテキストファイルの中身を確認したことろ、先頭に 「CGI::param called in list context from xxx line xxx, this can lead to vulnerabilities. See the warning in "Fetching the value or values of a single named parameter"」 と追記されておりました。 こちらを調べてみたところ CGI::param() for perl を リスト内で使うと、脆弱性につながるらしい というものであり、記載の通り追記してみたところ解決することができました。 このエラーについては全く理解ができていないのですが、一先ずは解決できたので安心しました。 エラーについてはもう少し自分で調べてみたいと思います。 この度はご迷惑をお掛けし申し訳ありませんでした。 本当に有難うございました。