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

1：女傑 ◆nDpXSJz8i.：2012/04/08(日) 23:41:00 ID:hQMLjY7Y0: テレビで放送されたクイズ番組の備忘録です。
44：女傑さん ◆nDpXSJz8i.：2013/03/09(土) 17:07:27: クリミア戦争
パリ条約
サンシモン
フーリエ
大学紛争
朴正煕
1860さいせいぐチェジェウ
東学
こうご農民戦争
45：女傑さん ◆nDpXSJz8i.：2013/03/10(日) 16:24:53: #!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use Jcode;
##require "./cgi-lib.pl"; # cgi-lib.plライブラリ使用宣言
$lockdir = "lock";
$sweep = "http://c.uta.la/?";
%form = ();

# $bun = jcode($name)->h2z->euc;
# my ($icode, $nmatch) = Jcode::getcode($name);
# $bun = Jcode::convert("$name", "utf8", $icode, "z2h");
# $bun = Unicode::Japanese->new($bun, $icode)->z2hKana->utf8;
# if ("$bun" ne "") {
# chomp($bun) if $bun =~ /\n$/;
# $bun =~ s/.{160}/$&<BR>\n/g;
# if ( m/^(\d+) (\d+)\r\n$/ ){

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

if ($buffer eq "") { &error; }
@pairs = split(/&/,$buffer);

