ファイルアップローダーについて
Perlを使用してCGIのアップローダーを作成しています。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1177414
の続きなのですが、Web上にあるコードを持ってきて、自分なりに変更してみました。
上記のものだと、ラジオボタンがないので、そこを追加して、さらに拡張子に何がくるかわからないので下記のようにして拡張子を求めました。
##################
# 拡張子を求める #
##################
$filename = $in{'upfile'};
$substrings = ".";
$position = rindex $filename, $substrings;
$file_type = substr($filename, $position);
$fnme = $fnme . $file_type;
# 受信データを書き込む
open OUT,">$fnme";
binmode OUT;
print OUT $in{'upfile'};
close OUT;
$mes = '書き込みが完了しました。';
無事拡張子も出て、「sample.***」という感じでアップロードできたのですが、アップロードできたこのファイルを開こうとすると、
gifは「種類を特定できません」、bmpは「このファイルは読み取れません。このビットマップファイルは無効であるか、または現在サポートされていない形式です」
と出てしまいました。
こんな風に拡張子を取得したのではダメなのでしょうか？
