自分も今うpろだ作成中なのですが、とあるCGI作り方ページのものを
コピーして設置してみたのですが、エラーかかってうpができません。（gifファイルなど）
何か問題があるのでしょうか？容量制限ではなさそうですが…ググリ疲れてお手上げです。
#!/usr/local/bin/perl
require './cgi-lib.pl';
&ReadParse;
#ファイル名を指定する
$fnme = 'sample';

#拡張子部分を取出す為にデータの間処理を続ける
foreach $tmp (@in)
{
# 受信データの Content-type 部分から拡張子を探す
if ($tmp =~ /(.*)Content-type:(.*)/i)
{
if ($2 =~ /image¥/jpeg/i) { $ext = '.jpg'; }
elsif ($2 =~ /image¥/pjpeg/i) { $ext = '.jpg'; }
elsif ($2 =~ /image¥/gif/i) { $ext = '.gif'; }
elsif ($2 =~ /image¥/png/i) { $ext = '.png'; }
else { $ext = 'NO'; }
}
# 受信データの filename= 部分から拡張子を探す
elsif ($tmp =~ /(.*)filename=(.*)/i)
{
if ($2 =~ /¥.jpg/i) { $ext = '.jpg'; }
elsif ($2 =~ /¥.gif/i) { $ext = '.gif'; }
elsif ($2 =~ /¥.png/i) { $ext = '.png'; }
else { $ext = 'NO'; }
}
}