クイズ番組でやってた問題の備忘録

46：女傑さん ◆nDpXSJz8i.：2013/03/10(日) 16:25:26: $file = "tdata.cgi";
if (!(-e $file)) { &error("存在しません"); }
elsif (-z $file) { &error("データ異常"); }
%urltable = &datas("$file");

if (exists $urltable{$id}) {

$data = $urltable{$id};
($url, $email, $mes) = split(',', $data, 3);

if ($url !~ /hasegawa\.jp\.land\.to/) {
$url =~ s/(https?|ftp|gopher|telnet|whois|news):([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/<a href=\"$sweep$1\:$2\" target=\"_blank\">$1\:$2<\/a>/g;
} else {
$url =~ s/(https?|ftp|gopher|telnet|whois|news):([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/<a href=\"$1\:$2\" target=\"_blank\">$1\:$2<\/a>/g;
}

$mes =~ s/.{160}/$&<BR>\n/g;
if ($email =~ /\s|\,/) { &error('エラー','Ｅメールを正しくご記入ください.'); }
if ($email !~ /^[^@]+@[^.]+\..+/) {
&error("メールアドレスの書式に誤りがあります。");
}

if ($mes !~ /[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]/) {
&error("メッセージに日本語が含まれていません");
}
$email =~ s/(^[^@]+@[^.]+\..+)/<a href=\"mailto\:$1\">$1<\/a>/g;

print "Content-type: text/html\n\n";
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0//EN\">\n";
print "<html><head><meta http-equiv=\"Content-Type\" content=\"text/html; charset=shift_jis\"><title>$mes</title></head>\n";
print "<body>\n";
print "<h1>$mes</h1><br>\n";
print "<h1>$url</h1><br>\n";
print "<h1>$email</h1>\n";
print '<p></body></html>' . "\n";
exit;
} else {
print "Content-type: text/html\n\n";
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0//EN\">\n";
print "<html><head><meta http-equiv=\"Content-Type\" content=\"text/html ; charset=shift_jis\"><title>$idは、登録されていません。</title></head>\n";
print "<body>\n";
print "<h1>$idは、登録されていません。</h1>\n";
print '<p></body></html>' . "\n";
exit;
}

新着レスの表示

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

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

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

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