プログラムスレッド

39：女傑 ◆nDpXSJz8i.：2012/04/12(木) 03:18:54 ID:hQMLjY7Y0: 連想配列の使い方
#!/usr/bin/perl

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {

($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*value,'sjis');

$value =~ s/<//g;
$value =~ s/>//g;
$value =~ s/"//g;
$value =~ s/\n//g;
$value =~ s/\r//g;
$value =~ s/\,//g;
}

if ($ENV{'REQUEST_METHOD'} eq "POST") { $value = $id; }
else { $buffer = $id; }

%data = (
'1111', '1111さん',
'2222', '2222さん',
);

if (exists $data{$id}) {

print "Content-type: text/html\n\n";
print <<"EOF";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<HTML>
<HEAD>
<TITLE>$data{$id}</TITLE>
</HEAD>
<BODY>
<font>$data{$id}</font>
</body>
EOF
}

else { &error; }

exit;

sub error {

print "Content-type: text/html\n\n";
print <<"EOF";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<HTML>
<HEAD>
<TITLE>ERROR</TITLE>
</HEAD>
<BODY></body>
</HTML>

EOF

exit;

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板