CGIが動きません

質問

GETのbodyにbase64でエンコードされた文字列
typeにMIMEタイプ

それをエンコードして出力するものです

よろしくお願いします。

以下はソースコードです。
#!/usr/local/bin/perl
@querystring = split (/&/,$ENV{'QUERY_STRING'});
foreach $tmp (@querystring) {
($vname,$value) = split (/=/,$tmp);
$args{$vname} = &url_decode($value);
}
sub url_decode($) {
my $url_decode_str = shift;
$url_decode_str =~ tr/+/ /;
$url_decode_str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
return $url_decode_str;
}
print "Content-type:".$args{'type'}."\n\n";
binmode (STDOUT);
$out = MIME::Base64::decode_base64($args{'body'});
print $out;

回答No.1

salsberry · ベストアンサー

単に「動きません」じゃなくて、どう動かないのかを書きましょう。得られた出力が自分の期待していたものと違うとか、プログラムは起動するけど途中でエラーになるとか、そもそも起動できないとか。
あとはそのCGIプログラムを動かす環境についての情報も必要です。OS、Perl、HTTPサーバなどの種類とバージョンは欲しいところ。/usr/local/bin/perlとあるから何らかのUNIX系OSなのだろうというところまでは推測できますが。

本題に戻ると、1行目と2行目の後に
use MIME::Base64 ();
を足したらどうなりますか？

また、"Content-type:"のコロンの後ろには空白を1文字入れておくのが一般的でしょう。

お礼

すみません、焦って環境に関することを書き忘れてしまいました。

今の２つを試したらできました。
本当にありがとうございました。