画像 Script Source Sample for Perl複数の画像をまとめてアップロードしたかったので、画像をアップロードするスクリプトを for ループなどで繰り返すようにしてみた。がしかし、どうしても最初の一枚目しかアップロードされず、残りの画像が正常にアップロードされない結果となった。で、あれこれと試行錯誤した結果、スクリプト内の変数名を、アップロード処理が繰り返されるたびに変えるようにしたら、期待する結果が得られるようになった。とりあえず解決したが、もっとスマートにできないだろうか。例は、5枚いっぺんにアップロードする場合。 for($i=1;$i<=5;$i++){ ${'ext'.$i} = substr(param("img$i"), rindex(param("img$i"),'.')+1); ${'query'.$i} = new CGI; ${'filename'.$i} = ${'query'.$i}->param("im
