29コメント4KB

Perlでよく使うモノを並べてみよう

■ このスレッドは過去ログ倉庫に格納されています

0001nobodyさん

02/12/26 10:59ID:7gPWZ3Cy

例）CGIデコード

# 環境変数取得
if ($ENV{'REQUEST_METHOD'} eq "POST"){
read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
} else {
$query = $ENV{'QUERY_STRING'};
}

# デコード
@args = split(/&/, $query);
foreach $i (@args) {
($name, $val) = split(/=/, $i);
$val =~ tr/+/ /;
$val =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack('C', hex($1))/eg;
$cgi{$name} = $val;
}

こんな感じでよく使うものを出していきましょう。

0002nobodyさん

02/12/26 11:06ID:???

　　　　　　　　　　　　立
　　　　　　　　　初　　て
　　　　　　　　　め　　て
　　　　　　　　　て　　み
　　　　　　駄　わ　　て
　　　　　　ス.　か
　　　　　　レ　る
　　　　　　か
　　　圖　な

　 Λ＿Λ
　（　´∀｀）
　（　　　　）

0003nobodyさん

02/12/26 11:19ID:DQIeVDZ8

質問です。
ただCGIでHTMLを読み込んで表示させたいのですがどうすればよいでつか？
本当にただindex.htmを外から読み込んでそのまま表示させるだけです。

■ このスレッドは過去ログ倉庫に格納されています