CGI.pm のアップロード機能 | dTblog | デザインとプログラムの境界をさまようブログ

ただいま perl で画像アップロード機能を作成中でして。んで、ベタに CGI.pm でサクっと実装したら、何かアップロードしたファイルがぶっ壊れるじゃないですか。何故。 #!/usr/local/bin/perl -l use CGI; my $q = new CGI; my $uploadfile = $q->upload('photo'); $path = "./image/photo.jpg"; open (OUT, ">$path"); binmode OUT; print OUT while (<$uploadfile>); close (OUT); close ($uploadfile) if ($CGI::OS ne 'UNIX'); chmod (0666, $path); exit; 実際には mime によって拡張子を判定したりしなくちゃいけないんだけど、大体こんな感