重複ファイル名ある場合ファイル名の末尾に1をつける。

結局動作確認までしてしまった・・・ # ファイル受信時の処理 sub file_receive { $form_log .= "ファイルアップロードを処理しています。<br>"; if ($upload) { # 同名のファイルがある場合、削除権限があれば上書き if (-e $formdata{'savefile'}) { # もしかしたらファイル名をsjisに変えなくてはいけないかも（その場合コメントをとる） #$formdata{'savefile'} = &jcode::sjis ($formdata{'savefile'}); # ファイル名と拡張子を分ける (@file_) = split(/\./,$formdata{'file'}); $file_num = 0; $file_num2 = @file_; foreach $file_ (@file_) { $file_nu