foreach $pair (@pairs) {

($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/^s+//g ; # 文頭に来るスペースを削除
$value =~ s/s+$//g ; # 文末に来るスペースを削除
$value =~ s///g;
$value =~ s/\r//g;
$value =~ s/\n//g;
$value =~ s/\f//g;
$value =~ s/\t//g;
$value =~ s/\.//g;
$value =~ s/\///g;
$value =~ s/\t//g;
$value =~ s/\r\n/\n/g; # Win→Unix
$value =~ s/\r/\n/g; # Mac→Unix

$value =~ s/&/&/g;
$value =~ s/"/"/g;
$value =~ s/</</g;
$value =~ s/>/>/g;

$form{$name} = $value;
}

##&ReadParse(%form);
if ($form{"q"} ne "") { $id = $form{"q"}; }
else { &error("IDが入力されていません。"); }
#if ($id =~/\W+$/) {
#&error("IDに禁則文字が使われています"); }
#endif;

my ($icode, $nmatch) = Jcode::getcode($id);
$id = Jcode::convert("$id", "sjis", $icode, "z");
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;
}
47：女傑さん ◆nDpXSJz8i.：2013/03/10(日) 16:26:09: sub datas
{
local %table;
local($fname, $kazu, $i);
local($name, $val);

$fname = $_[0];
$_[0] =~ s/\n//g;

if (! &lock($lockdir)) {
&error("ファイルがビジーです。ロックに失敗しました。");
exit;
}
open FILE, "< $fname";
@lines = <FILE>;
$kazu = @lines;
close FILE;
&unlock($lockdir);

# for ($i=0;$i<$kazu;$i++) {
# foreach $line (@lines) {
$i = 0;
while ($i < $kazu) {
chomp $_;
my ($icode2, $nmatch) = Jcode::getcode($lines);
$lines = Jcode::convert("$lines", "sjis", $icode2, "z");

($name, $val) = split(',', $lines[$i], 2);
# ($name, $val) = split(',', $line, 2);
if ($name ne "") {
$table{$name} = $val;
}
$i++;
if ($i >= $kazu) { last; }
}

return %table;
}
48：女傑さん ◆nDpXSJz8i.：2013/03/10(日) 16:26:39: sub error {

local (@msg) = @_;
local ($i);

print "Content-type: text/html\n\n";

print <<"EOF";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<HTML><HEAD>
<TITLE>$msg[0]</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</HEAD>
<BODY>
<h1>$msg[0]</h1>
EOF
if ($msg[1] ne '') {

print "<ul>\n";
foreach $i (1 .. $#msg) { print "<li>$msg[$i]\n"; }
print "</ul>\n";
}

print <<"EOF";
</body></html>
EOF
exit;

}

sub lock
{
local $ok;
local $lockdir;

$lockdir = $_[0];
$ok = 0;

for (1 .. 3) {
if (mkdir($lockdir, 0755)) {
$ok = 1;
last;
}
else {
sleep(1);
}
}

if ($ok == 0){
if ((-M $lockdir)*60*60*24 >= 30) {
rmdir($lockdir);
if (mkdir($lockdir, 0755)) {
$ok = 1;
}
}
}

return $ok;
}

sub unlock
{
rmdir($_[0]);
}
49：女傑さん ◆nDpXSJz8i.：2013/03/10(日) 16:50:14: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=Shift_JIS">
<title>test</title>
</head><body bgcolor=#ffffff>
<?php
//$arr = array("one", "two", "three");
if (isset($_POST["q"]) and !empty($_POST["q"])) { $qry = htmlspecialchars($_POST["q"], ENT_QUOTES); }
elseif (isset($_GET["q"]) and !empty($_GET["q"])) { $qry = htmlspecialchars($_GET["q"], ENT_QUOTES); }
else { $qry = sample; }

$keywords = preg_split("/[\s,]+/", "test and, examination");
$kazu = count($keywords);
if (!$kazu < 1):
while (list($value0,$value1) = each($keywords)) {
echo "$value0:$value1<br>\n";
}

foreach ($keywords as $value => $value2) {
echo "$value:$value2<br>\n";
}
reset($keywords);
endif;
?>
<br>
<?php
$dds = preg_split("/[\s,]+/", "kkk lll, mmm");
echo "$dds[0]" . "<br>";
echo "$dds[1]" . "<br>";
echo "$dds[2]";
?>
<br>
<?php
$keywords2 = preg_split("/[\s,]+/", "test and, examination");
$kazu2 = count($keywords2);
if ($kazu2 >= 10) {exit;}
for ($i = 0; $i < $kazu2; $i++) {
$bango = $i+1;
{
echo <<<EOF
$bango:$keywords2[$i]<br>
EOF;
}
echo "\n";
}
if (file_exists("$qry.txt")) {

$lines = file("$qry.txt");

while (list($name,$value) = each($lines)) {
$text = htmlspecialchars($value);
$textbango = $name+1;
list($keyword1,$keyword2) = preg_split("/[,]+/", "$text");
{
echo "$textbango:" . "$keyword1" . "$keyword2" . "<br>";
}
echo "\n";
}
}
else
{
echo "$qry は存在しません<br>";
}
?>
<br>
<?php
/**
* ランダムな文字列を生成する。
* @param int $nLengthRequired 必要な文字列長。省略すると 8 文字
* @return String ランダムな文字列
*/
function getRandomString($nLengthRequired = 8){
$sCharList = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";
mt_srand();
$sRes = "";
for($i = 0; $i < $nLengthRequired; $i++)
$sRes .= $sCharList{mt_rand(0, strlen($sCharList) - 1)};
return $sRes;
}
// 使ってみる
echo getRandomString() . "\n";
?>
</body></html>
50：女傑さん ◆nDpXSJz8i.：2013/03/10(日) 17:35:18: /* 内部文字エンコーディングからSJISに変換 */
$str = mb_convert_encoding($str, "SJIS");

/* EUC-JPからUTF-7に変換 */
$str = mb_convert_encoding($str, "UTF-7", "EUC-JP");

/* JIS, eucjp-win, sjis-winの順番で自動検出し、UCS-2LEに変換 */
$str = mb_convert_encoding($str, "UCS-2LE", "JIS, eucjp-win, sjis-win");

/* "auto" は、"ASCII,JIS,UTF-8,EUC-JP,SJIS" に展開される */
$str = mb_convert_encoding($str, "EUC-JP", "auto");
51：女傑さん ◆nDpXSJz8i.：2013/03/10(日) 20:57:45: みみずく角鴟
はやぶさ鶻
ハンカチ手巾
ブラシ刷子
エイ海鷂魚
52：女傑 ◆nDpXSJz8i.：2013/07/23(火) 17:49:11: 山脇東洋
53：女傑 ◆nDpXSJz8i.：2013/07/23(火) 18:47:05: 吉田稔麿
54：女傑 ◆k/y1YZqW2w：2013/08/17(土) 13:45:16: 部首
聞耳
魔鬼
55：名無しさん：2013/08/19(月) 00:04:46: 所以ゆえん
呵責かしゃく
56：女傑 ◆k/y1YZqW2w：2013/08/20(火) 23:08:24: http://ja.wikipedia.org/wiki/%E5%A4%A7%E7%9F%B3%E8%89%AF%E9%87%91
57：女傑 ◆k/y1YZqW2w：2013/09/04(水) 15:41:22: 禽獣川端康成
58：女傑 ◆nDpXSJz8i.：2014/06/20(金) 19:57:22: 南禅寺天竜寺相国寺建仁寺東福寺万寿寺
建長寺円覚寺壽福寺淨智寺淨妙寺
59：女傑 ◆nDpXSJz8i.：2014/06/20(金) 20:53:13: めしいる
盲いる
60：女傑 ◆nDpXSJz8i.：2014/07/22(火) 17:58:14: 以
人
承
手
兆
ひとあし、にんにょう
再
どうがまえ
郷
おおざと

骨
ほね
暮
日
用
用
卵
わりふ、ふしづくり
豆
豆
久
の、はらいぼう
商
口
勇
力
昼
日
報
土
61：女傑 ◆nDpXSJz8i.：2014/08/11(月) 21:58:39: したたる
瀝る
62：女傑 ◆nDpXSJz8i.：2014/08/11(月) 21:59:37: シイタケ
香蕈