したらばTOP ■掲示板に戻る■ 全部 1-100 最新50 | |

プログラムスレッド

100：女傑 ◆nDpXSJz8i.：2013/01/25(金) 20:59:37
<?php
$keywords = preg_split("/[\s,]+/", "test and, examination");
$kazu = count($keywords);
if ($kazu >= 10) {exit;}
for ($i = 0; $i < $kazu; $i++) {
$bango = $i+1;
{
echo <<<EOF
$bango:$keywords[$i]<br>
EOF;
}
echo "\n";
}
?>
101：女傑 ◆nDpXSJz8i.：2013/01/28(月) 16:00:43
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=Shift_JIS">
<title>芥川龍之介賞&nbsp;受賞者データベース</title>
</head><body bgcolor=#ffffff>
<hr>
<?php
/*
mb_関数が使えない場合はhttp://www.spencernetwork.org/にて漢字コード変換(簡易版)を入手する事
*/

if (file_exists("jcode-LE.php")) require_once("jcode-LE.php");

// 内部文字列文字化け対策
if (function_exists("mb_internal_encoding")) {
mb_internal_encoding("SJIS");
mb_language("Japanese");
}

/*
QUERY受信(POST対応)
htmlspecialchars関数にて、タグ処理を実現
*/

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 = htmlspecialchars($_SERVER['QUERY_STRING'], ENT_QUOTES); }

// QUERYが空白の場合
if (empty($qry))
{
echo "<h5>QUERYがありません</h5>";
echo "</body></html>";
exit;
}

// QUERYのマッチング
$qry = substr($qry,0,32);

102：女傑 ◆nDpXSJz8i.：2013/01/28(月) 16:02:22
// QUERYの文字コード統一
if (get_magic_quotes_gpc()) {
$qry = stripslashes($qry);
$qry = mb_convert_encoding($qry,"sjis","JIS, sjis-win, eucjp-win, utf-8");
}
$wid = "$qry";

/*
preg_match("^[ァ-ヶ]+$",$qry))
preg_match("^[ぁ-ん]+$",$qry))
preg_match("/^[A-Za-z0-9]{12}/i", "$qry"))
*/

// QUERYのサニタイズ処理
$wid = str_replace(">",">",$wid);
$wid = str_replace("<","<",$wid);
$wid = str_replace("\r\n", "\r",$wid);
$wid = str_replace("\r", "\n",$wid);
$wid = preg_replace("/\n{2,}/", "\n\n", $wid);
$wid = str_replace("\n", "<br>", $wid);

// MySQLに接続する。
$host = "localhost";
$id = "";
$password = "";

if( !$res_dbcon = mysql_connect( $host, $id, $password) ){
echo "MYSQL への接続に失敗しました。";
exit;
}

// 文字コードを変換する
mysql_query("SET NAMES sjis");

// MySQL 読み込み。
$dbname = "bungaku";
mysql_select_db("$id");

$result = mysql_query("SELECT kai, nendo, myoji, namae, sakuhin, keisai FROM $dbname WHERE sakusya='$wid' or kai='$wid' or nendo='$wid' or myoji='$wid' or sakuhin='$wid' or namae='$wid'");
$num_rows = mysql_num_rows($result);
$allkazu = $num_rows;

// 項目を配列に入れる
$koumoku = array(
"0" => "受賞回",
"1" => "受賞年度",
"2" => "受賞者氏名",
"3" => "受賞作品",
"4" => "掲載雑誌",
);

103：女傑 ◆nDpXSJz8i.：2013/01/28(月) 16:02:57
/*
for ($i = 0 ; $i < mysql_num_rows($result) ; $i++){
$row = mysql_fetch_array($result, NULL, PGSQL_ASSOC);
}
while ($row = mysql_fetch_array($result, MYSQL_ASSOC)) {
*/

// 検索結果を出力する
for ($i=0; $i < mysql_num_rows($result); $i++){
$row = mysql_fetch_array($result,MYSQL_ASSOC);

echo <<<EOF

$koumoku[0]:第$row[kai]回<br>
$koumoku[1]:$row[nendo]年度<br>
$koumoku[2]:$row[myoji]$row[namae]さん<br>
$koumoku[3]:$row[sakuhin]<br>
$koumoku[4]:$row[keisai]<br>
<img src="https://chart.googleapis.com/chart?chs=120x120&amp;cht=qr&amp;chl=$row[sakuhin]&choe=Shift_JIS&chld=L|1\">
<br>
<table border="1" width="1000" cellspacing="0" cellpadding="5" bordercolor="#333333">
<tr>
<th bgcolor="#EE0000"><font color="#FFFFFF" width="200">$koumoku[0]</font></th>
<th bgcolor="#EE0000" width="200"><font color="#FFFFFF">$koumoku[1]</font></th>
<th bgcolor="#EE0000" width="500"><font color="#FFFFFF">$koumoku[2]</font></th>
<th bgcolor="#EE0000" width="1000"><font color="#FFFFFF">$koumoku[3]</font></th>
<th bgcolor="#EE0000" width="300"><font color="#FFFFFF">$koumoku[4]</font></th>
</tr>
<tr>
<td bgcolor="#FFBBFF" align="left" width="200" nowrap>$row[kai]</td>
<td bgcolor="#87cefa" valign="left" width="200">$row[nendo]</td>
<td bgcolor="#ff7f50" valign="left" width="500">$row[myoji]$row[namae]</td>
<td bgcolor="#90EE90" valign="left" width="1000">$row[sakuhin]</td>
<td bgcolor="#EEEE00" valign="left" width="300">$row[keisai]</td>
</tr>
</table>
<hr>
EOF;
}

echo <<<EOF
<font>検索の結果、全部で$allkazu作品見つかりました。</font>
EOF;

// 出力する結果がなくなれば終了
if(!$result){break;}

// 出力された結果を開放する。
mysql_free_result($result);

// MySQLを閉じる。
//mysql_close($res_dbcon);
$close_flag = mysql_close($res_dbcon);

if ($close_flag){
print('切断に成功しました。<br>');
}
?>
</body></html>

104：女傑 ◆nDpXSJz8i.：2013/01/29(火) 13:43:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head><title>ホームページ改装中</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=Shift_JIS">
<body>
<?php
$thisphp="page.php";
$page_line_num=5;#１つのページに表示させたい件数
if(!$page_num= htmlspecialchars($_GET["page"], ENT_QUOTES)){$page_num=1;}#最初は１ページ目とする
$page_num = str_replace(">",">",$page_num);
$page_num = str_replace("<","<",$page_num);
$page_num = str_replace("\r\n", "\r",$page_num);
$page_num = str_replace("\r", "\n",$page_num);
$page_num = preg_replace("/\n{2,}/", "\n\n", $page_num);
$page_num = str_replace("\n", "<br>", $page_num);

$array=array('新馬','新馬','函館3歳S','きんもくせい特別','デイリー杯3歳S','京都3歳S','朝日杯3歳S','共同通信杯4歳S','スプリングS','皐月賞',
'東京優駿','京都新聞杯','菊花賞','有馬記念','阪神大賞典','天皇賞秋','ジャパンC','有馬記念','阪神大賞典','天皇賞春','高松宮杯');

$page_array=array_slice($array,($page_num-1)*$page_line_num,$page_line_num);#表示する分だけ別の配列に格納する 配列は０から数えるので処理上は１ページ目は０ページ目とする

$allkazu = count($array);
//print_r($page_array);#現在のページで表示される中身を確認
$i=0;
$kazu = count($page_array);
for ($i = 0; $i < $kazu; $i++) {
$bango = $i+1;
{
echo <<<EOF
$bango:$page_array[$i]<br>
EOF;
}
echo "\n";
}

$next_page=$page_num+1;#次のページ
$back_page=$page_num-1;#前のページ

if($back_page >= 1){$back_str='<a href="'.$thisphp.'?page='.$back_page.'">前へ</a>';}#現在より前のページが存在すれば戻るリンクを作る
else{$back_str='<span style="color:gray">前へ</span>';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='<span style="color:gray">次へ</span>';}

$all_page_num=count($array) / ($page_line_num-1);#全部のページ数を計算

for($i=1;$i<$all_page_num;$i++){#存在するページ番号を生成
if($i != $page_num){$page_str.='[<a href="'.$thisphp.'?page='.$i.'">'.$i.'</a>]';}
else{$page_str.='[<span style="color:gray">'.$i.'</span>]';}
}
echo <<<EOF
<p>$back_str&nbsp;$page_str&nbsp;$next_str</p>
<p>表示数$kazu:要素数$allkazu</p>
EOF;
?>
</body></html>

105：女傑 ◆nDpXSJz8i.：2013/01/29(火) 14:00:18
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head><title>ホームページ改装中</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=Shift_JIS">
<body>
<?php
$thisphp="page.php";
$page_line_num=5;#１つのページに表示させたい件数
if(!$page_num= htmlspecialchars($_GET["page"], ENT_QUOTES)){$page_num=1;}#最初は１ページ目とする
$page_num = str_replace(">",">",$page_num);
$page_num = str_replace("<","<",$page_num);
$page_num = str_replace("\r\n", "\r",$page_num);
$page_num = str_replace("\r", "\n",$page_num);
$page_num = preg_replace("/\n{2,}/", "\n\n", $page_num);
$page_num = str_replace("\n", "<br>", $page_num);

$array=array('新馬','新馬','函館3歳S','きんもくせい特別','デイリー杯3歳S','京都3歳S','朝日杯3歳S','共同通信杯4歳S','スプリングS','皐月賞',
'東京優駿','京都新聞杯','菊花賞','有馬記念','阪神大賞典','天皇賞秋','ジャパンC','有馬記念','阪神大賞典','天皇賞春','高松宮杯');

$page_array=array_slice($array,($page_num-1)*$page_line_num,$page_line_num);#表示する分だけ別の配列に格納する 配列は０から数えるので処理上は１ページ目は０ページ目とする

$allkazu = count($array);
//print_r($page_array);#現在のページで表示される中身を確認
$i=0;
$kazu = count($page_array);
for ($i = 0; $i < $kazu; $i++) {
$bango = $i+1-4+$page_line_num*$page_num-1;
{
echo <<<EOF
$bango:$page_array[$i]<br>
EOF;
}
echo "\n";
}

$next_page=$page_num+1;#次のページ
$back_page=$page_num-1;#前のページ

if($back_page >= 1){$back_str='<a href="'.$thisphp.'?page='.$back_page.'">前へ</a>';}#現在より前のページが存在すれば戻るリンクを作る
else{$back_str='<span style="color:gray">前へ</span>';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='<span style="color:gray">次へ</span>';}

$all_page_num=count($array) / ($page_line_num-1);#全部のページ数を計算

for($i=1;$i<$all_page_num;$i++){#存在するページ番号を生成
if($i != $page_num){$page_str.='[<a href="'.$thisphp.'?page='.$i.'">'.$i.'</a>]';}
else{$page_str.='[<span style="color:gray">'.$i.'</span>]';}
}
echo <<<EOF
<p>$back_str&nbsp;$page_str&nbsp;$next_str</p>
<p>全要素数$allkazu</p>
EOF;
?>
</body></html>

106：女傑 ◆nDpXSJz8i.：2013/01/29(火) 16:24:19
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=euc-jp">
<title>test</title>
</head><body bgcolor=#ffffff>
<?php
//$arr = array("one", "two", "three");
$keywords = preg_split("/[\s,]+/", "test and, examination");
reset($keywords);
while (list(,$value) = each($keywords)) {
echo "$value<br>\n";
}

foreach ($keywords as $value) {
echo "$value<br>\n";
}
?>
<br>
<?php
$dds = preg_split("/[\s,]+/", "kkk lll, mmm");
echo "$dds[0]" . "<br>";
echo "$dds[1]" . "<br>";
echo "$dds[2]";
?>
<br>
<?php
$keywords = preg_split("/[\s,]+/", "test and, examination");
$kazu = count($keywords);
if ($kazu >= 10) {exit;}
for ($i = 0; $i < $kazu; $i++) {
$bango = $i+1;
{
echo <<<EOF
$bango:$keywords[$i]<br>
EOF;
}
echo "\n";
}
?>
<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>

107：女傑 ◆nDpXSJz8i.：2013/01/30(水) 01:05:47
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head><title>ホームページ改装中</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=Shift_JIS">
<body>
<?php
$thisphp="page.php";
$page_line_num=7;#１つのページに表示させたい件数
if(!$page_num= htmlspecialchars($_GET["page"], ENT_QUOTES)){$page_num=1;}#最初は１ページ目とする

$page_num = substr($page_num,0,3);

$page_num = str_replace(">",">",$page_num);
$page_num = str_replace("<","<",$page_num);
$page_num = str_replace("\r\n", "\r",$page_num);
$page_num = str_replace("\r", "\n",$page_num);
$page_num = preg_replace("/\n{2,}/", "\n\n", $page_num);
$page_num = str_replace("\n", "<br>", $page_num);

$array=array('サラ3歳新馬','サラ3歳新馬','函館3歳ステークス','きんもくせい特別','デイリー杯3歳ステークス','京都3歳ステークス','朝日杯3歳ステークス','共同通信杯4歳ステークス','スプリングステークス','皐月賞',
'東京優駿','京都新聞杯','菊花賞','有馬記念','阪神大賞典','天皇賞秋','ジャパンカップ','有馬記念','阪神大賞典','天皇賞春','高松宮杯');
$array2=array('2着','1着','6着','1着','3着','1着','1着','1着','1着','1着','1着','2着','1着','1着','1着','12着','6着','4着','1着','2着','4着');

//print_r(array_count_values($array2));

$page_array=array_slice($array,($page_num-1)*$page_line_num,$page_line_num);#表示する分だけ別の配列に格納する 配列は０から数えるので処理上は１ページ目は０ページ目とする
$page_array2=array_slice($array2,($page_num-1)*$page_line_num,$page_line_num);

$allkazu = count($array);
//print_r($page_array);#現在のページで表示される中身を確認
$i=0;
$kazu = count($page_array);
for ($i = 0; $i < $kazu; $i++) {
$bango = $i+1+$page_line_num*$page_num-1-$page_line_num+1;
{
echo <<<EOF
$bango:$page_array[$i]&nbsp;$page_array2[$i]<br>
EOF;
}
echo "\n";
}
unset($page_array);
unset($page_array2);

$next_page=$page_num+1;#次のページ
$back_page=$page_num-1;#前のページ

if($back_page >= 1){$back_str='<a href="'.$thisphp.'?page='.$back_page.'">前へ</a>';}#現在より前のページが存在すれば戻るリンクを作る
else{$back_str='<span style="color:gray">前へ</span>';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='<span style="color:gray">次へ</span>';}

$all_page_num=count($array) / ($page_line_num-1);#全部のページ数を計算

for($i=1;$i<$all_page_num;$i++){#存在するページ番号を生成
if($i != $page_num){$page_str.='[<a href="'.$thisphp.'?page='.$i.'">'.$i.'</a>]';}
else{$page_str.='[<span style="color:gray">'.$i.'</span>]';}
}
$soupage = floor($all_page_num); // 切捨て
$sentani = "戦";

$array_lowercase = array_map('strtolower', $array2);
array_multisort($array_lowercase, SORT_ASC, SORT_NUMERIC, $array2);
print_r(array_count_values($array2));
echo <<<EOF
<p>$back_str&nbsp;$page_str&nbsp;$next_str</p>
<p>全出走レース数:$allkazu$sentani$cc</p>
<p>$page_num/$soupage</p>
EOF;
?>
</body></html>

108：女傑 ◆nDpXSJz8i.：2013/01/30(水) 12:34:15
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head><title>ホームページ改装中</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=Shift_JIS">
<body>
<?php
$thisphp="page.php";
$page_line_num=1;#１つのページに表示させたい件数
if(!$page_num= htmlspecialchars($_GET["page"], ENT_QUOTES)){$page_num=1;}#最初は１ページ目とする
$page_num = str_replace(">",">",$page_num);
$page_num = str_replace("<","<",$page_num);
$page_num = str_replace("\r\n", "\r",$page_num);
$page_num = str_replace("\r", "\n",$page_num);
$page_num = preg_replace("/\n{2,}/", "\n\n", $page_num);
$page_num = str_replace("\n", "<br>", $page_num);

$array=array('サラ3歳新馬','サラ3歳新馬','函館3歳ステークス','きんもくせい特別','デイリー杯3歳ステークス','京都3歳ステークス','朝日杯3歳ステークス','共同通信杯4歳ステークス','スプリングステークス','皐月賞',
'東京優駿','京都新聞杯','菊花賞','有馬記念','阪神大賞典','天皇賞秋','ジャパンカップ','有馬記念','阪神大賞典','天皇賞春','高松宮杯');
$array2=array('2着','1着','6着','1着','3着','1着','1着','1着','1着','1着','1着','2着','1着','1着','1着','12着','6着','4着','1着','2着','4着');
$page_array=array_slice($array,($page_num-1)*$page_line_num,$page_line_num);#表示する分だけ別の配列に格納する 配列は０から数えるので処理上は１ページ目は０ページ目とする
$page_array2=array_slice($array2,($page_num-1)*$page_line_num,$page_line_num);

$allkazu = count($array);
//print_r($page_array);#現在のページで表示される中身を確認
$i=0;
$kazu = count($page_array);
for ($i = 0; $i < $kazu; $i++) {
$bango = $i+1+$page_line_num*$page_num-1-$page_line_num+1;
{
echo <<<EOF
$bango:$page_array[$i]&nbsp;$page_array2[$i]<br>
EOF;
}
echo "\n";
}

$next_page=$page_num+1;#次のページ
$back_page=$page_num-1;#前のページ

if($back_page >= 1){$back_str='<a href="'.$thisphp.'?page='.$back_page.'">前へ</a>';}#現在より前のページが存在すれば戻るリンクを作る
else{$back_str='<span style="color:gray">前へ</span>';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='<span style="color:gray">次へ</span>';}

//$all_page_num=count($array) / ($page_line_num-1);#全部のページ数を計算
$all_page_num=count($array) / $page_line_num;#全部のページ数を計算
//ceil
for($i=1;$i<=$all_page_num;$i++){#存在するページ番号を生成
if($i != $page_num){$page_str.='[<a href="'.$thisphp.'?page='.$i.'">'.$i.'</a>]';}
else{$page_str.='[<span style="color:gray">'.$i.'</span>]';}
}
$soupage = floor($all_page_num); // 切捨て
$array_lowercase = array_map('strtolower', $array2);
array_multisort($array_lowercase, SORT_ASC, SORT_NUMERIC, $array2);
print_r(array_count_values($array2));
echo <<<EOF
<p>$back_str&nbsp;$page_str&nbsp;$next_str</p>
<p>全出走レース数$allkazu</p>
<p>$page_num/$soupage</p>
EOF;
?>
</body></html>

109：女傑 ◆nDpXSJz8i.：2013/01/30(水) 12:47:36
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head><title>ホームページ改装中</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=Shift_JIS">
<body>
<?php
$thisphp="page.php";
$page_line_num=4;#１つのページに表示させたい件数
if(!$page_num= htmlspecialchars($_GET["page"], ENT_QUOTES)){$page_num=1;}#最初は１ページ目とする
$page_num = str_replace(">",">",$page_num);
$page_num = str_replace("<","<",$page_num);
$page_num = str_replace("\r\n", "\r",$page_num);
$page_num = str_replace("\r", "\n",$page_num);
$page_num = preg_replace("/\n{2,}/", "\n\n", $page_num);
$page_num = str_replace("\n", "<br>", $page_num);

$array=array('サラ3歳新馬','サラ3歳新馬','函館3歳ステークス','きんもくせい特別','デイリー杯3歳ステークス','京都3歳ステークス','朝日杯3歳ステークス','共同通信杯4歳ステークス','スプリングステークス','皐月賞',
'東京優駿','京都新聞杯','菊花賞','有馬記念','阪神大賞典','天皇賞秋','ジャパンカップ','有馬記念','阪神大賞典','天皇賞春','高松宮杯');
$array2=array('2着','1着','6着','1着','3着','1着','1着','1着','1着','1着','1着','2着','1着','1着','1着','12着','6着','4着','1着','2着','4着');
$page_array=array_slice($array,($page_num-1)*$page_line_num,$page_line_num);#表示する分だけ別の配列に格納する 配列は０から数えるので処理上は１ページ目は０ページ目とする
$page_array2=array_slice($array2,($page_num-1)*$page_line_num,$page_line_num);

$allkazu = count($array);
//print_r($page_array);#現在のページで表示される中身を確認
$i=0;
$kazu = count($page_array);
for ($i = 0; $i < $kazu; $i++) {
$bango = $i+1+$page_line_num*$page_num-1-$page_line_num+1;
{
echo <<<EOF
$bango:$page_array[$i]&nbsp;$page_array2[$i]<br>
EOF;
}
echo "\n";
}

$next_page=$page_num+1;#次のページ
$back_page=$page_num-1;#前のページ

if($back_page >= 1){$back_str='<a href="'.$thisphp.'?page='.$back_page.'">前へ</a>';}#現在より前のページが存在すれば戻るリンクを作る
else{$back_str='<span style="color:gray">前へ</span>';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='<span style="color:gray">次へ</span>';}

//$all_page_num=count($array) / ($page_line_num-1);#全部のページ数を計算
$all_page_num=count($array) / ($page_line_num);#全部のページ数を計算
//ceil
$kiriage = ceil($all_page_num); // 切捨て
for($i=1;$i<=$kiriage;$i++){#存在するページ番号を生成
if($i != $page_num){$page_str.='[<a href="'.$thisphp.'?page='.$i.'">'.$i.'</a>]';}
else{$page_str.='[<span style="color:gray">'.$i.'</span>]';}
}
//$soupage = floor($all_page_num); // 切捨て
$array_lowercase = array_map('strtolower', $array2);
array_multisort($array_lowercase, SORT_ASC, SORT_NUMERIC, $array2);
print_r(array_count_values($array2));
echo <<<EOF
<p>$back_str&nbsp;$page_str&nbsp;$next_str</p>
<p>全出走レース数$allkazu</p>
<p>$page_num/$kiriage</p>
EOF;
?>
</body></html>

110：女傑 ◆nDpXSJz8i.：2013/01/30(水) 14:06:13
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head><title>ホームページ改装中</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=Shift_JIS">
<body>
<?php
$thisphp="page.php";
$page_line_num=5;#１つのページに表示させたい件数
if(!$page_num= htmlspecialchars($_GET["page"], ENT_QUOTES)){$page_num=1;}#最初は１ページ目とする
$page_num = str_replace(">",">",$page_num);
$page_num = str_replace("<","<",$page_num);
$page_num = str_replace("\r\n", "\r",$page_num);
$page_num = str_replace("\r", "\n",$page_num);
$page_num = preg_replace("/\n{2,}/", "\n\n", $page_num);
$page_num = str_replace("\n", "<br>", $page_num);

$array=array('サラ3歳新馬','サラ3歳新馬','函館3歳ステークス','きんもくせい特別','デイリー杯3歳ステークス','京都3歳ステークス','朝日杯3歳ステークス','共同通信杯4歳ステークス','スプリングステークス','皐月賞',
'東京優駿','京都新聞杯','菊花賞','有馬記念','阪神大賞典','天皇賞秋','ジャパンカップ','有馬記念','阪神大賞典','天皇賞春','高松宮杯');
$array2=array('2着','1着','6着','1着','3着','1着','1着','1着','1着','1着','1着','2着','1着','1着','1着','12着','6着','4着','1着','2着','4着');
$array3=array('12','3','1','5');
$page_array=array_slice($array,($page_num-1)*$page_line_num,$page_line_num);#表示する分だけ別の配列に格納する 配列は０から数えるので処理上は１ページ目は０ページ目とする
$page_array2=array_slice($array2,($page_num-1)*$page_line_num,$page_line_num);

$allkazu = count($array);
//print_r($page_array);#現在のページで表示される中身を確認
$i=0;
$kazu = count($page_array);
for ($i = 0; $i < $kazu; $i++) {
$bango = $i+1+$page_line_num*$page_num-1-$page_line_num+1;
{
echo <<<EOF
$bango:$page_array[$i]&nbsp;$page_array2[$i]<br>
EOF;
}
echo "\n";
}

$next_page=$page_num+1;#次のページ
$back_page=$page_num-1;#前のページ

if($back_page >= 1){$back_str='<a href="'.$thisphp.'?page='.$back_page.'">前へ</a>';}#現在より前のページが存在すれば戻るリンクを作る
else{$back_str='<span style="color:gray">前へ</span>';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='<span style="color:gray">次へ</span>';}

//$all_page_num=count($array) / ($page_line_num-1);#全部のページ数を計算
$all_page_num=count($array) / ($page_line_num);#全部のページ数を計算
//ceil
$kiriage = ceil($all_page_num); // 切捨て
for($i=1;$i<=$kiriage;$i++){#存在するページ番号を生成
if($i != $page_num){$page_str.='[<a href="'.$thisphp.'?page='.$i.'">'.$i.'</a>]';}
else{$page_str.='[<span style="color:gray">'.$i.'</span>]';}
}
//$soupage = floor($all_page_num); // 切捨て
$array_lowercase = array_map('strtolower', $array2);
array_multisort($array_lowercase, SORT_ASC, SORT_NUMERIC, $array2);
print_r(array_count_values($array2));
$sen = "戦";
$shou = "勝";
$icchaku = $array3[0];
$shoritu = $array3[0]/$allkazu;
$shoritu = round($shoritu, 2);
$rentai = (($array3[0])+($array3[1]))/$allkazu;
$rentai = round($rentai, 2);
echo <<<EOF
<p>$back_str&nbsp;$page_str&nbsp;$next_str</p>
<p>全出走レース数$allkazu$sen$icchaku$shou</p>
<p>勝率$shoritu&nbsp;連対率$rentai</p>
<p>$page_num/$kiriage</p>
EOF;
?>
</body></html>

111：女傑 ◆nDpXSJz8i.：2013/01/31(木) 10:28:41
<?php
$thisphp="page.php";
$page_line_num=5;#１つのページに表示させたい件数
if(!$page_num= htmlspecialchars($_GET["page"], ENT_QUOTES)){$page_num=1;}#最初は１ページ目とする
$page_num = str_replace(">",">",$page_num);
$page_num = str_replace("<","<",$page_num);
$page_num = str_replace("\r\n", "\r",$page_num);
$page_num = str_replace("\r", "\n",$page_num);
$page_num = preg_replace("/\n{2,}/", "\n\n", $page_num);
$page_num = str_replace("\n", "<br>", $page_num);

$array=array('サラ3歳新馬','サラ3歳新馬','函館3歳ステークス','きんもくせい特別','デイリー杯3歳ステークス','京都3歳ステークス','朝日杯3歳ステークス','共同通信杯4歳ステークス','スプリングステークス','皐月賞',
'東京優駿','京都新聞杯','菊花賞','有馬記念','阪神大賞典','天皇賞秋','ジャパンカップ','有馬記念','阪神大賞典','天皇賞春','高松宮杯');
$array2=array('2着','1着','6着','1着','3着','1着','1着','1着','1着','1着','1着','2着','1着','1着','1着','12着','6着','4着','1着','2着','4着');
$array3=array(12,3,1,5);
$page_array=array_slice($array,($page_num-1)*$page_line_num,$page_line_num);#表示する分だけ別の配列に格納する 配列は０から数えるので処理上は１ページ目は０ページ目とする
$page_array2=array_slice($array2,($page_num-1)*$page_line_num,$page_line_num);

$allkazu = count($array);
//print_r($page_array);#現在のページで表示される中身を確認
$i=0;
$kazu = count($page_array);
for ($i = 0; $i < $kazu; $i++) {
$bango = $i+1+$page_line_num*$page_num-1-$page_line_num+1;
{
echo <<<EOF
$bango:$page_array[$i]&nbsp;$page_array2[$i]<br>
EOF;
}
echo "\n";
}

$next_page=$page_num+1;#次のページ
$back_page=$page_num-1;#前のページ

if($back_page >= 1){$back_str='<a href="'.$thisphp.'?page='.$back_page.'">前へ</a>';}#現在より前のページが存在すれば戻るリンクを作る
else{$back_str='<span style="color:gray">前へ</span>';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='<span style="color:gray">次へ</span>';}

//$all_page_num=count($array) / ($page_line_num-1);#全部のページ数を計算
$all_page_num=count($array) / ($page_line_num);#全部のページ数を計算
//ceil
$kiriage = ceil($all_page_num); // 切捨て
for($i=1;$i<=$kiriage;$i++){#存在するページ番号を生成
if($i != $page_num){$page_str.='[<a href="'.$thisphp.'?page='.$i.'">'.$i.'</a>]';}
else{$page_str.='[<span style="color:gray">'.$i.'</span>]';}
}
//$soupage = floor($all_page_num); // 切捨て
$array_lowercase = array_map('strtolower', $array2);
array_multisort($array_lowercase, SORT_ASC, SORT_NUMERIC, $array2);
print_r(array_count_values($array2));
$zensei = "{$array3['0']}-{$array3['1']}-{$array3['2']}-{$array3['3']}";
$sen = "戦";
$shou = "勝";

$icchaku = $array3[0];
$shoritu = $array3[0]/$allkazu;
$shoritu = round($shoritu, 3);
$rentai = (($array3[0])+($array3[1]))/$allkazu;
$rentai = round($rentai, 3);
if ($rentai !== 1.000){
$rentai = substr_replace($rentai, "", 0,1);
}
if ($shoritu !== 1.000){
$shoritu = substr_replace($shoritu, "", 0,1);
}
echo <<<EOF
<p>$back_str&nbsp;$page_str&nbsp;$next_str</p>
<p>成績$allkazu$sen$icchaku$shou&nbsp;$zensei</p>
<p>勝率$shoritu&nbsp;連対率$rentai</p>
<p>$page_num/$kiriage</p>
EOF;
?>

112：女傑 ◆nDpXSJz8i.：2013/01/31(木) 12:18:13
if ($rentai != 1){
$rentai = sprintf( "%.3f", $rentai );
$rentai = substr_replace($rentai, "", 0,1);
}
if ($rentai == 1) { $rentai = '1.000'; }
if ($shoritu != 1){
$shoritu = sprintf( "%.3f", $shoritu );
$shoritu = substr_replace($shoritu, "", 0,1);
}
if ($shoritu == 1) { $shoritu = '1.000'; }

113：＜削除＞：＜削除＞
＜削除＞

114：＜削除＞：＜削除＞
＜削除＞

115：女傑 ◆nDpXSJz8i.：2013/02/25(月) 15:15:24
<?php

$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) {
echo "$value<br>\n";
}
unset($keywords);
int i;
for (i=0;i<$kazu;i++)
echo "$keywords[i]<br>\n";
endif;
?>

116：女傑 ◆nDpXSJz8i.：2013/02/25(月) 16:17:54
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head><title>ホームページ改装中</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=euc-jp">
<body>
<?php

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

foreach ($keywords as $value) {
echo "$value<br>\n";
}

for ($i=0;$i<$kazu;$i++) {
$j = $i+1;
echo "$j:$keywords[$i]<br>\n";
}
unset($keywords);
endif;
$fd_read = fopen ("text.txt","r");
while (!feof ($fd_read))
{
$line = fgets ($fd_read,1000);
echo "$line<br>\n";
}
fclose($fd_read);
?>
</body></html>

117：女傑 ◆nDpXSJz8i.：2013/02/26(火) 00:28:23
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=euc-jp">
<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) {
echo "$value<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;
{
echo "$textbango:$text<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>

118：女傑 ◆nDpXSJz8i.：2013/02/27(水) 23:29:56
rtc.startTime = "1164286430"

119：女傑 ◆nDpXSJz8i.：2013/02/27(水) 23:35:01
####### motherboard/bios ##############
nvram = "leon.nvram"
bios.bootDelay = "0"
bios.forceSetupOnce = "FALSE"
SMBIOS.reflectHost = "FALSE"

120：女傑 ◆nDpXSJz8i.：2013/02/27(水) 23:38:05
if($email =~ /^[^@]+@[^.]+\..+/){
print '正しいかも';
}else{
print '違うかも';
}

121：女傑 ◆nDpXSJz8i.：2013/02/28(木) 22:17:30
コンパイル・リンク方法
コンパイル方法
clコマンドでコンパイルを行います。

E:\ex> cl /c windows_ex.c
E:\home\toru\study\cxxw\opengl\ex2>cl /c wgl_window_ex1.c
Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 13.10.3052 for 80x86
Copyright (C) Microsoft Corporation 1984-2002. All rights reserved.

window_ex.c

E:\ex>
主要なコマンドラインオプション
リンク方法
linkコマンドでリンクを行います。

Windowsアプリケーション
Windowsアプリケーションをリンクする場合、user32.lib、kernel32.lib、gdi32.lib等をリンクに加えます。

E:\ex> link /OUT:windows_ex.exe windows_ex.obj user32.lib kernel32.lib gdi32.lib
Microsoft (R) Incremental Linker Version 7.10.3052
Copyright (C) Microsoft Corporation. All rights reserved.


E:\ex>
リンクに加えるといいライブラリ群
kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib

withoutODBC
kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib

BCC32 -W -w- -e0000.exe 0000.cpp
BRC32 0000.rc 0000.exe

cl c/0000.cpp /W3 /02

しかしウォーニングだらけで非常に気持ち悪いですね。C++例外を使用するにはGXオプションを付けてコンパイルしなければならないようです。

C:\work>cl /GX hello.cpp
Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 12.00.8804 for 80x86
Copyright (C) Microsoft Corp 1984-1998. All rights reserved.

hello.cpp
Microsoft (R) Incremental Linker Version 6.00.8447
Copyright (C) Microsoft Corp 1992-1998. All rights reserved.

/out:hello.exe
hello.obj

C:\work>

122：女傑 ◆nDpXSJz8i.：2013/02/28(木) 23:45:43
======marge_csv.pl======

my %address_datas = ();
open(IN, 'address.csv');
while(<IN>){
chomp;
my ($id, $name, $address) = split(/,/, $_, 3);

# (※1)顧客IDをキーとし、対応する名前と住所の配列を保存する
$address_datas{$id} = [$name, $address];
}
close(IN);

# アンケートデータに氏名と住所をマージする
open(OUT, '>result.csv');
open(IN, 'enquate.csv');

while(my $line = <IN>){
chomp($line);
my ($id, $ans1, $ans2, $ans3) = split(/,/, $line, 4);

# この行にマッチする顧客データを検索する
my $ref_data = $address_datas{$id};

# 配列の0番目に名前、1番目に住所が入っている (※1を参照)
my $name = $ref_data->[0];
my $address = $ref_data->[1];

# 出力する
print OUT join(',', $id, $ans1, $ans2, $ans3, $name, $address), "\n";
}

close(OUT);
close(IN);

======diff.pl (1)======

# 2回目のアンケート応募者をハッシュに取り込む
my %enq2_data = ();
open(IN, 'enquate2.csv');
while(<IN>){
chomp;

# IDだけ必要なので、IDだけ取り出す
my ($id) = split(/,/, $_, 2);
# キーを顧客IDとし、目印(フラグ)として1を入れる
$enq2_data{$id} = 1;
}
close(IN);

======diff.pl (2)======

# 1回目のアンケート応募者と2回目の応募者を比較する
open(OUT, '>result.csv');
open(IN, 'enquate.csv');
while(<IN>){
chomp;

# IDだけ必要なので、IDだけ取り出す
my ($id) = split(/,/, $_, 2);

if($enq2_data{$id}){
# どちらにも応募した顧客
print OUT "$id,3\n";
# ハッシュから「1回目応募した顧客」を削除
delete $enq2_data{$id};
}else{
# 1回目だけ応募した顧客
print OUT "$id,1\n";
}
}
close(IN);

======diff.pl (3)======

# 最後に、ハッシュに残ったのが2回目のみ応募した顧客
foreach(keys %enq2_data){
print OUT "$_,2\n";
}

close(OUT);

123：女傑 ◆nDpXSJz8i.：2013/02/28(木) 23:47:39
<script type="text/javascript" src="http://api.docodoco.jp/v2/docodoco?key=○○○○○○○○○（この部分はお客様ごとに違う文字列がはいります）" charset="utf-8"></script>
　
http://www.hogehoge.co.jp/で表示されるページのソース内に以下コードを足します。
　
<script type="text/javascript" language="JavaScript1.1">
<!--

function redirect() {

　　var number;
　　try{
　　　　number = SURFPOINT.getCountryCode();
　　} catch(e) {
　　　　number = 'none';
　　}

　　switch ( number ) {

　　//アメリカ
　　　case 'US':
　　　location.href="http://www.hogehoge.co.jp/US/&quot;;
　　　break;
　　//中国
　　　case 'CN':
　　　location.href="http://www.hogehoge.co.jp/CN/&quot;;
　　　break;
　　//韓国
　　　case 'KR':
　　　location.href="http://www.hogehoge.co.jp/KR/&quot;;
　　　break;
　　//日本
　　　default:
　　　location.href="";
　　}

}

window.onload = redirect;
　　//-->
</script>

124：女傑 ◆nDpXSJz8i.：2013/03/01(金) 15:37:38
if ($story =~/\W+$/) { &error("ストーリーの名前に禁則文字が使われています"); }
if ($page =~/\D+$/) { &error("ページ番号に禁則文字が使われています"); }
if ($bunki =~/\W+$/) { &error("ストーリー分岐に禁則文字が使われています"); }use Jcode;
use Unicode::Japanese;
use CGI::Carp qw(fatalsToBrowser);

require '../cgi-lib.pl';
&ReadParse(*in);

$story = $in{'story'};
$page = $in{'page'};
$bunki = $in{'bunki'};if (!(-e $file)) { &error("存在しません"); }
elsif (-z $file) { &error("ファイルが異状です"); }

flock(IN, LOCK_EX);
if (!open(IN,"$file")) { &error("ファイルが開けません"); }
@lines = <IN>;
close(IN);
flock(IN, LOCK_NB);
$retsusuu = @lines;if ("$bun" ne "") {
chomp($bun) if $bun =~ /\n$/;

$bun =~ s/.{160}/$&<BR>\n/g;my ($idqs, $pass) = $ENV{'PATH_INFO'} =~ m!/([^/]+)/([^/]+)/?!;
$begin =~ s/^s+//g ; # 文頭に来るスペースを削除
$begin =~ s/s+$//g ; # 文末に来るスペースを削除
$expire =~ s/^s+//g ; # 文頭に来るスペースを削除
$expire =~ s/s+$//g ; # 文末に来るスペースを削除$url =~ s/(https?|ftp|gopher|telnet|whois|news):([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/<a href=\"$1\:$2\" target=\"_blank\">$1\:$2<\/a>/g;

125：女傑 ◆nDpXSJz8i.：2013/03/01(金) 15:57:31
while(($key,$val) = each %in) { $in{$key} = &encTag($val); }$len = length($eki); $m = '30';
if ($len > $m) { &error("エラー","引数を$mバイト以内でご指定ください"); }
$len2 = length($sen); $m = '30';
if ($len2 > $m) { &error("エラー","引数を$mバイト以内でご指定ください"); }

%urltable = &readhashfile("$senro.txt");

if (exists $urltable{$id}) {
$onamae = $urltable{$id};
chomp($onamae) if $onamae =~ /\n$/;
my ($code, $nmatch) = Jcode::getcode($onamae);
$onamaeaf = jcode($onamae, "$code")->h2z->utf8;
($kei, $message, $shozai, $code, $lng, $lat) = split(/_/, $onamaeaf, 6); # 余分な空白を取り除きます
$query =~ s/　+/ /g; # 連続した全角スペース
$query =~ s/ +/ /g; # 連続した半角スペース if ($toku_email == 0 && $email =~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/) { $name = "$name ($sex) <<a href=\"mailto:$email\">$email</a>> "; } # Ｅメール記載があればリンクする
elsif ($toku_email == 1 && $email =~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/) {

$uname = $name;
$uname =~ s/([^0-9A-Za-z_])/"%" . unpack("H2",$1)/ge; # URLエンコード
$name = "$name ($sex) <<a href=\"$ENV{'SCRIPT_NAME'}?log=$cmd{'log'}&num=$number&name=$uname\">メール送信</a>> ";
} if ($link) { # URLをリンクする

$value =~ s/>/\t/g;
$value =~ s/(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/<a href=\"$1\:$2\" target=\"_blank\">$1\:$2<\/a>/ig;
$value =~ s/\t/>/g;
}sub lock {

# ロック方式の自動判定 symlink()優先
$symlink_check = (eval { symlink("",""); }, $@ eq "");
if (!$symlink_check) {

$c = 0;
while(-f "$lockfile") { # file式

$c++;
if ($c >= 3) { &Error('リトライエラー','ただいま混雑しております.<br>戻ってもう一度実行してみてください.'); }
sleep(2);
}
open(LOCK,">$lockfile");
close(LOCK);
}
else {
local($retry) = 3;
while (!symlink(".", $lockfile)) { # symlink式

if (--$retry <= 0) { &Error('リトライエラー','ただいま混雑しております.<br>戻ってもう一度実行してください.'); }
sleep(2);
}
}
}

126：女傑：2013/03/02(土) 13:47:38
sub datas
{
local %table;
local ($fname, $flength, $i);
local ($name, $val);

$fname = $_[0];
$flength = @_;

open FILE, "< $fname";

for ($i=0;$i<$flength;$i++) {
@_ = <FILE>;
chomp($_) if $_ =~ /\n$/;
($name, $val) = split(',', $_[$i], 2);
if ($name ne "") {
$table{$name} = $val;
}
}

close FILE;
return %table;
}

127：女傑：2013/03/02(土) 13:51:59
my @num = ("1", "2", "3");

foreach my $name (@num){
print "$name\n";
}

128：女傑：2013/03/02(土) 15:05:37
open (FILE, "file.txt") || die;
while (<FILE>) {}
$line = $.;
close (FILE);

129：女傑：2013/03/02(土) 16:34:36
sub readhashfile
{
local %table;
local $fname;
local($name, $val);

$fname = $_[0];

open FILE, "< $fname";
@lines = <FILE>;
$kazu = @lines;
for ($i=0;$i<$kazu;$i++) {
chomp $_;
($name, $val) = split(',', $lines[$i], 2);
if ($name ne "") {
$table{$name} = $val;
}
}

close FILE;
return %table;
}
130：女傑 ◆nDpXSJz8i.：2013/03/02(土) 18:24:01
<?php

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

foreach ($keywords as $value) {
echo "$value<br>\n";
}

for ($i=0;$i<$kazu;$i++) {
$j = $i+1;
echo "$j:$keywords[$i]<br>\n";
}
unset($keywords);
endif;
$fd_read = fopen ("text.txt","r");
while (!feof ($fd_read))
{
$line = fgets ($fd_read,1000);
echo "$line<br>\n";
}
fclose($fd_read);
?>

131：女傑 ◆nDpXSJz8i.：2013/03/03(日) 01:55:23


例1 in_array() の例
<?php
$os = array("Mac", "NT", "Irix", "Linux");
if (in_array("Irix", $os)) {
echo "Got Irix";
}
if (in_array("mac", $os)) {
echo "Got mac";
}
?>

二番目の条件式は失敗します。 in_array() は大文字小文字を区別するからです。したがって次のような出力になります。

Got Irix

例2 strict を指定した in_array() の例
<?php
$a = array('1.10', 12.4, 1.13);

if (in_array('12.4', $a, true)) {
echo "'12.4' found with strict check\n";
}

if (in_array(1.13, $a, true)) {
echo "1.13 found with strict check\n";
}
?>

上の例の出力は以下となります。

1.13 found with strict check

例3 needleが配列の場合の in_array()
<?php
$a = array(array('p', 'h'), array('p', 'r'), 'o');

if (in_array(array('p', 'h'), $a)) {
echo "'ph' was found\n";
}

if (in_array(array('f', 'i'), $a)) {
echo "'fi' was found\n";
}

if (in_array('o', $a)) {
echo "'o' was found\n";
}
?>

132：女傑 ◆nDpXSJz8i.：2013/03/03(日) 01:57:27

<?php
// ファイルの内容を配列に取り込みます。
// この例ではHTTPを通してURL上のHTMLソースを取得します。
$lines = file('http://www.example.com/');

// 配列をループしてHTMLをHTMLソースとして表示し、行番号もつけます。
foreach ($lines as $line_num => $line) {
echo "Line #<b>{$line_num}</b> : " . htmlspecialchars($line) . "<br />\n";
}

// 他の例として、Webページを文字列に取り込みます。file_get_contents()も参照してください。
$html = implode('', file('http://www.example.com/'));

// オプションのパラメータは PHP 5 以降で使用できます
$trimmed = file('somefile.txt', FILE_IGNORE_NEW_LINES | FILE_SKIP_EMPTY_LINES);
?>

133：女傑 ◆nDpXSJz8i.：2013/03/03(日) 02:00:29


例1 array() の例
<?php
$fruits = array (
"fruits" => array("a" => "orange", "b" => "banana", "c" => "apple"),
"numbers" => array(1, 2, 3, 4, 5, 6),
"holes" => array("first", 5 => "second", "third")
);
?>

例2 array() における自動インデックス
<?php
$array = array(1, 1, 1, 1, 1, 8 => 1, 4 => 1, 19, 3 => 13);
print_r($array);
?>

上の例の出力は以下となります。

Array
(
[0] => 1
[1] => 1
[2] => 1
[3] => 13
[4] => 1
[8] => 1
[9] => 19
)

インデックス '3' は二度定義されており、後の値 13 が保持されることに注意してください。 インデックス 4 はインデックス 8 の後に定義され、 次に生成されるインデックス (値は 19) は、最大のインデックスが 8 であるため、9 となります。

次の例は、1 から始まる配列を作成します。

例3 array() で 1 から始まる配列を作成
<?php
$firstquarter = array(1 => 'January', 'February', 'March');
print_r($firstquarter);
?>

上の例の出力は以下となります。

Array
(
[1] => January
[2] => February
[3] => March
)

Perl では、ダブルクオートで囲まれた配列の値にアクセスすることができます。 しかしながら、PHP では配列を中括弧で囲む必要があります。

例4 ダブルクオートで囲まれた配列にアクセスする
<?php

$foo = array('bar' => 'baz');
echo "Hello {$foo['bar']}!"; // Hello baz!

?>

134：女傑 ◆nDpXSJz8i.：2013/03/03(日) 06:50:08
<?php
if (isset($_FILES)) {
// Exif情報の全取得
$exif = @exif_read_data($_FILES["imagefile"]["tmp_name"], 0, true);

if ($exif) {
$exif_data = "";
// Exif情報の解析
foreach ($exif as $key => $section) {
foreach ($section as $name => $value) {
if (is_array($value)) {
foreach($value as $k => $v) {
$exif_data .= htmlspecialchars("$key.$name.$k: $v",
ENT_QUOTES) . "<br />\n";
}
} else {
$exif_data .= htmlspecialchars("$key.$name: $value",
ENT_QUOTES) . "<br />\n";
}
}
}
} else {
$exif_data = "Exif情報がありません";
}

}
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd&quot;&gt;
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<title>Exif関数サンプル</title>
</head>
<body>
<h1>Exif関数サンプル</h1>
<form method="post"
action="<?php echo $_SERVER['SCRIPT_NAME']; ?>"
enctype="multipart/form-data">
<input type="file" name="imagefile" />
<input type="submit" value="送信" />
</form>
<div>
<?php echo $exif_data; ?>
</div>
</body>
</html>


// GPSセクションがある場合
if (array_key_exists('GPS', $exif)) {
// $exif['GPS']['GPSLongitude']を使用する測地系に変換して格納
$lon = …… ;
// $exif['GPS']['GPSLatitude']を使用する測地系に変換して格納
$lat = …… ;
}

135：女傑 ◆nDpXSJz8i.：2013/03/03(日) 13:42:01
User-agent: *
Disallow: /robots.txtrobots.txt

136：女傑 ◆nDpXSJz8i.：2013/03/03(日) 13:48:04
Sitemap: http://www.lawson.co.jp/sitemap.xml

User-agent: *
Disallow: /cgi-bin/
Disallow: /ct/
Disallow: /ct/ct_lns.html
Disallow: /go_lawson/
Disallow: /lawson_more/
Disallow: /lawson_pass/member/lns/
Disallow: /lawson_plus/
Disallow: /wanwan/
Disallow: /happiness/
Disallow: /30th/
Disallow: /vitaminplus/ct/
Disallow: /lawson_pass/member/ct/
Disallow: /campaign/rilakkuma/ct/
Disallow: /campaign/golden_eggs/ct/
Disallow: /impul/ct/
Disallow: /recommend/niku/ct/ct_niku.html

137：女傑：2013/03/03(日) 18:18:56

$kazu = count($page_array);

for ($i = 0; $i < $kazu; $i++) {
$bango = $i+1+$page_line_num*$page_num-1-$page_line_num+1;
{
echo <<<EOF
$bango:$page_array[$i]<br>
EOF;
}
echo "\n";
}

138：女傑：2013/03/03(日) 21:13:45
$keywords = preg_split("/[\s,]+/", "test and, examination");
$kazu = count($keywords);

while (list($value0,$value1) = each($keywords)) {
echo "$value0:$value1<br>\n";
}

foreach ($keywords as $value => $test) {
echo "$value:$test<br>\n";
}

139：女傑 ◆nDpXSJz8i.：2013/03/04(月) 00:06:22
$bun =~ s/.{160}/$&

140：女傑 ◆nDpXSJz8i.：2013/03/04(月) 00:08:18
$bun =~ s/.{160}/$&<BR>\n/g;

141：女傑 ◆nDpXSJz8i.：2013/03/04(月) 00:42:20
$_SERVER['PATH_INFO']<FilesMatch "^path_info$">
ForceType application/x-httpd-php
</FilesMatch><?php
$query = getenv ("PATH_INFO");
$var = split ("[/\.]", $query);
echo "引数は「$var[1]」と「$var[2]」です。";
?>

142：女傑 ◆nDpXSJz8i.：2013/03/04(月) 01:00:35
($value0, $value1) = $ENV{'PATH_INFO'} =~ m!/([^/]+)/([^/]+)/?!;

143：女傑：2013/03/04(月) 12:49:10
<?php
$query = $_SERVER['PATH_INFO'];
$var = split ("[/\.]", $query);
echo "引数は「$var[1]」と「$var[2]」です。";
?>

144：女傑 ◆nDpXSJz8i.：2013/03/04(月) 21:40:31
if($email =~ /^[^@]+@[^.]+\..+/){
print '正しいかも';
}else{
print '違うかも';
}

145：女傑：2013/03/05(火) 17:38:49
$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\" target=\"_blank\">$1<\/a>/g;
##$email =~ s/(^[^@]+@[^.]+\..+)/<a href=\"mailto\:$1\" target=\"_blank\">$1<\/a>/g;
##$email =~ s/([-\w.]|[\s\!\"\#\$\%\&\'\(\)\*\+\,\-\.\/\:\;\<\?\@\[\\\]\^\_\`\{\|\}\~])/'&#'.unpack('C2',$1).';'/eg; # エンティティコード化

146：女傑：2013/03/05(火) 18:51:30
#■ URLDownloadToFileを使用します。


# #include <urlmon.h> // ヘッダーファイルを指定


# char szURL[128];
# char szHtml[128];

# strcpy(szURL, "http://www.hoge.com/main.htm&quot;);
# strcpy(szHtml, "C:\\TEST\\main.htm");
# URLDownloadToFile(NULL, szURL, szHtml, 0, NULL

147：女傑：2013/03/06(水) 10:07:29
while (list($data1, $data2) each($data))
{ echo "data1:data2"; }
foreach ($data as $data1 => $data2)
{ echo "data1:data2"; }
$max = count($youso);
for ($i=0;$i<$max;$i++)
{ echo "$i:$youso[$i]"}

148：女傑：2013/03/06(水) 10:20:02
if (array_key_exists('1着', array_count_values($array2))) {
echo "この配列には 'first' という要素が存在します";
}
else { echo "この配列には 'first' という要素が存在しません"; }

149：女傑 ◆nDpXSJz8i.：2013/03/06(水) 13:58:36
<?php
echo "test1.jpg:<br>\n";
$exif = exif_read_data('tests/test1.jpg', 'IFD0');
echo $exif===false ? "No header data found.<br>\n" : "Image contains headers<br />\n";

$exif = exif_read_data('tests/test2.jpg', 0, true);
echo "test2.jpg:<br>\n";
foreach ($exif as $key => $section) {
foreach ($section as $name => $val) {
echo "$key.$name: $val<br>\n";
}
}
?>
150：女傑：2013/03/06(水) 16:08:19
$a = 0;
while ($a < 10)
{
print "繰り返し処理<BR>";
$a++;

if ($a >= 5) { last; }

}
$a = 0;
while ($a < 10)
{
print "繰り返し処理<BR>";
$a++;
}
open (IN,"test.txt");
while (<IN>)
{
print $_;
}
close (IN);

151：女傑：2013/03/06(水) 16:19:21
sub datafiles
{
local %table;
local($fname, $kazu, $i);
local($name, $val);

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

open FILE, "< $fname";
@lines = <FILE>;
$kazu = @lines;

# for ($i=0;$i<$kazu;$i++) {
# foreach $line (@lines) {
$i = 0;
while ($i < $kazu) {
chomp $_;
($name, $val) = split(',', $lines[$i], 2);
# ($name, $val) = split(',', $line, 2);
if ($name ne "") {
$table{$name} = $val;
}
$i++;
if ($i >= $kazu) { last; }
}

close FILE;
return %table;
}

152：女傑さん ◆nDpXSJz8i.：2013/03/06(水) 20:19:41
#include <windows.h>
int PASCAL WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
HANDLE Mutex = CreateMutex(NULL, false, "Mutex");
if (Mutex == NULL) return 0;
if ( GetLastError() == ERROR_ALREADY_EXISTS){
return 0;
}
{
MessageBox(0, "Hello, World!", "Welcome", MB_OK);
return 0;
}
}

153：女傑 ◆nDpXSJz8i.：2013/03/07(木) 19:59:50
if ( $sample =~ /女傑/ ) {
print '変数に文字列 "女傑"は含まれています。' ;
} else {
print '変数に文字列 "女傑"は含まれていません。' ;

154：女傑 ◆nDpXSJz8i.：2013/03/07(木) 20:25:32
&jcode'convert(*name,'sjis');
&jcode'convert(*value,'sjis');

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

$value =~ s/\r\n/\0/g;
$value =~ s/\r/\0/g;
$value =~ s/\f//g;
$value =~ s/\t//g;

155：女傑 ◆nDpXSJz8i.：2013/03/08(金) 14:01:06
if ( $sample =~ /hello/ ) {
print '変数に文字列 "hello"は含まれています。' ;
} else {
print '変数に文字列 "hello"は含まれていません。' ;
} if (/hello/ ) {
print '特殊変数 $_に文字列 "hello"は含まれています。' ;
} else {
print '特殊変数 $_に文字列 "hello"は含まれていません。' ;

156：女傑 ◆nDpXSJz8i.：2013/03/08(金) 20:54:36
<html>
<head><title></title></head>
<body>
<?php
$moji = "test script";
if(ereg("[a-z]{6}", $moji, $result)){
print_r($result);
}
?>
</body>
</html>

157：女傑 ◆nDpXSJz8i.：2013/03/08(金) 21:50:27
# $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;

158：女傑 ◆nDpXSJz8i.：2013/03/09(土) 15:38:49

if ( m/^(\d+) (\d+)\r\n$/ ){

159：女傑 ◆nDpXSJz8i.：2013/03/11(月) 00:26:47
2009年08月25日09時00分
rtc.startTime = "1251158400"

VMware Tools によるホストとの時刻同期を停止するには次の設定も必要。

tools.syncTime = "FALSE"
time.synchronize.continue = "FALSE"
time.synchronize.restore = "FALSE"
time.synchronize.resume.disk = "FALSE"
time.synchronize.shrink = "FALSE"
time.synchronize.tools.startup = "FALSE"

SMBIOS.reflectHost Edit

物理マシンのOEMID（製造元とモデル名）を仮想マシンに認識させるかどうかを指定します。
通常、仮想マシンのOEMIDは、製造元が"VMware, Inc."モデルが"VMware Virtual Platform"となっています。
OEMIDはmsinfo32.exeで確認することができます。

TRUE
FALSE

のいずれかを指定します。

160：女傑さん ◆nDpXSJz8i.：2013/03/11(月) 10:34:53
<?php
$string = 'April 15, 2003';
$pattern = '/(\w+) (\d+), (\d+)/i';
$replacement = '${1}1,$3';
echo preg_replace($pattern, $replacement, $string);
?>
<?php
$string = 'The quick brown fox jumped over the lazy dog.';
$patterns = array();
$patterns[0] = '/quick/';
$patterns[1] = '/brown/';
$patterns[2] = '/fox/';
$replacements = array();
$replacements[2] = 'bear';
$replacements[1] = 'black';
$replacements[0] = 'slow';
echo preg_replace($patterns, $replacements, $string);
?>
<?php
ksort($patterns);
ksort($replacements);
echo preg_replace($patterns, $replacements, $string);
?>
<?php
$patterns = array ('/(19|20)(\d{2})-(\d{1,2})-(\d{1,2})/',
'/^\s*{(\w+)}\s*=/');
$replace = array ('\3/\4/\1\2', '$\1 =');
echo preg_replace($patterns, $replace, '{startDate} = 1999-5-27');
?>
<?php
$str = 'foo o';
$str = preg_replace('/\s\s+/', ' ', $str);
// This will be 'foo o' now
echo $str;
?>
<?php
$count = 0;

echo preg_replace(array('/\d/', '/\s/'), '*', 'xp 4 to', -1 , $count);
echo $count; //3
?>

161：女傑さん ◆nDpXSJz8i.：2013/03/11(月) 10:35:53
<?php
$string = 'XYZ';
if (eregi('z', $string)) {
echo "'$string' は、'z' または 'Z' を含んでいます!";
}
?>
<?php
$subject = "abcdef";
$pattern = '/^def/';
preg_match($pattern, substr($subject,3), $matches, PREG_OFFSET_CAPTURE);
print_r($matches);
?>

162：女傑さん ◆nDpXSJz8i.：2013/03/11(月) 14:20:24
string mb_convert_kana ( string $str [, string $option = "KV" [, string $encoding ]] )

r

「全角」英字を「半角」に変換します。



R

「半角」英字を「全角」に変換します。



n

「全角」数字を「半角」に変換します。



N

「半角」数字を「全角」に変換します。



a

「全角」英数字を「半角」に変換します。



A

「半角」英数字を「全角」に変換します （"a", "A" オプションに含まれる文字は、U+0022, U+0027, U+005C, U+007Eを除く U+0021 - U+007E の範囲です）。



s

「全角」スペースを「半角」に変換します（U+3000 -> U+0020）。



S

「半角」スペースを「全角」に変換します（U+0020 -> U+3000）。



k

「全角カタカナ」を「半角カタカナ」に変換します。



K

「半角カタカナ」を「全角カタカナ」に変換します。



h

「全角ひらがな」を「半角カタカナ」に変換します。



H

「半角カタカナ」を「全角ひらがな」に変換します。



c

「全角カタカナ」を「全角ひらがな」に変換します。



C

「全角ひらがな」を「全角カタカナ」に変換します。



V

濁点付きの文字を一文字に変換します。"K", "H" と共に使用します。

163：女傑 ◆nDpXSJz8i.：2013/03/11(月) 16:18:14
echo mb_ereg_replace('[^a-zA-Z]', '', 'LOOX T70H');

164：女傑 ◆nDpXSJz8i.：2013/03/11(月) 16:22:06
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=Shift_JIS">
<title>芥川龍之介賞&nbsp;受賞者データベース</title>
</head><body bgcolor=#ffffff>
<?php
/*
mb_関数が使えない場合はhttp://www.spencernetwork.org/にて漢字コード変換(簡易版)を入手する事
*/

if (file_exists("jcode-LE.php")) require_once("jcode-LE.php");

// 内部文字列文字化け対策
if (function_exists("mb_internal_encoding")) {
mb_internal_encoding("SJIS");
mb_language("Japanese");
}

/*
QUERY受信(POST対応)
htmlspecialchars関数にて、タグ処理を実現
*/

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 = htmlspecialchars($_SERVER['QUERY_STRING'], ENT_QUOTES); }

// QUERYが空白の場合
if (empty($qry))
{
echo "<h5>QUERYがありません</h5>";
echo "</body></html>";
exit;
}

// QUERYのマッチング
$qry = substr($qry,0,32);
$qry = mb_convert_kana($qry, "KRNH");


// QUERYの文字コード統一
if (get_magic_quotes_gpc()) {
$qry = stripslashes($qry);
$qry = mb_convert_encoding($qry,"sjis","JIS, sjis-win, eucjp-win, utf-8");
}
$wid = "$qry";

/*
preg_match("^[ァ-ヶ]+$",$qry))
preg_match("^[ぁ-ん]+$",$qry))
preg_match("/^[A-Za-z0-9]{12}/i", "$qry"))
*/

// QUERYのサニタイズ処理
$wid = str_replace(">",">",$wid);
$wid = str_replace("<","<",$wid);
$wid = str_replace("\r\n", "\r",$wid);
$wid = str_replace("\r", "\n",$wid);
$wid = preg_replace("/\n{2,}/", "\n\n", $wid);
$wid = str_replace("\n", "<br>", $wid);

165：女傑 ◆nDpXSJz8i.：2013/03/11(月) 16:22:57
// MySQLに接続する。
$host = "localhost";
$id = "";
$password = "";

if( $res_dbcon = mysql_connect( $host, $id, $password) ){
echo "★☆★☆MySQL接続が正常に開始しました。★☆★☆<br><hr>";
}
else{
echo "★☆★☆残念なことに、MySQL接続が失敗しました。★☆★☆<br><hr>";
}

// 文字コードを変換する
mysql_query("SET NAMES sjis");

// MySQL 読み込み。
$dbname = "bungaku";
mysql_select_db("$id");

//テーブルがあるかどうか 0=なし 1=あり
function table_exist($dbname){
$result = mysql_call("show tables like '$dbname'");
if(!$result){return 0;}
$a = mysql_fetch_row($result);
mysql_free_result($result);
return $a;
}

$result = mysql_query("SELECT kai, nendo, myoji, namae, sakuhin, shozoku FROM $dbname WHERE sakusya='$wid' or kai='$wid' or nendo='$wid' or myoji='$wid' or sakuhin='$wid' or namae='$wid'");
$num_rows = mysql_num_rows($result);
$allkazu = $num_rows;

// 項目を配列に入れる
$koumoku = array(
"0" => "受賞回",
"1" => "受賞年度",
"2" => "受賞者氏名",
"3" => "受賞作品",
"4" => "掲載雑誌",
);

/*
for ($i = 0 ; $i < mysql_num_rows($result) ; $i++){
$row = mysql_fetch_array($result, NULL, PGSQL_ASSOC);
}

if (result <= 0):
echo "結果がありません。";
endif;

while ($row = mysql_fetch_array($result, MYSQL_ASSOC)) {
*/

// 検索結果を出力する
for ($i=0;$i < mysql_num_rows($result); $i++){
$row = mysql_fetch_array($result,MYSQL_ASSOC);

166：女傑 ◆nDpXSJz8i.：2013/03/11(月) 16:23:48
echo <<<EOF

$koumoku[0]:第$row[kai]回<br>
$koumoku[1]:$row[nendo]年度<br>
$koumoku[2]:$row[myoji]$row[namae]さん<br>
$koumoku[3]:$row[sakuhin]<br>
$koumoku[4]:$row[shozoku]<br>
<img src="https://chart.googleapis.com/chart?chs=120x120&amp;cht=qr&amp;chl=$row[sakuhin]&choe=Shift_JIS&chld=L|1\">
<br>
<table border="1" width="1000" cellspacing="0" cellpadding="5" bordercolor="#333333">
<tr>
<th bgcolor="#EE0000"><font color="#FFFFFF" width="200">$koumoku[0]</font></th>
<th bgcolor="#EE0000" width="200"><font color="#FFFFFF">$koumoku[1]</font></th>
<th bgcolor="#EE0000" width="500"><font color="#FFFFFF">$koumoku[2]</font></th>
<th bgcolor="#EE0000" width="1000"><font color="#FFFFFF">$koumoku[3]</font></th>
<th bgcolor="#EE0000" width="300"><font color="#FFFFFF">$koumoku[4]</font></th>
</tr>
<tr>
<td bgcolor="#FFBBFF" align="left" width="200" nowrap>$row[kai]</td>
<td bgcolor="#87cefa" valign="left" width="200">$row[nendo]</td>
<td bgcolor="#ff7f50" valign="left" width="500">$row[myoji]$row[namae]</td>
<td bgcolor="#90EE90" valign="left" width="1000">$row[sakuhin]</td>
<td bgcolor="#EEEE00" valign="left" width="300">$row[shozoku]</td>
</tr>
</table>
<hr>
EOF;
}
if ($allkazu < 1) {
echo <<<EOF
<font>検索の結果、何も見つかりませんでした。</font>
EOF;
} else {
echo "検索の結果、全部で" . $allkazu . "作品見つかりました。";
}

// 出力する結果がなくなれば終了
if(!$result){break;}

// 出力された結果を開放する。
mysql_free_result($result);

// MySQLを閉じる。
//mysql_close($res_dbcon);
$close_flag = mysql_close($res_dbcon);

if ($close_flag){
print('<br>★☆★☆MySQL接続が正常に終了しました。★☆★☆<br>');
}
else{
echo "★☆★☆残念なことに、MySQL接続が正常に終了できませんでした。★☆★☆<br><hr>";
}
?>
</body></html>

167：女傑 ◆nDpXSJz8i.：2013/03/11(月) 16:38:28
$wid = str_replace("/^[ａ-ｚＡ-Ｚ０-９]+$/","/^[a-zA-Z0-9]+$/",$wid);

168：女傑 ◆nDpXSJz8i.：2013/03/11(月) 16:49:09
$qry = str_replace("/^[a-zA-Z0-9ァ-ヶぁ-ん一-龠]+$/","/^[a-zA-Z0-9ァ-ヶぁ-ん一-龠]+$/",$qry);

169：女傑 ◆nDpXSJz8i.：2013/03/11(月) 22:53:35
<?php
$array = array(1,2,3,4);
$hit = array_search(1,$array);
if ($hit !== FALSE){
echo "1は\$array内に存在します";
}
?>

170：女傑 ◆nDpXSJz8i.：2013/03/11(月) 23:16:16
if (/Windows 98|Win98/i) { $name = "Windows 98"; }

171：女傑 ◆nDpXSJz8i.：2013/03/11(月) 23:25:13
$ip = $ENV{'REMOTE_ADDR'};
$host =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/
$ip =~ s/(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.***.***.***/;

172：女傑 ◆nDpXSJz8i.：2013/03/11(月) 23:27:06
$filenaiyou = join("",$array);

173：女傑 ◆nDpXSJz8i.：2013/03/11(月) 23:33:10
$dbconn = pg_connect("port=5432 user= password= dbname=");

$sql = "SELECT product_no, product_name, price FROM products WHERE product_name = $1";

$result = pg_query_params($dbconn, $sql, array($_POST['product_name']));


$cnt = pg_numrows($result);
print("$cnt 件ヒットしました。<br />");

for ($i = 0; $i < $cnt; $i++) {

$row = pg_fetch_row($result, $i);
print("product_no：$row[0] product_name：$row[1] price：$row[2]");
}


pg_close($dbconn);

174：女傑 ◆nDpXSJz8i.：2013/03/11(月) 23:35:26
/[-!#$%&\'*+\\.\/0-9_`a-z{|}~]+@[-a-z0-9_]+\.[-a-z0-9_\\.]+/i

175：女傑 ◆nDpXSJz8i.：2013/03/11(月) 23:38:55
my %hoge;
$hoge{aaa} = '1';


if (exists $hoge{aaa}) {
# 値が存在するので表示されます
print "aaa exists\n";
}

176：女傑 ◆nDpXSJz8i.：2013/03/11(月) 23:54:59


例1 array_keys() の例
<?php
$array = array(0 => 100, "color" => "red");
print_r(array_keys($array));

$array = array("blue", "red", "green", "blue", "blue");
print_r(array_keys($array, "blue"));

$array = array("color" => array("blue", "red", "green"),
"size" => array("small", "medium", "large"));
print_r(array_keys($array));
?>

上の例の出力は以下となります。

Array
(
[0] => 0
[1] => color
)
Array
(
[0] => 0
[1] => 3
[2] => 4
)
Array
(
[0] => color
[1] => size
)

177：女傑 ◆nDpXSJz8i.：2013/03/12(火) 00:24:51
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head><title>テスト</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=euc-jp">
<body>
<?php
$thisphp="asahi.php";
$page_line_num=5;#１つのページに表示させたい件数
if(!$page_num= htmlspecialchars($_GET["page"], ENT_QUOTES)){$page_num=1;}#最初は１ページ目とする

$page_num = rtrim($page_num);
$page_num = ltrim($page_num);
$page_num = str_replace(">",">",$page_num);
$page_num = str_replace("<","<",$page_num);
$page_num = str_replace("\r\n", "\r",$page_num);
$page_num = str_replace("\r", "\n",$page_num);
$page_num = preg_replace("/\n{2,}/", "\n\n", $page_num);
$page_num = str_replace("\n", "<br>", $page_num);
//I, II, III
$array=array('サラ2歳新馬','東京スポーツ杯2歳ステークス','朝日杯フューチュリティステークス','報知杯弥生賞','皐月賞','東京優駿（日本ダービー）','嵐山ステークス','菊花賞','有馬記念');
$array2=array('1着','3着','2着','4着','1着','1着','3着','1着','3着');
$array3=array(4,1,3,1);
$array4=array('新馬戦','GIII','GI','JPN-II','GI','GI','OP','GI','GI');
$array5=array('サラ2歳混合指定・馬齢','サラ2歳国際指定・馬齢','サラ2歳国際指定・馬齢','サラ3歳牡牝国際指定・馬齢','サラ3歳牡牝国際指定・定量','サラ3歳牡牝国際指定・定量','サラ3歳以上牡牝国際特別・別定','サラ3歳牡牝国際指定・定量','サラ3歳以上牡牝国際指定・馬齢');
$page_array=array_slice($array,($page_num-1)*$page_line_num,$page_line_num);#表示する分だけ別の配列に格納する 配列は０から数えるので処理上は１ページ目は０ページ目とする
$page_array2=array_slice($array2,($page_num-1)*$page_line_num,$page_line_num);
$page_array4=array_slice($array4,($page_num-1)*$page_line_num,$page_line_num);
$page_array5=array_slice($array5,($page_num-1)*$page_line_num,$page_line_num);
$allkazu = count($array);
//print_r($page_array);#現在のページで表示される中身を確認
if (1 > $page_num) {
echo <<<EOF
<font>ページが見つかりません</font>
</body></html>
EOF;
exit;
}

178：女傑 ◆nDpXSJz8i.：2013/03/12(火) 00:25:26
$kazu = count($page_array);
$i=0;
for ($i = 0; $i < $kazu; $i++) {
$bango = $i+1+$page_line_num*$page_num-1-$page_line_num+1;
{
echo <<<EOF
$bango:$page_array[$i]&nbsp;$page_array2[$i]<br>
EOF;
}
echo "\n";
}
print_r(array_keys($array2, "1着"));print_r(array_keys($array2, "2着"));$kazu1 = count(array_keys($array2, "1着"));$kazu2 = count(array_keys($array2, "2着"));
$next_page=$page_num+1;#次のページ
$back_page=$page_num-1;#前のページ

if($back_page >= 1){$back_str='<a href="'.$thisphp.'?page='.$back_page.'">前へ</a>';}#現在より前のページが存在すれば戻るリンクを作る
else{$back_str='<span style="color:gray">前へ</span>';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='<span style="color:gray">次へ</span>';}

//$all_page_num=count($array) / ($page_line_num-1);#全部のページ数を計算
$all_page_num=count($array) / ($page_line_num-1);#全部のページ数を計算
//ceil
$kiriage = ceil($all_page_num); $kir = $kiriage-1;
for($i=1;$i<$kiriage;$i++){#存在するページ番号を生成
if($i != $page_num){$page_str.='[<a href="'.$thisphp.'?page='.$i.'">'.$i.'</a>]';}
else{$page_str.='[<span style="color:gray">'.$i.'</span>]';}
}
//$soupage = floor($all_page_num); // 切捨て
$array_lowercase = array_map('strtolower', $array2);
$array4 = array_multisort($array_lowercase, SORT_ASC, SORT_NUMERIC, $array2);
//print_r(array_count_values($array2));
$zensei = "{$array3['0']}-{$array3['1']}-{$array3['2']}-{$array3['3']}";
$sen = "戦";
$shou = "勝";
$icchaku = $kazu1;
$shoritu = $kazu1/$allkazu;
$shoritu = round($shoritu, 3);
$rentai = (($kazu1)+($kazu2))/$allkazu;
$rentai = round($rentai, 3);

179：女傑 ◆nDpXSJz8i.：2013/03/12(火) 00:25:56
if ($all_page_num < $page_num) {
echo <<<EOF
<font>ページが見つかりません</font>
</body></html>
EOF;
exit;
}
if ($rentai != 1){
$rentai = sprintf( "%.3f", $rentai );
$rentai = substr_replace($rentai, "", 0,1);
}
if ($rentai == 1) { $rentai = '1.000'; }
if ($shoritu != 1){
$shoritu = sprintf( "%.3f", $shoritu );
$shoritu = substr_replace($shoritu, "", 0,1);
}
if ($shoritu == 1) { $shoritu = '1.000'; }

echo <<<EOF
<p>$back_str&nbsp;$page_str&nbsp;$next_str</p>
<p>成績$allkazu$sen$icchaku$shou&nbsp;$zensei</p>
<p>勝率$shoritu&nbsp;連対率$rentai</p>
EOF;
$kai = "回";
foreach (array_count_values($array2) as $key => $val) {
echo "$key$val$kai<br>\n";

}
echo <<<EOF
<p>$page_num/$kir</p>
EOF;

?>
</body></html>

180：女傑 ◆nDpXSJz8i.：2013/03/12(火) 09:57:51
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head><title>ナリタブライアン</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=Shift_JIS">
<body>
<?php
$thisphp="NaritaBrian.php";
$page_line_num=5;#１つのページに表示させたい件数

if(!$page_num= htmlspecialchars($_GET["page"], ENT_QUOTES)){$page_num=1;}#最初は１ページ目とする
$page_num = floor($page_num); // 切捨て
$page_num = str_replace(">",">",$page_num);
$page_num = str_replace("<","<",$page_num);
$page_num = str_replace("\r\n", "\r",$page_num);
$page_num = str_replace("\r", "\n",$page_num);
$page_num = preg_replace("/\n{2,}/", "\n\n", $page_num);
$page_num = str_replace("\n", "<br>", $page_num);

$array=array('サラ3歳新馬','サラ3歳新馬','函館3歳ステークス','きんもくせい特別','デイリー杯3歳ステークス','京都3歳ステークス','朝日杯3歳ステークス','共同通信杯4歳ステークス','フジテレビ賞スプリングステークス','皐月賞',
'東京優駿','京都新聞杯','菊花賞','有馬記念','阪神大賞典','天皇賞秋','ジャパンカップ','有馬記念','阪神大賞典','天皇賞春','高松宮杯');
$array2=array('2着','1着','6着','1着','3着','1着','1着','1着','1着','1着','1着','2着','1着','1着','1着','12着','6着','4着','1着','2着','4着');
//$array3=array(12,3,1,5);
$array4=array('新馬戦','新馬戦','GIII','500万下','GII','OP','GI','GIII','GII','GI','GI','GII','GI','GI','GII','GI','GI','GI','GII','GI','GI');
$page_array=array_slice($array,($page_num-1)*$page_line_num,$page_line_num);#表示する分だけ別の配列に格納する 配列は０から数えるので処理上は１ページ目は０ページ目とする
$page_array2=array_slice($array2,($page_num-1)*$page_line_num,$page_line_num);
$page_array4=array_slice($array4,($page_num-1)*$page_line_num,$page_line_num);
if (1 > $page_num) {
echo <<<EOF
<font>ページが見つかりません</font>
</body></html>
EOF;
exit;
}

$allkazu = count($array);
//print_r($page_array);#現在のページで表示される中身を確認
$kazu1 = count(array_keys($array2, "1着"));$kazu2 = count(array_keys($array2, "2着"));$kazu3 = count(array_keys($array2, "3着"));$kazu4 = $allkazu-$kazu1-$kazu2-$kazu3;
$kazu = count($page_array);

181：女傑 ◆nDpXSJz8i.：2013/03/12(火) 09:58:21
for ($i = 0; $i < $kazu; $i++) {
$bango = $i+1+$page_line_num*$page_num-1-$page_line_num+1;
{
echo <<<EOF
$bango:$page_array[$i]&nbsp;$page_array4[$i]&nbsp;$page_array2[$i]<br>
EOF;
}
echo "\n";
}

$next_page=$page_num+1;#次のページ
$back_page=$page_num-1;#前のページ

if($back_page >= 1){$back_str='<a href="'.$thisphp.'?page='.$back_page.'">前へ</a>';}#現在より前のページが存在すれば戻るリンクを作る
else{$back_str='<span style="color:gray">前へ</span>';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='<span style="color:gray">次へ</span>';}

//$all_page_num=count($array) / ($page_line_num-1);#全部のページ数を計算
$all_page_num=count($array) / ($page_line_num);#全部のページ数を計算
//ceil
$pagesuu = ceil($all_page_num); // 切捨て
for($i=1;$i<=$pagesuu;$i++){#存在するページ番号を生成
if($i != $page_num){$page_str.='[<a href="'.$thisphp.'?page='.$i.'">'.$i.'</a>]';}
else{$page_str.='[<span style="color:gray">'.$i.'</span>]';}
}
if ($pagesuu < $page_num) {
echo <<<EOF
<font>ページが見つかりません</font>
</body></html>
EOF;
exit;
}

182：女傑 ◆nDpXSJz8i.：2013/03/12(火) 09:58:52
//$soupage = floor($all_page_num); // 切捨て
$array_lowercase = array_map('strtolower', $array2);
$array4 = array_multisort($array_lowercase, SORT_ASC, SORT_NUMERIC, $array2);
//print_r(array_count_values($array2));
$zensei = "{$kazu1}-{$kazu2}-{$kazu3}-{$kazu4}";
$sen = "戦";
$shou = "勝";
$icchaku = $kazu1;
$shoritu = $kazu1/$allkazu;
$shoritu = round($shoritu, 3);
$rentai = (($kazu1)+($kazu2))/$allkazu;
$rentai = round($rentai, 3);
if ($rentai != 1){
$rentai = sprintf( "%.3f", $rentai );
$rentai = substr_replace($rentai, "", 0,1);
}
if ($rentai == 1) { $rentai = '1.000'; }
if ($shoritu != 1){
$shoritu = sprintf( "%.3f", $shoritu );
$shoritu = substr_replace($shoritu, "", 0,1);
}
if ($shoritu == 1) { $shoritu = '1.000'; }
$data2 = implode(array_count_values($array2));

echo <<<EOF
<p>$back_str&nbsp;$page_str&nbsp;$next_str</p>
<p>成績$allkazu$sen$icchaku$shou&nbsp;$zensei</p>
EOF;
foreach (array_count_values($array2) as $key => $val){ print $key."".$val."回\n";}
echo <<<EOF
<p>勝率$shoritu&nbsp;連対率$rentai</p>
<p>$page_num/$pagesuu</p>
EOF;
?>
</body></html>

183：女傑 ◆nDpXSJz8i.：2013/03/12(火) 10:12:58


例2 each() によって配列を走査する
<?php
$fruit = array('a' => 'apple', 'b' => 'banana', 'c' => 'cranberry');

reset($fruit);
while (list($key, $val) = each($fruit)) {
echo "$key => $val\n";
}
?>

上の例の出力は以下となります。

a => apple
b => banana
c => cranberry


<?php
$transport = array('foot', 'bike', 'car', 'plane');
$mode = current($transport); // $mode = 'foot';
$mode = next($transport); // $mode = 'bike';
$mode = next($transport); // $mode = 'car';
$mode = prev($transport); // $mode = 'bike';
$mode = end($transport); // $mode = 'plane';
?>

184：女傑 ◆nDpXSJz8i.：2013/03/12(火) 10:39:47

<?php
$str = 'hypertext language programming';
$chars = preg_split('/ /', $str, -1, PREG_SPLIT_OFFSET_CAPTURE);
print_r($chars);
?>

<?php
$str = 'one|two|three|four';

// 正の値を持つ limit
print_r(explode('|', $str, 2));

// 負の値を持つ limit (PHP 5.1 以降)
print_r(explode('|', $str, -1));
?>

<?php
// カンマまたは " ", \r, \t, \n , \f などの空白文字で句を分割する。
$keywords = preg_split("/[\s,]+/", "hypertext language, programming");
print_r($keywords);
?>

185：女傑 ◆nDpXSJz8i.：2013/03/12(火) 12:17:09
$array3 = array('サラ2歳新馬' => '1着', '東京スポーツ杯2歳ステークス' => '1着', '朝日杯フューチュリティステークス' => '1着');reset($array3);
while (list($key, $val) = each($array3)) {
echo "$key => $val\n";
}$ka = count(array_keys($array3, "1着"));echo "$ka";

186：女傑さん ◆nDpXSJz8i.：2013/03/12(火) 13:32:57
for (reset($a);$key = key($a);next($a)) {
echo "a[$key]=$a[$key]";
}

187：女傑さん ◆nDpXSJz8i.：2013/03/12(火) 13:38:58
reset($array3);
while (list($key, $val) = each($array3)) {
echo "$key => $val\n";
}
for (reset($array3);$key = key($array3);next($array3)) {
echo "$key => $array3[$key]\n";
}
$ka = count(array_keys($array3, "1着"));echo "1着$ka$kai";
?>

188：女傑 ◆nDpXSJz8i.：2013/03/12(火) 14:37:15
my $array3;

if (defined($array3)){
print "定義済み\n";
}else{
print "未定義値\n";
}

189：女傑 ◆nDpXSJz8i.：2013/03/12(火) 14:40:57
処理を抜ける（break）

190：女傑さん ◆nDpXSJz8i.：2013/03/12(火) 19:50:00
$配列=array(キー1 => 値１,キー２ => 値２・・・);
または
$配列[キー１]=値１;
$配列[キー２]=値２;

191：女傑 ◆nDpXSJz8i.：2013/03/12(火) 21:21:21
if (defined $urltable{$id}) {

}

192：女傑 ◆nDpXSJz8i.：2013/03/12(火) 21:29:36
サンプルプログラム
# @aからzが含まれているものを取得して@bに格納
@b = grep /z/, @a;

# @aからzが含まれていないものを取得して@bに格納
@b = grep !/z/, @a;

# @aからzが含まれているものの数を取得して$numに格納
$num = grep /z/, @a;

# $_を変更すると配列のデータも変更されます
# @aの中のaで始まるものの最後にAを付加する
grep {/^a/ && ($_ .= 'A')} @a;

193：女傑 ◆nDpXSJz8i.：2013/03/12(火) 21:52:45
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/\t//g;
$value =~ s/\r//g;
$value =~ s/\n//g;
$value =~ s/\.//g;
$value =~ s/\///g;
$value =~ s/&/&/g;
$value =~ s/"/"/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
}

194：女傑 ◆nDpXSJz8i.：2013/03/13(水) 00:12:26
$hairetu["サラ3歳新馬"] = "1着";
$hairetu["朝日杯3歳ステークス"] = "1着";
$hairetu["皐月賞"] = "1着";
print_r($hairetu);

195：女傑 ◆nDpXSJz8i.：2013/03/13(水) 01:06:36
@xx = ( "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat" );
@xx = grep(/^S/, @xx);
print "@xx\n";

196：女傑 ◆nDpXSJz8i.：2013/03/13(水) 01:15:35
$hairetu[] = "値1";
$hairetu[] = "値2";
$hairetu[] = "値3";

197：女傑 ◆nDpXSJz8i.：2013/03/13(水) 01:17:39
substr_count関数

198：女傑 ◆nDpXSJz8i.：2013/03/13(水) 01:31:44
open CSV,".CSV";
open SQL,">.SQL";

$cnt=0;
while (<CSV>) {
$cnt++;
s/\s//g;
s/\"//g;
s/,/','/g;
print SQL qq(INSERT INTO zipcode VALUES('$_');\n);
}
print $cnt;

close CSV;
close SQL;

199：女傑 ◆nDpXSJz8i.：2013/03/13(水) 11:43:13
<?php
$handle = fopen( "test.txt", "r" );

while( !feof($handle) ) {
　$rec = fgets( $handle );
　echo $rec;
}

fclose($handle);
?>
200：女傑 ◆nDpXSJz8i.：2013/03/13(水) 14:01:54
while ( $hairetu = <STDIN> ) {
chomp $hairetu;
if ($hairetu ne "") {
print "$hairetu[$i]";
}
else {
last;
}
}

201：女傑 ◆nDpXSJz8i.：2013/03/13(水) 15:17:25
@hairetu = <STDIN>;
$max = @hairetu;
$i=0;
while ( $i < $max ) {
chomp $hairetu;

if ($hairetu ne "") {
print "$hairetu[$i]";
}
else {
last;
}
$i++
}

202：女傑 ◆nDpXSJz8i.：2013/03/13(水) 18:07:59

<?php

$conn = pg_pconnect("dbname=publisher");
if (!$conn) {
echo "An error occurred.\n";
exit;
}

$result = pg_query($conn, "SELECT author, email FROM authors");
if (!$result) {
echo "An error occurred.\n";
exit;
}

$arr = pg_fetch_array($result, 0, PGSQL_NUM);
echo $arr[0] . " <- Row 1 Author\n";
echo $arr[1] . " <- Row 1 E-mail\n";

// PHP 4.1.0 以降、row パラメータはオプションです。result_type を指定
// したい場合は NULL を渡しておきます。pg_fetch_array を続けてコール
// すると、次の行を取得します。
$arr = pg_fetch_array($result, NULL, PGSQL_ASSOC);
echo $arr["author"] . " <- Row 2 Author\n";
echo $arr["email"] . " <- Row 2 E-mail\n";

$arr = pg_fetch_array($result);
echo $arr["author"] . " <- Row 3 Author\n";
echo $arr[1] . " <- Row 3 E-mail\n";

?>

203：女傑 ◆nDpXSJz8i.：2013/03/13(水) 18:34:40
sub kiroku {
flock(OUT, LOCK_EX);
if (!open(OUT,">> ./datalog.csv")) { &error(); }
print OUT "$word,$kensaku\n";
chmod(0666,"./datalog.dat");
close OUT;
flock(OUT, LOCK_NB);
}

204：女傑 ◆nDpXSJz8i.：2013/03/13(水) 22:06:16
if ( $hairetu =~ m/( docomo | [kcrtdhnsq]\.vordafone | ezweb )/gi ) {
$example = "携帯";
} else {
$example = "それ以外";
}

205：ページ処理 ◆nDpXSJz8i.：2013/03/13(水) 22:09:27
//ページ番号を取得
if(isset($_GET["p"]) && is_numeric($_GET["p"])) {
$p = $_GET["p"];
}else{
$p=0;
}

//表示データを読み込み
$data = bbs_view($p);

// HTML出力する（表示データ
for($i=0;$i<count($data);$i++){

$data[$i]["name"]
= htmlspecialchars($data[$i]["name"],ENT_QUOTES);
$data[$i]["title"]
= htmlspecialchars($data[$i]["title"],ENT_QUOTES);
$data[$i]["body"]
= nl2br(htmlspecialchars($data[$i]["body"],ENT_QUOTES));

print <<<EOF
<hr>
<dl class="message">
<dt class="msg-label">投稿日時</dt>
<dd class="msg-date">{$data[$i]["date"]}</dd>
<dt class="msg-label">名前</dt>
<dd class="msg-name">{$data[$i]["name"]}</dd>
<dt class="msg-label">タイトル</dt>
<dd class="msg-title">{$data[$i]["title"]}</dd>
<dt class="msg-label">本文</dt>
<dd class="msg-body">{$data[$i]["body"]}</dd>
</dl>

EOF;
}

print "<hr>\n";

//ページ番号状態を取得
$page = bbs_page($p);

//前ページ処理
if(isset($page["previous"])) {
print "<a href=\"./form.php?p={$page["previous"]}\">前のページ</a>　";
}

//次ページ処理
if($page["next"]) {
print "<a href=\"./form.php?p={$page["next"]}\">次のページ</a>";
}

206：女傑 ◆nDpXSJz8i.：2013/03/14(木) 00:11:52
<?php
$string = 'XYZ';
if (eregi('z', $string)) {
echo "'$string' は、'z' または 'Z' を含んでいます!";
}
?>
<?php
$str = 'foo o';
$str = preg_replace('/\s\s+/', ' ', $str);
// This will be 'foo o' now
echo $str;
?>

207：女傑 ◆nDpXSJz8i.：2013/03/14(木) 12:51:50


例1 オブジェクト指向型
<?php
$mysqli = new mysqli("localhost", "my_user", "my_password", "world");

/* 接続状況をチェックします */
if (mysqli_connect_errno()) {
printf("Connect failed: %s\n", mysqli_connect_error());
exit();
}

$query = "SELECT Name, CountryCode FROM City ORDER by ID LIMIT 3";
$result = $mysqli->query($query);

/* 数値添字配列 */
$row = $result->fetch_array(MYSQLI_NUM);
printf ("%s (%s)\n", $row[0], $row[1]);

/* 連想配列 */
$row = $result->fetch_array(MYSQLI_ASSOC);
printf ("%s (%s)\n", $row["Name"], $row["CountryCode"]);

/* 連想配列および数値添字配列 */
$row = $result->fetch_array(MYSQLI_BOTH);
printf ("%s (%s)\n", $row[0], $row["CountryCode"]);

/* 結果セットを開放します */
$result->free();

/* 接続を閉じます */
$mysqli->close();
?>

例2 手続き型
<?php
$link = mysqli_connect("localhost", "my_user", "my_password", "world");

/* 接続状況をチェックします */
if (mysqli_connect_errno()) {
printf("Connect failed: %s\n", mysqli_connect_error());
exit();
}

$query = "SELECT Name, CountryCode FROM City ORDER by ID LIMIT 3";
$result = mysqli_query($link, $query);

/* 数値添字配列 */
$row = mysqli_fetch_array($result, MYSQLI_NUM);
printf ("%s (%s)\n", $row[0], $row[1]);

/* 連想配列 */
$row = mysqli_fetch_array($result, MYSQLI_ASSOC);
printf ("%s (%s)\n", $row["Name"], $row["CountryCode"]);

/* 連想配列および数値添字配列 */
$row = mysqli_fetch_array($result, MYSQLI_BOTH);
printf ("%s (%s)\n", $row[0], $row["CountryCode"]);

/* 結果セットを開放します */
mysqli_free_result($result);

/* 接続を閉じます */
mysqli_close($link);
?>

208：女傑 ◆nDpXSJz8i.：2013/03/14(木) 12:53:25

<?php
$mysqli = new mysqli("localhost", "my_user", "my_password", "world");

/* 接続状況をチェックします */
if (mysqli_connect_errno()) {
printf("Connect failed: %s\n", mysqli_connect_error());
exit();
}

$query = "SELECT Name, CountryCode FROM City ORDER by ID DESC LIMIT 50,5";

if ($result = $mysqli->query($query)) {

/* 連想配列を取得します */
while ($row = $result->fetch_assoc()) {
printf ("%s (%s)\n", $row["Name"], $row["CountryCode"]);
}

/* 結果セットを開放します */
$result->free();
}

/* 接続を閉じます */
$mysqli->close();
?>

例2 手続き型
<?php
$link = mysqli_connect("localhost", "my_user", "my_password", "world");

/* 接続状況をチェックします */
if (mysqli_connect_errno()) {
printf("Connect failed: %s\n", mysqli_connect_error());
exit();
}

$query = "SELECT Name, CountryCode FROM City ORDER by ID DESC LIMIT 50,5";

if ($result = mysqli_query($link, $query)) {

/* 連想配列を取得します */
while ($row = mysqli_fetch_assoc($result)) {
printf ("%s (%s)\n", $row["Name"], $row["CountryCode"]);
}

/* 結果セットを開放します */
mysqli_free_result($result);
}

/* 接続を閉じます */
mysqli_close($link);
?>

上の例の出力は以下となります。

Pueblo (USA)
Arvada (USA)
Cape Coral (USA)
Green Bay (USA)
Santa Clara (USA)

例3 mysqli_result での iterator の使用法
<?php
$c = mysqli_connect('127.0.0.1','user', 'pass');

// イテレータがあるとき (PHP 5.4 でサポートされるようになりました)
foreach ( $c->query('SELECT user,host FROM mysql.user') as $row ) {
printf("'%s'@'%s'\n", $row['user'], $row['host']);
}

echo "\n==================\n";

// イテレータのないとき
$result = $c->query('SELECT user,host FROM mysql.user');
while ($row = $result->fetch_assoc()) {
printf("'%s'@'%s'\n", $row['user'], $row['host']);
}

?>

209：女傑 ◆nDpXSJz8i.：2013/03/14(木) 13:01:12


例1 オブジェクト指向型
<?php
$mysqli = new mysqli("localhost", "my_user", "my_password", "world");

/* 接続状況をチェックします */
if (mysqli_connect_errno()) {
printf("Connect failed: %s\n", mysqli_connect_error());
exit();
}

$query = "SELECT Name, CountryCode FROM City ORDER by ID DESC LIMIT 50,5";

if ($result = $mysqli->query($query)) {

/* 配列を取得します */
while ($row = $result->fetch_row()) {
printf ("%s (%s)\n", $row[0], $row[1]);
}

/* 結果セットを開放します */
$result->close();
}

/* 接続を閉じます */
$mysqli->close();
?>

例2 手続き型
<?php
$link = mysqli_connect("localhost", "my_user", "my_password", "world");

/* 接続状況をチェックします */
if (mysqli_connect_errno()) {
printf("Connect failed: %s\n", mysqli_connect_error());
exit();
}

$query = "SELECT Name, CountryCode FROM City ORDER by ID DESC LIMIT 50,5";

if ($result = mysqli_query($link, $query)) {

/* 配列を取得します */
while ($row = mysqli_fetch_row($result)) {
printf ("%s (%s)\n", $row[0], $row[1]);
}

/* 結果セットを開放します */
mysqli_free_result($result);
}

/* 接続を閉じます */
mysqli_close($link);
?>

210：女傑 ◆nDpXSJz8i.：2013/03/14(木) 21:35:34
$text = str_replace(array("\r\n","\r","\n"), '', $text);

211：女傑 ◆nDpXSJz8i.：2013/03/14(木) 22:13:25
$kazu = count($page_array);
$i=0;
for ($i = 0; $i < $kazu; $i++) {
$bango = $i+1+$page_line_num*$page_num-1-$page_line_num+1;
{
echo <<<EOF
$bango:$page_array[$i]&nbsp;$page_array2[$i]<br>
EOF;
}
echo "\n";
}

212：女傑 ◆nDpXSJz8i.：2013/03/14(木) 22:15:08
use Jcode;
#
# traditional
Jcode::convert(\$str, $ocode, $icode, "z");
# or OOP!
print Jcode->new($str)->h2z->tr($from, $to)->utf8;

213：女傑 ◆nDpXSJz8i.：2013/03/14(木) 22:16:34
use Unicode::Japanese;

# convert utf8 -> sjis
print Unicode::Japanese->new($str)->sjis;

# convert sjis -> utf8
print Unicode::Japanese->new($str,'sjis')->get;

# convert sjis (imode_EMOJI) -> utf8
# convert sjis (imode絵文字) -> utf8
print Unicode::Japanese->new($str,'sjis-imode')->get;

# convert ZENKAKU (utf8) -> HANKAKU (utf8)
# convert 全角 (utf8) -> 半角(utf8)

print Unicode::Japanese->new($str)->z2h->get;

214：女傑 ◆nDpXSJz8i.：2013/03/14(木) 23:27:43
@2012 = ( "AAA", "BBB", "CCC", "DDD", "EEE" );
splice(@2012, 2, 1);
print "@2012\n";

215：女傑 ◆nDpXSJz8i.：2013/03/15(金) 10:51:18
foreach (1..11) {

($name,$value) = split(/\:/,$lines[$_]);
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\n//g;
$form{$_} = $value;
}

216：女傑 ◆nDpXSJz8i.：2013/03/15(金) 11:39:24
for (reset($array);$key=key($array);next($array)) {
echo "key[$array]:$key[$array]";
}

217：女傑 ◆nDpXSJz8i.：2013/03/15(金) 11:51:06
//for (reset($array3);$key = key($array3);next($array3)) {
//echo "$key => $array3[$key]\n";
//}

218：女傑 ◆nDpXSJz8i.：2013/03/15(金) 17:00:01

<?php
$result = mysql_query("SELECT id,email FROM people WHERE id = '42'");
if (!$result) {
echo 'Could not run query: ' . mysql_error();
exit;
}
$row = mysql_fetch_row($result);

echo $row[0]; // 42
echo $row[1]; // 'email' の値
?>

219：女傑 ◆nDpXSJz8i.：2013/03/15(金) 17:52:39
<?php
if (file_exists("jcode-LE.php")) require_once("jcode-LE.php");

// 内部文字列文字化け対策
if (function_exists("mb_internal_encoding")) {
mb_internal_encoding("utf8");
mb_language("Japanese");
}

// 文字コードを変換する

$qry1 = htmlspecialchars($_POST[sakusya], ENT_QUOTES);
$qry2 = htmlspecialchars($_POST[kai], ENT_QUOTES);
$qry3 = htmlspecialchars($_POST[nendo], ENT_QUOTES);
$qry4 = htmlspecialchars($_POST[myoji], ENT_QUOTES);
$qry5 = htmlspecialchars($_POST[namae], ENT_QUOTES);
$qry6 = htmlspecialchars($_POST[sakuhin], ENT_QUOTES);
$qry7 = htmlspecialchars($_POST[shozoku], ENT_QUOTES);

// QUERYの文字コード統一
if (get_magic_quotes_gpc()) {
$qry1 = stripslashes($qry1);
$qry2 = stripslashes($qry2);
$qry3 = stripslashes($qry3);
$qry4 = stripslashes($qry4);
$qry5 = stripslashes($qry5);
$qry6 = stripslashes($qry6);
$qry7 = stripslashes($qry7);
$qry1 = mb_convert_encoding($qry1,"utf-8","JIS, sjis-win, eucjp-win, sjis");
$qry2 = mb_convert_encoding($qry2,"utf-8","JIS, sjis-win, eucjp-win, sjis");
$qry3 = mb_convert_encoding($qry3,"utf-8","JIS, sjis-win, eucjp-win, sjis");
$qry4 = mb_convert_encoding($qry4,"utf-8","JIS, sjis-win, eucjp-win, sjis");
$qry5 = mb_convert_encoding($qry5,"utf-8","JIS, sjis-win, eucjp-win, sjis");
$qry6 = mb_convert_encoding($qry6,"utf-8","JIS, sjis-win, eucjp-win, sjis");
$qry7 = mb_convert_encoding($qry7,"utf-8","JIS, sjis-win, eucjp-win, sjis");
}

$con = mysql_connect("localhost","","");
if (!$con)
{
die('Could not connect: ' . mysql_error());
}

mysql_select_db("island", $con);
mysql_query("SET NAMES utf8");

$sql="INSERT INTO bungaku (sakusya, kai, nendo, myoji, namae, sakuhin, shozoku)
VALUES
('$qry1','$qry2','$qry3','$qry4','$qry5','$qry6','$qry7')";

if (!mysql_query($sql,$con))
{
die('Error: ' . mysql_error());
}
echo "1 record added";

mysql_close($con)
?>
a

220：女傑 ◆nDpXSJz8i.：2013/03/15(金) 23:40:56
foreach (0..$retsusuu) {
chomp($file) if $file =~ /\n$/;
($name,$value) = split(/:/,$lines[$_],1);
$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/\t//g;
$value =~ s/\r//g;
$value =~ s/\n//g;
$value =~ s/\.//g;
$value =~ s/\///g;
$value =~ s/&/&/g;
$value =~ s/"/"/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
# $bun = jcode($name)->h2z->euc;
my ($icode, $nmatch) = Jcode::getcode($name);
$bun = Jcode::convert("$name", "utf8", $icode, "z");
# $bun = Unicode::Japanese->new($bun, $icode)->z2hKana->utf8;
if ("$bun" ne "") {
chomp($bun) if $bun =~ /\n$/;

$bun =~ s/.{160}/$&<BR>\n/g;
print <<"EOF";

<font>$bun</font><br>
EOF
}
}

221：女傑 ◆nDpXSJz8i.：2013/03/16(土) 14:31:18
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=euc-jp">
<title>test</title>
</head><body bgcolor=#ffffff>
<?php




for ($i = 0; $i < $kazu; $i++) {
$bango = $i+1;
{
echo <<<EOF
$bango:$kaar[$i]<br>
EOF;
}
echo "\n";
}

?><?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 => $ni) {
echo "$value:$ni<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("sample.txt")) {

$lines = file("sample.txt");//$line = htmlspecialchars($lines);
foreach ($lines as $keyword1 => $keyword2) {

//while (list($name,$value) = each($lines)) {
//$text = htmlspecialchars($value);
$keyword1 = $keyword1+1;
list($key1,$key2) = preg_split("/[,]+/", "$keyword2");
{
echo "$keyword1:$key1=>$key2<br>\n";
}

}
}
else
{
echo "$qry は存在しません<br>";
}
?>

222：女傑 ◆nDpXSJz8i.：2013/03/16(土) 18:25:04
foreach (2..12) {

($name,$value) = split(/\:/,$lines[$_],2);
$value =~ s/</</g;
$value =~ s/>/>/g;
print "$name：$value<br>";
}

223：女傑 ◆nDpXSJz8i.：2013/03/16(土) 21:21:08

<?php
/* 接続をオープンします */
$mysqli = new mysqli("localhost", "my_user", "my_password", "world");

/* 接続状況をチェックします */
if (mysqli_connect_errno()) {
printf("Connect failed: %s\n", mysqli_connect_error());
exit();
}

$query = "SELECT Name, CountryCode FROM City ORDER BY Name";
if ($result = $mysqli->query( $query)) {

/* 行番号 400 に移動します */
$result->data_seek(399);

/* 行を取得します */
$row = $result->fetch_row();

printf ("City: %s Countrycode: %s\n", $row[0], $row[1]);

/* 結果セットを開放します */
$result->close();
}

/* 接続を閉じます */
$mysqli->close();
?>

例2 手続き型
<?php
/* 接続を開きます */
$link = mysqli_connect("localhost", "my_user", "my_password", "world");

/* 接続状況をチェックします */
if (!$link) {
printf("Connect failed: %s\n", mysqli_connect_error());
exit();
}

$query = "SELECT Name, CountryCode FROM City ORDER BY Name";

if ($result = mysqli_query($link, $query)) {

/* 行番号 400 に移動します */
mysqli_data_seek($result, 399);

/* 行を取得します */
$row = mysqli_fetch_row($result);

printf ("City: %s Countrycode: %s\n", $row[0], $row[1]);

/* 結果セットを開放します */
mysqli_free_result($result);
}

/* 接続を閉じます */
mysqli_close($link);
?>

224：女傑 ◆nDpXSJz8i.：2013/03/16(土) 22:01:49
$array3 = array('サラ2歳新馬' => '1着', '東京スポーツ杯2歳ステークス' => '2着', '朝日杯フューチュリティステークス' => '2着', '報知杯弥生賞' => '3着', '皐月賞' => '1着');//reset($array3);
//while (list($key, $val) = each($array3)) {
//echo "$key => $val\n";
//}
for (reset($array3);$key = key($array3);next($array3)) {
echo "$key => $array3[$key]<br>\n";
}
$ka = count(array_keys($array3, "1着"));$ka2 = count(array_keys($array3, "2着"));echo "1$rkai$ka$kai;2$rkai$ka2$kai";

225：女傑 ◆nDpXSJz8i.：2013/03/16(土) 23:18:48
#!/usr/local/bin/perl

$aaa{0001} = "056";
$aaa{0002} = "079";


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

$aaa{'0001'}<BR>
$aaa{'0002'}

HTML
exit;

#!/usr/local/bin/perl

%aaa = ("itou","伊藤","takeuti","竹内","tanaka","田中");

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

$aaa{'itou'}<BR>
$aaa{'takeuti'}<BR>
$aaa{'tanaka'}

HTML
exit;

226：女傑 ◆nDpXSJz8i.：2013/03/17(日) 13:02:05
%aaa = (
'0001' => '056',
'0002' => '079',
'0003' => '036'
);

227：女傑 ◆nDpXSJz8i.：2013/03/17(日) 15:02:13
while ( ($key, $value) = each(%ハッシュ) ) {
print "$key => $value\n";
} foreach $key (keys %ハッシュ) {
print "$key\n";
} foreach $value (values %ハッシュ) {
print "$value\n";
}

228：女傑 ◆nDpXSJz8i.：2013/03/17(日) 20:46:35
#!/usr/bin/perl

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);
$value =~ tr/+/ /;
$value =~ 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;
}

#if (!(-e $file)) { &error("存在しません"); }
#elsif (-z $file) { &error("データ異常"); }
#if (!open(IN,"$file")) { &error("ファイルが開けません"); }
#@lines = <IN>;
#close(IN);

if($form{'q'} ne "") { $id = "$form{'q'}"; }

%urltable = ('yahoo' => 'http://www.yahoo.co.jp','msn' => 'http://msn.co.jp/','hasegawa' => 'http://hasegawa.jp.land.to/');

if (exists $urltable{$id}) {
print "Location: $urltable{$id}\n";
print "\n";
}
else {
print "Content-type: text/html\n";
print "\n";
print "ID:$idは登録されていません。";
}

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>WebCARD</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
<SCRIPT language="JavaScript">
<!--
function PageBack(){ history.back(); }
//-->
</SCRIPT>
</HEAD>
<body bgcolor=#ffffff>
<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";
<h3>[<A HREF="JavaScript:history.back()">戻る</A>]</h3>
</body></html>
EOF
exit;

}

229：女傑 ◆nDpXSJz8i.：2013/03/17(日) 21:18:09
#if ($id =~ /$urltable{$id}/i)

230：女傑 ◆nDpXSJz8i.：2013/03/17(日) 22:11:40
$begin =~ s/^s+//g ; # 文頭に来るスペースを削除
$begin =~ s/s+$//g ; # 文末に来るスペースを削除
$expire =~ s/^s+//g ; # 文頭に来るスペースを削除
$expire =~ s/s+$//g ; # 文末に来るスペースを削除

231：女傑 ◆nDpXSJz8i.：2013/03/18(月) 10:18:38
$item = array(
array("name" => "Yamada", "age" => 32),
array("name" => "Tanaka", "age" => 26),
array("name" => "Suzuki", "age" => 43),
);

print $item[1]['name'] . "\n";
print $item[1]['age'] . "\n";

232：女傑 ◆nDpXSJz8i.：2013/03/18(月) 23:56:37

<?php
$search_array = array('first' => 1, 'second' => 4);
if (array_key_exists('first', $search_array)) {
echo "この配列には 'first' という要素が存在します";
}
?>

233：女傑 ◆nDpXSJz8i.：2013/03/19(火) 09:20:23
srand(time() + $ENV{"QUERY_STRING"});

$a = @array;
$i = int(rand($a));

print "$a[$i]\n";
print "\n";

234：女傑 ◆nDpXSJz8i.：2013/03/19(火) 14:02:07
$exif['GPSLatitude']

235：女傑 ◆nDpXSJz8i.：2013/03/19(火) 14:19:19
print $exif['GPSLatitude'][1] . "\n";print $exif['GPSLatitude'][2] . "\n";

236：女傑 ◆nDpXSJz8i.：2013/03/20(水) 11:08:22
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head><title>テスト</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=euc-jp">
<body>
<?php
$thisphp="asahi.php";
$page_line_num=5;
if(!$page_num= htmlspecialchars($_GET["page"], ENT_QUOTES)){$page_num=1;}

$page_num = rtrim($page_num);
$page_num = ltrim($page_num);
$page_num = str_replace(">",">",$page_num);
$page_num = str_replace("<","<",$page_num);
$page_num = str_replace("\r\n", "\r",$page_num);
$page_num = str_replace("\r", "\n",$page_num);
$page_num = preg_replace("/\n{2,}/", "\n\n", $page_num);
$page_num = str_replace("\n", "<br>", $page_num);

$array=array('サラ2歳新馬' => '1着','東京スポーツ杯2歳ステークス' => '3着','朝日杯フューチュリティステークス' => '2着','報知杯弥生賞' => '4着','皐月賞' => '1着','東京優駿（日本ダービー）' => '1着','嵐山ステークス' => '3着','菊花賞' => '1着','有馬記念' => '3着');
$array3 = array('サラ2歳新馬' => '1着', '東京スポーツ杯2歳ステークス' => '1着', '朝日杯フューチュリティステークス' => '1着' , '報知杯弥生賞' => '1着');

$page_array=array_slice($array,($page_num-1)*$page_line_num,$page_line_num);

$allkazu = count($array);
//print_r($page_array);
if (1 > $page_num) {
echo <<<EOF
<font>ページが見つかりません</font>
</body></html>
EOF;
exit;
}

237：女傑 ◆nDpXSJz8i.：2013/03/20(水) 11:08:57
$kazu = count($page_array);
$i=0;
while (list($key, $val) = each($page_array)) {
$bango = $i+1+$page_line_num*$page_num-1-$page_line_num+1;
echo "$bango:$key => $val<br>\n";
$i++;
}

$next_page=$page_num+1;
$back_page=$page_num-1;
$kazu1 = count(array_keys($array2, "1着"));
$kazu2 = count(array_keys($array2, "2着"));
$kazu3 = count(array_keys($array2, "3着"));
$kazu4 = $allkazu-$kazu1-$kazu2-$kazu3;
if($back_page >= 1){$back_str='<a href="'.$thisphp.'?page='.$back_page.'">前へ</a>';}
else{$back_str='<span style="color:gray">前へ</span>';}
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}
else{$next_str='<span style="color:gray">次へ</span>';}

//$all_page_num=count($array) / ($page_line_num-1);
$all_page_num=count($array) / ($page_line_num-1);
//ceil
$kiriage = ceil($all_page_num); $kir = $kiriage-1;
for($i=1;$i<$kiriage;$i++){
if($i != $page_num){$page_str.='[<a href="'.$thisphp.'?page='.$i.'">'.$i.'</a>]';}
else{$page_str.='[<span style="color:gray">'.$i.'</span>]';}
}
//$soupage = floor($all_page_num);
$array_lowercase = array_map('strtolower', $array);
$array4 = array_multisort($array_lowercase, SORT_ASC, SORT_NUMERIC, $array2);
//print_r(array_count_values($array2));
$zensei = "{$kazu1}-{$kazu2}-{$kazu3}-{$kazu4}";
$sen = "戦";
$shou = "勝";
$icchaku = $kazu1;
$shoritu = $kazu1/$allkazu;
$shoritu = round($shoritu, 3);
$rentai = (($kazu1)+($kazu2))/$allkazu;
$rentai = round($rentai, 3);
if ($all_page_num < $page_num) {
echo <<<EOF
<font>ページが見つかりません</font>
</body></html>
EOF;
exit;
}
if ($rentai != 1){
$rentai = sprintf( "%.3f", $rentai );
$rentai = substr_replace($rentai, "", 0,1);
}
if ($rentai == 1) { $rentai = '1.000'; }
if ($shoritu != 1){
$shoritu = sprintf( "%.3f", $shoritu );
$shoritu = substr_replace($shoritu, "", 0,1);
}
if ($shoritu == 1) { $shoritu = '1.000'; }

echo <<<EOF
<p>$back_str&nbsp;$page_str&nbsp;$next_str</p>
<p>成績$allkazu$sen$icchaku$shou&nbsp;[$zensei]</p>
<p>勝率$shoritu&nbsp;連対率$rentai</p>
EOF;
$kai = "回";
foreach (array_count_values($array2) as $key => $val) {
echo "$key$val$kai<br>\n";

}
echo <<<EOF
<p>$page_num/$kir</p>
EOF;
reset($array3);
while (list($key, $val) = each($array3)) {
echo "$key => $val<br>\n";
}
for (reset($array3);$key = key($array3);next($array3)) {
echo "$key => $array3[$key]<br>\n";
}
foreach ($array3 as $key => $val) {
echo "$key => $val<br>\n";
}
$ka = count(array_keys($array3, "1着"));
$ka2 = count(array_keys($array3, "2着"));
$ka3 = count(array_keys($array3, "3着"));
$ka4 = count($array3)-$ka-ka2-ka3;
echo "1着$ka$kai<>2着$ka2$kai<>3着$ka3$kai<>着外$ka4$kai";
?>
</body></html>

238：女傑 ◆nDpXSJz8i.：2013/03/20(水) 15:36:09

if (-e "./data/$FORM{'id'}\.dat") { &error(); }

if (!open(OUT,"> ./data/$FORM{'id'}\.dat")) { &error(); }
print OUT "$pwd\n";
close(OUT);
chmod(0666,"./data/$FORM{'id'}\.dat");
if (!open(IN,"./sysop.cgi")) { &error('',''); }
$master = <IN>; chop($master) if $master =~ /\n$/;
close(IN);

239：女傑 ◆nDpXSJz8i.：2013/03/21(木) 16:34:20
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head><title>テスト</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=euc-jp">
<body>
<?php
$thisphp="deepimpact.php";
$page_line_num=5;
if(!$page_num= htmlspecialchars($_GET["page"], ENT_QUOTES)){$page_num=1;}

$page_num = rtrim($page_num);
$page_num = ltrim($page_num);
$page_num = str_replace(">",">",$page_num);
$page_num = str_replace("<","<",$page_num);
$page_num = str_replace("\r\n", "\r",$page_num);
$page_num = str_replace("\r", "\n",$page_num);
$page_num = preg_replace("/\n{2,}/", "\n\n", $page_num);
$page_num = str_replace("\n", "<br>", $page_num);
//I, II, III
$array = array('サラ2歳新馬' => '1着','若駒ステークス' => '1着','報知杯弥生賞' => '1着','皐月賞' => '1着','東京優駿（日本ダービー）' => '1着','神戸新聞杯' => '1着','菊花賞' => '1着','有馬記念05' => '2着','阪神大賞典' => '1着','天皇賞（春）' => '1着','宝塚記念' => '1着','ジャパンカップ' => '1着','有馬記念06' => '1着');
$array2 = array('凱旋門賞' => '失格');
$array3 = array_merge($array,$array2);

240：女傑 ◆nDpXSJz8i.：2013/03/21(木) 16:35:14
$page_array=array_slice($array,($page_num-1)*$page_line_num,$page_line_num);

$allkazu = count($array);
$kazu33 = count($array2);
//print_r($page_array);
if (1 > $page_num) {
echo <<<EOF
<font>ページが見つかりません</font>
</body></html>
EOF;
exit;
}
$kazu = count($page_array);
$i=0;
while (list($key, $val) = each($page_array)) {
$bango = $i+1+$page_line_num*$page_num-1-$page_line_num+1;
echo "$bango:$key => $val<br>\n";
$i++;
}

$next_page=$page_num+1;
$back_page=$page_num-1;
$kazu1 = count(array_keys($array, "1着"));
$kazu2 = count(array_keys($array, "2着"));
$kazu3 = count(array_keys($array, "3着"));
$kazu4 = $allkazu-$kazu1-$kazu2-$kazu3;
if($back_page >= 1){$back_str='<a href="'.$thisphp.'?page='.$back_page.'">前へ</a>';}
else{$back_str='<span style="color:gray">前へ</span>';}
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}
else{$next_str='<span style="color:gray">次へ</span>';}

//$all_page_num=count($array) / ($page_line_num-1);
$all_page_num=count($array) / ($page_line_num-1);
$kiriage = ceil($all_page_num); $kir = $kiriage-1;
for($i=1;$i<$kiriage;$i++){
if($i != $page_num){$page_str.='[<a href="'.$thisphp.'?page='.$i.'">'.$i.'</a>]';}
else{$page_str.='[<span style="color:gray">'.$i.'</span>]';}
}

$zensei = "{$kazu1}-{$kazu2}-{$kazu3}-{$kazu4}";
$sen = "戦";
$shou = "勝";
$icchaku = $kazu1;
$shoritu = $kazu1/$allkazu;
$shoritu = round($shoritu, 3);
$rentai = (($kazu1)+($kazu2))/$allkazu;
$rentai = round($rentai, 3);
if ($all_page_num < $page_num) {
echo <<<EOF
<font>ページが見つかりません</font>
</body></html>
EOF;
exit;
}
if ($rentai != 1 or 0){
$rentai = sprintf( "%.3f", $rentai );
$rentai = substr_replace($rentai, "", 0,1);
}
if ($rentai == 1) { $rentai = '1.000'; }
if ($rentai == 0) { $rentai = '.000'; }
if ($shoritu != 1 or 0){
$shoritu = sprintf( "%.3f", $shoritu );
$shoritu = substr_replace($shoritu, "", 0,1);
}
if ($shoritu == 1) { $shoritu = '1.000'; }
if ($shoritu == 0) { $shoritu = '.000'; }
$ppp = "ページ";
echo <<<EOF
<p>$back_str&nbsp;$page_str&nbsp;$next_str</p>
<p>$page_num/$kir$ppp</p>
<p>成績$allkazu$sen$icchaku$shou&nbsp;[$zensei]</p>
<p>勝率$shoritu&nbsp;連対率$rentai</p>
EOF;

241：女傑 ◆nDpXSJz8i.：2013/03/21(木) 16:35:47
$kaz1 = count(array_keys($array2, "1着"));
$kaz2 = count(array_keys($array2, "2着"));
$kaz3 = count(array_keys($array2, "3着"));
$kaz4 = $kazu33-$kaz1-$kaz2-$kaz3;
$zenseii = "{$kaz1}-{$kaz2}-{$kaz3}-{$kaz4}";
$sokaall = count($array3);
$soka1 = count(array_keys($array3, "1着"));
$soka2 = count(array_keys($array3, "2着"));
$soka3 = count(array_keys($array3, "3着"));
$soka4 = $sokaall-$soka1-$soka2-$soka3;
$sozensei = "{$soka1}-{$soka2}-{$soka3}-{$soka4}";
$sen = "戦";
$shou = "勝";
$iccha = $soka1;
$shori = $soka1/$sokaall;
$shori = round($shori, 3);
$renta = (($soka1)+($soka2))/$sokaall;
$renta = round($renta, 3);
if ($renta == 0) { $renta = '.000'; }
if ($renta != 1 or 0){
$renta = sprintf( "%.3f", $renta );
$renta = substr_replace($renta, "", 0,1);
}
if ($renta == 1) { $renta = '1.000'; }

if ($shori != 1 or 0){
$shori = sprintf( "%.3f", $shori );
$shori = substr_replace($shori, "", 0,1);
}
if ($shori == 1) { $shori = '1.000'; }
if ($shori == 0) { $shori = '.000'; }
$kai = "回";
$tatsuro = array_count_values($array);
foreach ($tatsuro as $key => $val) {
echo "$key$val$kai<br>\n";
}
echo "<br>";
if ($array2 > 0) {
echo "参考成績：<br>\n";
foreach ($array2 as $key => $val) {
echo "$key => $val<br>\n";
}
echo <<<EOF
<br>
$kazu33$sen$kaz1$shou&nbsp;[$zenseii]<br><br>
総合成績：<br><br>
$sokaall$sen$soka1$shou&nbsp;[$sozensei]<br><br>
勝率$shori&nbsp;連対率$renta<br>
EOF;
}
?>
</body></html>

242：女傑 ◆nDpXSJz8i.：2013/03/21(木) 17:59:41
if ($kir == 0) {
$kir = str_replace("0", "1", $kir);
}

243：女傑 ◆nDpXSJz8i.：2013/03/22(金) 11:14:55
$ic = $kaz1;
$sh = $kaz1/$kazu33;
$sh = round($sh, 3);
$re = (($kaz1)+($kaz2))/$kazu33;
$re = round($re, 3);
if ($re == 0) { $re = '.000'; }
if ($re != 1 or 0){
$re = sprintf( "%.3f", $re );
$re = substr_replace($re, "", 0,1);
}
if ($re == 1) { $re = '1.000'; }

if ($sh != 1 or 0){
$sh = sprintf( "%.3f", $sh );
$sh = substr_replace($sh, "", 0,1);
}
if ($sh == 1) { $sh = '1.000'; }
if ($sh == 0) { $sh = '.000'; }

244：女傑 ◆nDpXSJz8i.：2013/03/22(金) 22:29:25
-- phpMyAdmin SQL Dump
-- version 3.5.2
-- http://www.phpmyadmin.net
--
-- ホスト: localhost
-- 生成日時: 2012 年 12 月 27 日 14:21
-- サーバのバージョン: 5.1.22-rc
-- PHP のバージョン: 5.2.5

SET SQL_MODE="NO_AUTO_VALUE_ON_ZERO";
SET time_zone = "+09:00";

--
-- データベース: `island`
--

-- --------------------------------------------------------

--
-- テーブルの構造 `data`
--

DROP TABLE IF EXISTS `data`;
CREATE TABLE IF NOT EXISTS `data` (
`id` varchar(15) NOT NULL,
`name` varchar(15) NOT NULL,
`age` varchar(3) NOT NULL,
`tel` varchar(15) NOT NULL,
`mes` text NOT NULL
) ENGINE=MyISAM DEFAULT CHARSET=utf8;

--
-- テーブルのデータのダンプ `data`
--

INSERT INTO `data` (`id`, `name`, `age`, `tel`, `mes`) VALUES
('mitsuko', 'MitsukoSonoda', 30, '05000000000', 'Let''s study! English'),
('takashi', 'TakashiYodogawa', 26, '08000000000', 'Let''s study! math'),
('korari', 'KorariSonoda', 28, '07500000000', 'Let''s study! chemistry'),
('aruka', 'ArukattoSonoda', 32, '09000000000', 'Arukasan');

245：女傑 ◆nDpXSJz8i.：2013/03/23(土) 13:42:39
open CSV,"KEN_ALL.CSV";
open SQL,">KEN_ALL.SQL";

$cnt=0;
while (<CSV>) {
$cnt++;
s/\s//g;
s/\"//g;
s/,/','/g;
print SQL qq(INSERT INTO `code` (``, ``, ``, ``, ``, ``, ``, ``, ``, ``, ``, ``, ``, ``, ``) VALUES('$_');\n);
}
print $cnt;

close CSV;
close SQL;

246：女傑 ◆nDpXSJz8i.：2013/03/23(土) 15:10:56



#define VERINF1 1



VERINF1 VERSIONINFO
FILEVERSION 0,0,1,0
PRODUCTVERSION 0,0,1,0
FILEOS 0x00000004
FILETYPE 0x00000000
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "040904B0"
BEGIN
VALUE "FileVersion", "0.0.1.0\0"
VALUE "ProductVersion", "0.0.1.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation",0x0409, 0x04b0
END
END

247：女傑 ◆nDpXSJz8i.：2013/03/23(土) 16:01:32
$str = "116-116-116-116";
$str_array3 = explode ("-", $str, 3);

248：女傑 ◆nDpXSJz8i.：2013/03/23(土) 16:02:51
$array = array("116", "116", "116", "116");
$str = implode ("-", $array);
echo $str;

249：女傑 ◆nDpXSJz8i.：2013/04/01(月) 16:48:16
<html>
<head><title>PHP&PostgreSQL TEST</title></head>
<body>

<?php
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 = htmlspecialchars($_SERVER['QUERY_STRING'], ENT_QUOTES); }

// QUERYのサニタイズ処理
$qry = str_replace(">",">",$qry);
$qry = str_replace("<","<",$qry);
$qry = str_replace("\r\n", "\r",$qry);
$qry = str_replace("\r", "\n",$qry);
$qry = preg_replace("/\n{2,}/", "\n\n", $qry);
$qry = str_replace("\n", "<br>", $qry);

$hostname = "localhost";
$user = "";
$pass = "";

$conn = "host=$hostname user=$user password=$pass";
$link = pg_connect($conn);
if (!$link) {
die('PostgreSQLへの接続に失敗しました。'.pg_last_error());
}

print('★☆★☆PostgreSQL接続が正常に開始しました。★☆★☆<br>');

pg_set_client_encoding("sjis");
$database = "database";
$result = pg_query("SELECT id, name FROM $database WHERE id='$qry'");
if (!$result) {
die('クエリーが失敗しました。'.pg_last_error());
}

$num_rows = pg_num_rows($result);
$allkazu = $num_rows;

// 項目を配列に入れる
$koumoku = array(
"0" => "ID",
"1" => "NAME",
);

//for ($i = 0 ; $i < pg_num_rows($result) ; $i++){
$i = 0;
while ($i < pg_num_rows($result)) {
$rows = pg_fetch_array($result, NULL, PGSQL_ASSOC);
$i++;
}

echo <<<EOF
$koumoku[0]:$rows[id]
$koumoku[1]:$rows[name]
<table border="1" width="1000" cellspacing="0" cellpadding="5" bordercolor="#333333">
<tr>
<th bgcolor="#EE0000"><font color="#FFFFFF" width="200">$koumoku[0]</font></th>
<th bgcolor="#EE0000" width="200"><font color="#FFFFFF">$koumoku[1]</font></th>
</tr>
<tr>
<td bgcolor="#FFBBFF" align="left" width="200" nowrap>$rows[id]</td>
<td bgcolor="#87cefa" valign="left" width="200">$rows[name]</td>
</tr>
</table>
<hr>
EOF;

if ($allkazu < 1) {
echo "<font>見つかりませんでした。</font><br>";
}
else {
echo <<<EOF
<font>検索の結果、全部で&nbsp;$allkazu&nbsp;作品見つかりました。</font><br>
EOF;
}

// 出力する結果がなくなれば終了
if(!$result){break;}

// 出力された結果を開放する。
pg_free_result($result);

$close_flag = pg_close($link);

if ($close_flag){
print('★☆★☆PostgreSQL接続が正常に終了しました。★☆★☆<br>');
}

?>
</body>
</html>

250：女傑 ◆nDpXSJz8i.：2013/04/01(月) 19:20:18
<html>
<head><title>PHP&PostgreSQL TEST</title></head>
<body>

<?php

if (file_exists("jcode-LE.php")) require_once("jcode-LE.php");

// 内部文字列文字化け対策
if (function_exists("mb_internal_encoding")) {
mb_internal_encoding("SJIS");
mb_language("Japanese");
}
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 = htmlspecialchars($_SERVER['QUERY_STRING'], ENT_QUOTES); }

// QUERYの文字コード統一
if (get_magic_quotes_gpc()) {
$qry = stripslashes($qry);
$qry = mb_convert_encoding($qry,"sjis","JIS, sjis-win, eucjp-win, utf-8");
}

// QUERYのサニタイズ処理
$qry = str_replace(">",">",$qry);
$qry = str_replace("<","<",$qry);
$qry = str_replace("\r\n", "\r",$qry);
$qry = str_replace("\r", "\n",$qry);
$qry = preg_replace("/\n{2,}/", "\n\n", $qry);
$qry = str_replace("\n", "<br>", $qry);

$conn = "host=localhost user= password=";
$link = pg_connect($conn);
if (!$link) {
die('PostgreSQLへの接続に失敗しました。'.pg_last_error());
}

print('★☆★☆PostgreSQL接続が正常に開始しました。★☆★☆<br>');

pg_set_client_encoding("sjis");

$result = pg_query("SELECT id, name, age FROM WHERE id='$qry'");
if (!$result) {
die('クエリーが失敗しました。'.pg_last_error());
}

$num_rows = pg_num_rows($result);
$allkazu = $num_rows;

// 項目を配列に入れる
$koumoku = array(
"0" => "ID",
"1" => "NAME",
"2" => "AGE",
);

//for ($i = 0 ; $i < pg_num_rows($result) ; $i++){
$i = 0;
while ($i < pg_num_rows($result)) {
$rows = pg_fetch_array($result, NULL, PGSQL_ASSOC);
$i++;
}

$now = date('Ymd');
$birthday = "$rows[age]";
$age = floor(($now-$birthday)/10000);

if(eregi("^[0-9]{8}",$rows[age])){
$yr = substr($rows[age],0,4);
$mon = substr($rows[age],4,2);
$dy = substr($rows[age],6,2);
}
if ($allkazu < 1) {
echo "<font>見つかりませんでした。</font><br>";
}

251：女傑 ◆nDpXSJz8i.：2013/04/01(月) 19:20:52
else {
echo <<<EOF
$koumoku[0]:$rows[id]
$koumoku[1]:$rows[name]
$koumoku[2]:$yr/$mon/$dy
<table border="1" width="1000" cellspacing="0" cellpadding="5" bordercolor="#333333">
<tr>
<th bgcolor="#EE0000"><font color="#FFFFFF" width="200">$koumoku[0]</font></th>
<th bgcolor="#EE0000" width="200"><font color="#FFFFFF">$koumoku[1]</font></th>
<th bgcolor="#EE0000" width="200"><font color="#FFFFFF">$koumoku[2]</font></th>
</tr>
<tr>
<td bgcolor="#FFBBFF" align="left" width="200" nowrap>$rows[id]</td>
<td bgcolor="#87cefa" valign="left" width="200">$rows[name]</td>
<td bgcolor="#87cefa" valign="left" width="200">$yr/$mon/$dy($age)</td>
</tr>
</table>
<hr>
EOF;

echo <<<EOF
<font>検索の結果、全部で&nbsp;$allkazu&nbsp;件見つかりました。</font><br>
EOF;
}

// 出力する結果がなくなれば終了
if(!$result){break;}

// 出力された結果を開放する。
pg_free_result($result);

$close_flag = pg_close($link);

if ($close_flag){
print('★☆★☆PostgreSQL接続が正常に終了しました。★☆★☆<br>');
}

?>
</body>
</html>

252：女傑 ◆nDpXSJz8i.：2013/04/02(火) 13:51:14
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head><title>PHP&PostgreSQL TEST</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8">
</head>
<body>

<?php

if (file_exists("jcode-LE.php")) require_once("jcode-LE.php");

// 内部文字列文字化け対策
if (function_exists("mb_internal_encoding")) {
mb_internal_encoding("utf8");
mb_language("Japanese");
}
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 = htmlspecialchars($_SERVER['QUERY_STRING'], ENT_QUOTES); }

// QUERYの文字コード統一
if (get_magic_quotes_gpc()) {
$qry = stripslashes($qry);
$qry = mb_convert_encoding($qry,"utf-8","JIS, sjis-win, eucjp-win, sjis");
$qry = mb_convert_kana($qry, "KRNH");

}

// QUERYのサニタイズ処理
$qry = str_replace(">",">",$qry);
$qry = str_replace("<","<",$qry);
$qry = str_replace("\r\n", "\r",$qry);
$qry = str_replace("\r", "\n",$qry);
$qry = preg_replace("/\n{2,}/", "\n\n", $qry);
$qry = str_replace("\n", "<br>", $qry);

$hostname = "localhost";
$uid = "";
$upass = "";
// SQLを開始する。
$conn = "host=$hostname user=$uid password=$upass";
$link = pg_connect($conn);
if (!$link) {
die('PostgreSQLへの接続に失敗しました。'.pg_last_error());
}

print('★☆★☆PostgreSQL接続が正常に開始しました。★☆★☆<br>');
// SQLの文字コード
pg_set_client_encoding("utf8");
$dbtblname = "";
$result = pg_query("SELECT id, name, age, address, zipcode, tel FROM $dbtblname WHERE id='$qry'");
if (!$result) {
die('クエリーが失敗しました。'.pg_last_error());
}

$num_rows = pg_num_rows($result);
$allkazu = $num_rows;

253：女傑 ◆nDpXSJz8i.：2013/04/02(火) 13:51:53
// 項目を配列に入れる
$koumoku = array(
"0" => "ID",
"1" => "お名前",
"2" => "ご年齢",
"3" => "お住まい",
"4" => "郵便番号",
"5" => "TEL",
);
$shoryaku = array(
"0" => "年",
"1" => "月",
"2" => "日",
"3" => "歳",
"4" => "お誕生日",
);
// 配列をループする。
//for ($i = 0 ; $i < pg_num_rows($result) ; $i++){
$i = 0;
while ($i < pg_num_rows($result)) {
$rows = pg_fetch_array($result, NULL, PGSQL_ASSOC);
$i++;
// 出力する結果がなくなれば終了
if(!$result){break;}
}

$now = date('Ymd');
$birthday = "$rows[age]";
$age = floor(($now-$birthday)/10000);

if(preg_match("/^[0-9]{8}/i",$rows[age])){
$yr = substr($rows[age],0,4);
$mon = substr($rows[age],4,2);
$dy = substr($rows[age],6,2);
}
if(preg_match("/^[0-9]{7}/i",$rows[zipcode])){
$zipmae = substr($rows[zipcode],0,3);
$zipushiro = substr($rows[zipcode],3,4);
}

if(preg_match("/^050|^080|^090/i", "$rows[tel]")) {
$telmae = substr($rows[tel],0,3);
$telnaka = substr($rows[tel],3,4);
$telushiro = substr($rows[tel],7,4);
$telmark = "l_01.gif";
}
elseif(preg_match("/^03|^06/i", "$rows[tel]")) {
$telmae = substr($rows[tel],0,2);
$telnaka = substr($rows[tel],2,4);
$telushiro = substr($rows[tel],6,4);
$telmark = "l_04.gif";
}
elseif(preg_match("/^045|^075|^078/i", "$rows[tel]")) {
$telmae = substr($rows[tel],0,3);
$telnaka = substr($rows[tel],3,3);
$telushiro = substr($rows[tel],6,4);
$telmark = "l_04.gif";
}
elseif(preg_match("/^0166|^0263|^0282|^0857|^0985/i", "$rows[tel]")) {
$telmae = substr($rows[tel],0,4);
$telnaka = substr($rows[tel],4,2);
$telushiro = substr($rows[tel],6,4);
$telmark = "l_04.gif";
}
elseif(preg_match("/^04992|^09913/i", "$rows[tel]")) {
$telmae = substr($rows[tel],0,5);
$telnaka = substr($rows[tel],5,1);
$telushiro = substr($rows[tel],6,4);
$telmark = "l_04.gif";
}
elseif(preg_match("/^0120/i", "$rows[tel]")) {
$telmae = substr($rows[tel],0,4);
$telnaka = substr($rows[tel],3,3);
$telushiro = substr($rows[tel],6,3);
$telmark = "l_09.gif";
}
else
{
$telmae = substr($rows[tel],0,3);
$telnaka = substr($rows[tel],3,3);
$telushiro = substr($rows[tel],6,4);
$telmark = "l_04.gif";
}

254：女傑 ◆nDpXSJz8i.：2013/04/02(火) 13:52:28
if ($allkazu < 1) {
echo "<font>見つかりませんでした。</font><br>";
}

else {
//echo <<<EOF
//$koumoku[0]:$rows[id]
//$koumoku[1]:$rows[name]
//EOF;

//echo "お誕生日:" . $yr . "年" . $mon . "月". $dy. "日";
echo <<<EOF
<table border="1" width="1000" cellspacing="0" cellpadding="5" bordercolor="#333333">
<tr>
<th bgcolor="#EE0000"><font color="#FFFFFF" width="200">$koumoku[0]</font></th>
<th bgcolor="#EE0000" width="200"><font color="#FFFFFF">$koumoku[1]</font></th>
<th bgcolor="#EE0000" width="200"><font color="#FFFFFF">$koumoku[2]</font></th>
<th bgcolor="#EE0000" width="200"><font color="#FFFFFF">$koumoku[3]</font></th>
<th bgcolor="#EE0000" width="200"><font color="#FFFFFF">$koumoku[4]</font></th>
<th bgcolor="#EE0000" width="200"><font color="#FFFFFF">$koumoku[5]</font></th>
</tr>
<tr>
<td bgcolor="#FFBBFF" align="left" width="200" nowrap>$rows[id]</td>
<td bgcolor="#87cefa" valign="left" width="200">$rows[name]</td>
<td bgcolor="#b0c4de" valign="left" width="200">$yr$shoryaku[0]$mon$shoryaku[1]$dy$shoryaku[2]($age$shoryaku[3])</td>
<td bgcolor="#6b8e23" valign="left" width="200">$rows[address]</td>
<td bgcolor="#fffacd" valign="left" width="200">$zipmae-$zipushiro</td>
<td bgcolor="#ff6347" valign="left" width="200"><img src=$telmark height=30 width=30>$telmae-$telnaka-$telushiro</td>
</tr>
</table><br>
<img src="http://maps.google.com/maps/api/staticmap?center=$rows[zipcode]&maptype=hybrid&markers=color:0x00A4AC|label:DOT|$rows[zipcode]&zoom=16&size=250x250&sensor=false">
<hr>
EOF;
echo "<font>検索の結果、全部で" . $allkazu . "件見つかりました。</font><br>";
}

// 出力された結果を開放する。
pg_free_result($result);
// SQLを終了する。
$close_flag = pg_close($link);

if ($close_flag){
print('★☆★☆PostgreSQL接続が正常に終了しました。★☆★☆<br>');
}

?>
</body>
</html>

255：女傑 ◆nDpXSJz8i.：2013/04/02(火) 18:33:02
mysql_set_charset('sjis');

256：女傑 ◆nDpXSJz8i.：2013/04/03(水) 12:27:01
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="182" height="230" border="0" cellspacing="0" cellpadding="1">
<tr><td bgcolor="#d6d6d6">
<center><img src="http://img.avatar.gungho.jp/ava/simages/background.gif&quot; width="180" height="230" border="0" summary="アバター画像用"><div id="avatar_image" style="position : relative;left : -90px;top : -231px;width : 0px;height : 0px;visibility : visible;"><img src="http://img.avatar.gungho.jp/ava/simages/00001612_3.gif&quot; border="0" style="top:1; left:0; position:absolute;"><img src="http://img.avatar.gungho.jp/ava/simages/00001835_3.gif&quot; border="0" style="top:1; left:0; position:absolute;"><img src="http://img.avatar.gungho.jp/ava/simages/00001844_3.gif&quot; border="0" style="top:1; left:0; position:absolute;"><img src="http://img.avatar.gungho.jp/ava/simages/00000375_3.gif&quot; border="0" style="top:1; left:0; position:absolute;"><img src="http://img.avatar.gungho.jp/ava/simages/00000924_3.gif&quot; border="0" style="top:1; left:0; position:absolute;"><img src="http://img.avatar.gungho.jp/ava/simages/00002012_3.gif&quot; border="0" style="top:1; left:0; position:absolute;"><img src="http://img.avatar.gungho.jp/ava/simages/00001171_3.gif&quot; border="0" style="top:1; left:0; position:absolute;"></div></center></td></tr>
</table>

<div id="LayerMedal" style="position:absolute; bottom:5px; left:4px; z-index:10; display:none; overflow: hidden;" valign="middle">
<table width="172" height="80" bgcolor="#FFFFFF" class="text1">
<tr><td width="100%" colspan="3" align="center" id="medal_name"></td></tr>
<tr>
<td rowspan="2" width="50" id="medal_img"></td>
<td width="110" colspan="2" id="medal_comment" align="left"></td>
</tr>
<tr>
<td colspan="2" height="100%" align="right" valign="bottom" id="medal_serial_no"></td>
</tr>
</table>
</div>
</body>

257：女傑 ◆nDpXSJz8i.：2013/04/04(木) 15:50:38
http://ajaxzip3.googlecode.com/svn/trunk/ajaxzip3/zipdata

<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>サンプル</title>
<script src="http://ajaxzip3.googlecode.com/svn/trunk/ajaxzip3/ajaxzip3-source.js&quot; charset="UTF-8"></script>
</head>
<input type="text" name="zip21" size="4" maxlength="3"> − <input type="text" name="zip22" size="5" maxlength="4" onKeyUp="AjaxZip3.zip2addr('zip21','zip22','pref21','addr21','strt21');">
<input type="text" name="pref21" size="40">
<input type="text" name="addr21" size="40">
<input type="text" name="strt21" size="40">

258：女傑 ◆nDpXSJz8i.：2013/04/04(木) 15:56:02
<font>メールフォーム</font>
郵便番号：
<input type="text" name="zipA" size="3" maxlength="3">-<input type="text" name="zipB" size="4" maxlength="4">
<input type="button" value="住所検索" onClick="AjaxZip2.zip2addr('zipA','pref','city','zipB','strt','area');">
<br>
都道府県：
<select name="pref"><option value="" selected>都道府県選択</option>
<option value="1">北海道</option><option value="2">青森県</option>
<option value="3">岩手県</option><option value="4">宮城県</option>
<option value="5">秋田県</option><option value="6">山形県</option>
<option value="7">福島県</option><option value="8">茨城県</option>
<option value="9">栃木県</option><option value="10">群馬県</option>
<option value="11">埼玉県</option><option value="12">千葉県</option>
<option value="13">東京都</option><option value="14">神奈川県</option>
<option value="15">新潟県</option><option value="16">富山県</option>
<option value="17">石川県</option><option value="18">福井県</option>
<option value="19">山梨県</option><option value="20">長野県</option>
<option value="21">岐阜県</option><option value="22">静岡県</option>
<option value="23">愛知県</option><option value="24">三重県</option>
<option value="25">滋賀県</option><option value="26">京都府</option>
<option value="27">大阪府</option><option value="28">兵庫県</option>
<option value="29">奈良県</option><option value="30">和歌山県</option>
<option value="31">鳥取県</option><option value="32">島根県</option>
<option value="33">岡山県</option><option value="34">広島県</option>
<option value="35">山口県</option><option value="36">徳島県</option>
<option value="37">香川県</option><option value="38">愛媛県</option>
<option value="39">高知県</option><option value="40">福岡県</option>
<option value="41">佐賀県</option><option value="42">長崎県</option>
<option value="43">熊本県</option><option value="44">大分県</option>
<option value="45">宮崎県</option><option value="46">鹿児島県</option>
<option value="47">沖縄県</option><option value="48">その他</option></select><br>
市区町村：<input type="text" name="city" size="20" readonly="readonly"><br>
町域：<input type="text" name="area" size="20"><br>
番地：<input type="text" name="strt" size="20"><br>
建物名〜号室：<input type="text" name="rest" size="30"><br>
感想を入力して下さい<br>
<textarea name="textarea1" rows="3" cols="50">
</textarea><br>
<input type="reset" value="消去する">
<input type="submit" value="送信する">
</form>

259：女傑 ◆nDpXSJz8i.：2013/04/04(木) 16:04:53
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>サンプル</title>
<script src="http://ajaxzip3.googlecode.com/svn/trunk/ajaxzip3/ajaxzip3-source.js&quot; charset="UTF-8"></script>
</head><body>
<input type="text" name="zip21" size="4" maxlength="3"> − <input type="text" name="zip22" size="5" maxlength="4"> <input type="button" value="住所検索" onClick="AjaxZip3.zip2addr('zip21','zip22','pref21','addr21','strt21');"><br>
<input type="text" name="pref21" size="40"><br>
<input type="text" name="addr21" size="40"><br>
<input type="text" name="strt21" size="40">
</body></html>

260：女傑 ◆nDpXSJz8i.：2013/04/04(木) 16:14:11
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>サンプル</title>
<script src="http://ajaxzip3.googlecode.com/svn/trunk/ajaxzip3/ajaxzip3-source.js&quot; charset="UTF-8"></script>
</head><body>
<input type="text" name="zip21" size="4" maxlength="3"> − <input type="text" name="zip22" size="5" maxlength="4"> <input type="button" value="住所検索" onClick="AjaxZip3.zip2addr('zip21','zip22','pref21','addr21','strt21');"><br>
<select name="pref21"><option value="" selected>都道府県選択</option>
<option value="1">北海道</option><option value="2">青森県</option>
<option value="3">岩手県</option><option value="4">宮城県</option>
<option value="5">秋田県</option><option value="6">山形県</option>
<option value="7">福島県</option><option value="8">茨城県</option>
<option value="9">栃木県</option><option value="10">群馬県</option>
<option value="11">埼玉県</option><option value="12">千葉県</option>
<option value="13">東京都</option><option value="14">神奈川県</option>
<option value="15">新潟県</option><option value="16">富山県</option>
<option value="17">石川県</option><option value="18">福井県</option>
<option value="19">山梨県</option><option value="20">長野県</option>
<option value="21">岐阜県</option><option value="22">静岡県</option>
<option value="23">愛知県</option><option value="24">三重県</option>
<option value="25">滋賀県</option><option value="26">京都府</option>
<option value="27">大阪府</option><option value="28">兵庫県</option>
<option value="29">奈良県</option><option value="30">和歌山県</option>
<option value="31">鳥取県</option><option value="32">島根県</option>
<option value="33">岡山県</option><option value="34">広島県</option>
<option value="35">山口県</option><option value="36">徳島県</option>
<option value="37">香川県</option><option value="38">愛媛県</option>
<option value="39">高知県</option><option value="40">福岡県</option>
<option value="41">佐賀県</option><option value="42">長崎県</option>
<option value="43">熊本県</option><option value="44">大分県</option>
<option value="45">宮崎県</option><option value="46">鹿児島県</option>
<option value="47">沖縄県</option><option value="48">その他</option></select><br>
<input type="text" name="addr21" size="40"><br>
<input type="text" name="strt21" size="40">
</body></html>

261：女傑 ◆nDpXSJz8i.：2013/04/08(月) 20:37:47
$pview = '10';
$page = $form{'page'};
$file = "./data/$act\.dat";
if (!-e $file) { &error("$actが見つかりません"); }

if ($page eq "") { $page = "1"; }
$start = $page;
$end = $page + $pview - 1;

$i = 0;
$allno = 0;

if (!open(IN,"$file")) { &error("入出力エラー"); }
@lines = <IN>;
while (<IN>) {
$hairetsu = shift(@lines);
chop($hairetsu) if $hairetsu =~ /\n$/;
($no,$email,$url) = split(/\,/,$hairetsu, 3);
$i++;
$allno++;
if ($i < $start) { next; }
if ($i > $end) { next; }
}
close(IN);

262：女傑 ◆nDpXSJz8i.：2013/04/12(金) 01:01:11
>cd C:\openssl-0.9.6c
>perl Configure VC-WIN32
>ms\do_masm
>"%ProgramFiles%\Microsoft Visual Studio\VC98\Bin\VCVARS32.BAT"
>nmake -f ms\ntdll.mak
>cd out32dll
>..\ms\test

263：女傑 ◆nDpXSJz8i.：2013/04/12(金) 01:05:05
MASM(Microsoft Assembler)があるなら、ms\do_masm を実行
NASM(Free Netwide Assembler)があるなら、ms\do_nasmを実行
アセンブラを使わないなら、ms\do_ms を実行

264：女傑 ◆nDpXSJz8i.：2013/04/12(金) 22:18:24
https://jp.globalsign.com/support/faq/176.html

265：女傑 ◆nDpXSJz8i.：2013/04/16(火) 12:47:21
sub findword
{
local $word;

$_ = $form{'word'};

if (/$kinku/i) { $word = "NG";}
elsif (/!$kinku/i) { $word = "OK"; }
else { $word = "Furuikotoba"; }

return $word;
}

266：女傑 ◆nDpXSJz8i.：2013/04/20(土) 23:35:36
print "Content-type: text/html\n\n";
print <<"EOF";

<html><head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8">
<title>$title</title>
<body bgcolor=#FFFFFF>
<font>$message</font><br>
</body></html>

EOF

267：女傑 ◆nDpXSJz8i.：2013/04/21(日) 00:49:28
$file = "";

if (!(-e $file)) { &error(""); }
elsif (-z $file) { &error(""); }

if (!open(FILE,"$file")) { &error(""); }
@lines = <FILE>;
$max = @lines;
close(FILE);

foreach (0..$max) {

($name,$value) = split(/\,/,$lines[$_],2);
$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;
print "$name&nbsp;$value<br>";
}

268：女傑 ◆nDpXSJz8i.：2013/06/27(木) 18:45:27
http://windows.microsoft.com/ja-jp/windows-8/preview

269：女傑 ◆nDpXSJz8i.：2013/07/20(土) 08:24:57
http://msdn.microsoft.com/ja-jp/library/cc429376.aspx
TerminateProcess

指定されたプロセスと、そのプロセスに所属するすべてのスレッドを終了させます。

BOOL TerminateProcess(
HANDLE hProcess, // プロセスのハンドル
UINT uExitCode // プロセスの終了コード
);

270：女傑 ◆nDpXSJz8i.：2013/07/20(土) 08:26:05
http://msdn.microsoft.com/ja-jp/library/cc429099.aspx

ExitProcess

1 つのプロセスと、そのプロセスに所属するすべてのスレッドを終了させます。

VOID ExitProcess(
UINT uExitCode // すべてのスレッドに適用される終了コード
);

271：女傑 ◆nDpXSJz8i.：2013/07/20(土) 08:55:28
能因法師 のういんほうし
高槻市

272：女傑 ◆nDpXSJz8i.：2013/07/21(日) 00:50:21
伝能因法師墳

273：女傑 ◆nDpXSJz8i.：2013/07/21(日) 13:17:51
吹くからに 秋の草木の しをるれば むべ山風を 嵐といふらむ
文屋康秀

274：女傑 ◆k/y1YZqW2w：2013/08/17(土) 12:56:50
http://marketshare.hitslink.com/operating-system-market-share.aspx?qprid=10&amp;qpcustomd=0

Windows 7　42.76%

Windows XP　42.52%

Windows Vista　6.15%

Mac OS X 10.7　2.45%

Mac OS X 10.6　2.38%

Mac OS X 10.8　1.41%

Linux　1.10%

日本のシェア

http://www.samurai-factory.jp/info_report.html

OS（PC/タブレット）シェア

Windows 7(NT 6.1)：49.02%

Windows XP(NT 5.1)：25.77%

Windows Vista(NT 6)：16.21%

iOS(iPad)：2.57%

Mac OS X Snow Leopard(10.6)：1.89%

Mac OS X Lion(10.7)：1.42%

Mac OS X Leopard(10.5)：0.85%

Linux：0.56%

275：女傑 ◆k/y1YZqW2w：2013/08/17(土) 13:18:29
Ubuntu Linux 上の Web ブラウザで Java を使用可能にするにはどうすればよいですか。
このトピックは、次に当てはまります。:

ブラウザ: Firefox, Chrome
Javaバージョン: 6.0

Ubuntu Linux 上の Web ブラウザで Java を使用可能にするには、次の手順に従います。
Google Chrome

次のコマンドを実行し、スーパーユーザーパスワードを入力して、root ユーザーとしてログインします。 su 次のように入力します。
sudo -s
plugins ディレクトリがない場合は、作成します。 次のように入力します:
mkdir -p /opt/google/chrome/plugins
シンボリックリンクを作成する前に、Google chrome plugins ディレクトリへ移動します。次のように入力します。
cd /opt/google/chrome/plugins
シンボリックリンクを作成します。 次のように入力します:
ln -s /usr/local/java/jre1.7.0/lib/amd64/libnpjp2.so
ブラウザを再起動して、Java をテストします

Mozilla Firefox

次のコマンドを実行し、スーパーユーザーパスワードを入力して、root ユーザーとしてログインします: su 次のように入力します。
sudo -s
plugins ディレクトリがない場合は、作成します。 次のように入力します:
mkdir -p /usr/lib/mozilla/plugins
シンボリックリンクを作成する前に、Google chrome plugins ディレクトリへ移動します。次のように入力します。
cd /usr/lib/mozilla/plugins
シンボリックリンクを作成します。 次のように入力します:
ln -s /usr/local/java/jre1.7.0/lib/amd64/libnpjp2.so
ブラウザを再起動して、Java をテストします

276：女傑 ◆k/y1YZqW2w：2013/08/17(土) 14:00:02
LINUX Fan

http://book.mycom.co.jp/linuxfan/

277：名無しさん：2013/08/18(日) 23:26:39
convert c: /fs:ntfs

278：女傑 ◆k/y1YZqW2w：2013/08/19(月) 18:08:24
if ($i < $max_length)
{ last; }

279：女傑 ◆k/y1YZqW2w：2013/08/20(火) 12:16:37
if (!open(IN,"$file")) { &error("ファイルが開けません"); }
@lines = <IN>;
$max = @lines;
close(IN);

$i=0;
while ($i < $max) {
chop($lines) if $lines =~ /\n$/;
($name,$value) = split(/\,/,$lines[$i],2);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\t//g;
$value =~ s/\r//g;
$value =~ s/\n//g;
$value =~ s/\.//g;
$value =~ s/\///g;
$value =~ s/&/&/g;
$value =~ s/"/"/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\n|\r//g;
if ($i > $max or $i eq "")
{
last;
}
$value =~ s/.{160}/$&<BR>\n/g;
my ($icode, $nmatch) = Jcode::getcode($value);
$value = Jcode::convert("$value", "sjis", $icode, "h2z");
print "$name&nbsp;$value<br>";
$i++;
}

280：女傑 ◆k/y1YZqW2w：2013/08/20(火) 16:00:10
if (!open(IN,"$file")) { &error("ファイルが開けません"); }
@lines = <IN>;
$max = @lines;
close(IN);

for ($i=0;$i<$max;$i++) {
chop($lines) if $lines =~ /\n$/;
($name,$value) = split(/\,/,$lines[$i],2);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\t//g;
$value =~ s/\r//g;
$value =~ s/\n//g;
$value =~ s/\.//g;
$value =~ s/\///g;
$value =~ s/&/&/g;
$value =~ s/"/"/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\n|\r//g;
if ($i > $max or $i eq "")
{
last;
}
$value =~ s/.{160}/$&<BR>\n/g;
my ($icode, $nmatch) = Jcode::getcode($value);
$value = Jcode::convert("$value", "sjis", $icode, "h2z");
print "$name $value<br>";
}

281：女傑 ◆k/y1YZqW2w：2013/08/23(金) 18:25:14
$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;
$FORM{$name} = $value;
}

282：名無しさん：2013/09/11(水) 01:15:11
<?php
$subject = "test";
print($subject."<br>");

$subject = mb_encode_mimeheader($subject);
print($subject);
?>

283：名無しさん：2013/09/11(水) 11:51:09
qemu-img create ディスク名 容量G

284：名無しさん：2013/09/12(木) 22:01:02
ISO-2022-JP-1 (RFC2237) is a superset of ISO-2022-JP (RFC1468) which adds support for JIS X 0212-1990. That means you can use the same code to decode to utf8 but not vice versa.

$utf8 = decode('iso-2022-jp-1', $stream);

$utf8 = decode('iso-2022-jp', $stream);

$with_0212 = encode('iso-2022-jp-1', $utf8);

$without_0212 = encode('iso-2022-jp', $utf8 );

285：名無しさん：2013/09/12(木) 22:23:52
use Encode;
my $subject = encode('MIME-Header-ISO_2022_JP', $subject);

286：名無しさん：2013/09/12(木) 23:58:39
HELO LocalHost
MAIL FROM: =?ISO-2022-JP?B?GyRCRDlDK0BuGyhC?= <>
RCPT TO: =?ISO-2022-JP?B?GyRCRDlDK0BuGyhC?= <>
DATA
X-Apparently-To:
Reply-To:
return path:
From:
To:
Subject: =?ISO-2022-JP?B?GyRCJDMkcyRQJHMkTxsoQg==?=
MIME-version: 1.0
Content-Type: text/plain;
charset="UTF-8"
Content-Transfer-Encoding: base64
X-Priority: 3
X-Mailer: HasetomoWebMailer1.0

44GT44KT44Gr44Gh44Gv

.
QUIT

287：＜削除＞：＜削除＞
＜削除＞

288：女傑 ◆nDpXSJz8i.：2013/09/25(水) 14:34:45
MIME-version: 1.0
Content-Type: multipart/related;
type=multipart/alternative;
Message-ID: <tests>
boundary="bound1"

--====_bound1_====
Content-Type: multipart/alternative; boundary="====bound2===="

--====_bound2_====
Content-Type: text/html; charset=iso-2022-jp
Content-Transfer-Encoding: quoted-printable

<HTML><HEAD></HEAD><BODY>
</BODY></HTML>
--====_bound2_====--

--====_bound1_====
Content-Type: image/jpeg;
name="0.jpg"
Content-Transfer-Encoding: base64
Content-ID: <tests>



--====_bound1_====--

289：名無しさん：2013/12/17(火) 07:10:43
# WindowsでCSVをSQLのINSERTに変換する例
#
# http://www.post.japanpost.jp/zipcode/dl/oogaki.html の全国郵便番号データを利用
# 名前が"zip"、フィールド数がCSVと同数で全て文字列型のテーブルと仮定
#
# 【変換前】
# 01101,"064 ","0640941","ﾎﾂｶｲﾄﾞｳ","ｻﾂﾎﾟﾛｼﾁﾕｳｵｳｸ","ｱｻﾋｶﾞｵｶ"
# ,"北海道","札幌市中央区","旭ケ丘",0,0,1,0,0,0
#
# 【変換後】
# INSERT INTO zip VALUES('01101','064','0640941','ﾎﾂｶｲﾄﾞｳ','ｻﾂﾎﾟﾛｼﾁﾕｳｵｳｸ','ｱｻﾋｶﾞｵｶ'
# ,'北海道','札幌市中央区','旭ケ丘','0','0','1','0','0','0');
#
# 上記礼は表示上改行を入れていますが、実際のデータは1行です。
#
open CSV,"KEN_ALL.CSV";
open SQL,">KEN_ALL.SQL";

print SQL "BEGIN;\n";
$cnt=0;
while (<CSV>) {
$cnt++;
s/\s//g;
s/\"//g;
s/,/','/g;
print SQL qq(INSERT INTO zip VALUES('$_');\n);
}
print SQL "END;\n";
print $cnt."\n";

close CSV;
close SQL;

290：女傑 ◆nDpXSJz8i.：2014/04/15(火) 17:26:11
$atime = $stat['atime'] + 604800;
$atime = $stat['atime'] + 7*24*60*60;

291：女傑 ◆nDpXSJz8i.：2014/04/15(火) 20:47:42
1year:31536000
6months:15768000
3months:7884000
1month:2628000

292：女傑 ◆nDpXSJz8i.：2014/08/16(土) 16:19:31
http://www.atmarkit.co.jp/fwin2k/win2ktips/1117ldreghiv/ldreghiv.html

293：女傑 ◆nDpXSJz8i.：2014/08/26(火) 21:11:51
split example

while (list($name,$value) = each($keywords)) {
echo "$name:$value<br>\n";
}

foreach ($keywords as $name => $value) {
echo "$name:$value<br>\n";
}

294：女傑 ◆nDpXSJz8i.：2015/11/16(月) 10:17:56
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html xmlns="http://www.w3.org/1999/xhtml&quot; xml:lang="ja" lang="ja">
<head><title>引数テスト</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=Shift_JIS">
<body>
<?php
$query = htmlspecialchars($_SERVER['PATH_INFO'], ENT_QUOTES);
$query = str_replace(">",">",$query);
$query = str_replace("<","<",$query);
$query = str_replace("\r\n", "\r",$query);
$query = str_replace("\r", "\n",$query);
$query = preg_replace("/\n{2,}/", "\n\n", $query);
$query = str_replace("\n", "<br>", $query);
$var = split ("[/\.]", $query);
$kazu = count($var);
for ($i = 1; $i < $kazu; $i++) {
{
echo <<<EOF
$i:$var[$i]<br>
EOF;
}
}
?>
</body></html>

295：女傑 ◆nDpXSJz8i.：2018/01/01(月) 11:41:31
IPアドレスの正規表現

/^(([1-9]?[0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])\.){3}([1-9]?[0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])$/

296：女傑 ◆aIZEkLRIGU：2019/02/05(火) 10:31:20
ipアドレスを伏字にする

@ip = $ENV{'REMOTE_ADDR'};
$youso = shift(@ip);

chomp($youso) if $youso =~ /\n$/;
($001,$002,$003,$004) = split(/\./,$youso);
$002 =~ s/\d/*/g;
$003 =~ s/\d/*/g;
$004 =~ s/\d/*/g;

IPアドレスを表示
$001.$002.$003.$004

297：女傑 ◆aIZEkLRIGU：2019/02/05(火) 11:01:17
IPアドレス表示のまとめ

@ip = $ENV{'REMOTE_ADDR'};
$youso = shift(@ip);

chomp($youso) if $youso =~ /\n$/;
($001,$002,$003,$004) = split(/\./,$youso);
$002 =~ s/\d/*/g;
$003 =~ s/\d/*/g;
$004 =~ s/\d/*/g;
$newip = "$001.$002.$003.$004";

298：女傑 ◆aIZEkLRIGU：2019/02/11(月) 11:08:23
IPアドレス表示のまとめ

@ip = $ENV{'REMOTE_ADDR'};
$youso = shift(@ip);

chomp($youso) if $youso =~ /\n$/;
($001,$002,$003,$004) = split(/\./,$youso);
if ($002 =~ /\d/) { $002 =~ s/\d/*/g; }
if ($003 =~ /\d/) { $003 =~ s/\d/*/g; }
if ($004 =~ /\d/) { $004 =~ s/\d/*/g; }
$newip = "$001.$002.$003.$004";

299：女傑 ◆aIZEkLRIGU：2019/02/25(月) 22:59:06
干支を出力させる関数

#年を12で割り、その余りを求める
$a = int($year % 12);
#干支を配列に入れる
@etohairetsu = ('さる','とり','いぬ','いのしし','ねずみ','うし','とら','うさぎ','たつ','へび','うま','ひつじ');
#干支が出力される変数
$eto = $etohairetsu[$a];

300：女傑 ◆aIZEkLRIGU：2019/02/26(火) 12:02:28
干支を求めるサブルーチン
渡す値　干支を求めたい年　etc.1998
戻り値　求めたい年の干支がひらがなで返る

$jyunishi = &eto($year);

sub eto {
# 引数を受け取る
my ($year) = @_;
# 年を12で割り余りを求める
my $a = $year % 12;
@etohairetsu = ('さる','とり','いぬ','いのしし','ねずみ','うし','とら',' うさぎ','たつ','へび','うま','ひつじ');
my $jyunishi = $etohairetsu[$a];
# 干支を返す
return $jyunishi;
}

301：女傑 ◆aIZEkLRIGU：2019/03/10(日) 19:09:54
拡張子ＣＧＩを隠す
RewriteEngine on
RewriteCond %{REQUEST_FILENAME} !-d
RewriteCond %{REQUEST_FILENAME}\.cgi -f
RewriteRule ^(.*)$ $1.cgi

302：女傑 ◆aIZEkLRIGU：2019/03/29(金) 14:59:53
変数の書き方の例

$test = "テスト";
${test};

303：女傑 ◆k/y1YZqW2w：2025/07/18(金) 11:11:14
今流行りのChatGPTに休日判定の追加のコードを作成して戴きました

以下のコードをスクリプト末尾に 追記してください（sub wday の後あたり）：

sub is_holiday {
my ($y, $m, $d) = @_;
my $ds = Date::Simple->new($y, $m, $d);

# 六曜
my $rokuyou_num = &qreki'get_rokuyou($y, $m, $d);
my @rokuyou_names = ("大安", "赤口", "先勝", "友引", "先負", "仏滅");
my $rokuyou = $rokuyou_names[$rokuyou_num];

# 祝日名（元日など）取得（あなたの既存コードを再利用）
my $name = "";

my $z = $d; # 通常はそのまま使うが、可変祝日では計算あり
my $wday = wday($y, $m, $d);

if ($m == 1 && $d == 1) { $name = "元日"; }
elsif ($m == 2 && $d == 11 && $y >= 1967) { $name = "建国記念日"; }
elsif ($m == 4 && $d == 29) {
if ($y <= 1988) { $name = "天皇誕生日"; }
elsif ($y >= 2007) { $name = "昭和の日"; }
else { $name = "みどりの日"; }
}
elsif ($m == 5 && $d == 3) { $name = "憲法記念日"; }
elsif ($m == 5 && $d == 4 && $y >= 2007) { $name = "みどりの日"; }
elsif ($m == 5 && $d == 5) { $name = "こどもの日"; }
elsif ($m == 11 && $d == 3) { $name = "文化の日"; }
elsif ($m == 11 && $d == 23) { $name = "勤労感謝の日"; }
elsif ($m == 12 && $d == 23 && $y >= 1989 && $y <= 2018) { $name = "天皇誕生日"; }

# 可動祝日（ハッピーマンデー）
if ($y >= 2000 && $m == 1 && $wday == 1 && $d >= 8 && $d <= 14) { $name = "成人の日"; }
if ($y >= 2003 && $m == 7 && $wday == 1 && $d >= 15 && $d <= 21) { $name = "海の日"; }
if ($y >= 2003 && $m == 9 && $wday == 1 && $d >= 15 && $d <= 21) { $name = "敬老の日"; }
if ($y >= 2000 && $m == 10 && $wday == 1 && $d >= 8 && $d <= 14) { $name = "体育の日"; }

# 春分・秋分の日（qreki.pl から）
my $sekki = &qreki'check_24sekki($y, $m, $d);
if ($sekki =~ /春分/) { $name = "春分の日"; }
elsif ($sekki =~ /秋分/) { $name = "秋分の日"; }

# 「国民の休日」判定：前後が祝日で自分が平日
unless ($name) {
my $prev = $ds->prev;
my $next = $ds->next;
my ($py, $pm, $pd) = split(/-/, $prev);
my ($ny, $nm, $nd) = split(/-/, $next);

my ($pname, undef) = is_holiday($py, $pm, $pd);
my ($nname, undef) = is_holiday($ny, $nm, $nd);

if ($pname && $nname && $wday != 0 && $wday != 6) {
$name = "国民の休日";
}
}

return ($name, $rokuyou);
}


---

使い方（呼び出し側）

今の $yobi や $rokki を以下に 置き換えてください：

($yobi, $rokki) = is_holiday($year, $month, $day);

そして、前後日の六曜や二十四節気を出している部分にも同様に：

my ($yobi_before, $rokki_before) = is_holiday($yesterdaysnen, $yesterdaystuki, $yesterdayshi);
my ($yobi_after, $rokki_after) = is_holiday($tomorrows[0], $tomorrows[1], $tomorrows[2]);

表示部に $rokki を利用していればそのままでOKです。

304：女傑 ◆k/y1YZqW2w：2025/07/19(土) 18:39:21
あなたのPerl CGIスクリプトに対して、以下の2つの追加処理を加えます：

1. **「国民の休日」**対応：祝日と祝日に挟まれた平日も休日とみなす


2. 六曜の表示：既に $rokki として表示されていますが、is_holiday() に組み込みます




---

🛠️ 修正方針

is_holiday($y, $m, $d) というサブルーチンを定義し、祝日・国民の休日かどうかを判定します。

現在の $yobi 判定処理（定義日と春分・秋分）を関数化し、中央集約。

$yesterday と $tomorrow を使って「国民の休日」かどうかを判断。

qreki::get_rokuyou の結果（六曜）も返します。

以下のコードをスクリプト末尾に 追記してください（sub wday の後あたり）：

sub is_holiday {
my ($y, $m, $d) = @_;
my $ds = Date::Simple->new($y, $m, $d);

# 六曜
my $rokuyou_num = &qreki'get_rokuyou($y, $m, $d);
my @rokuyou_names = ("大安", "赤口", "先勝", "友引", "先負", "仏滅");
my $rokuyou = $rokuyou_names[$rokuyou_num];

# 祝日名（元日など）取得（あなたの既存コードを再利用）
my $name = "";

my $z = $d; # 通常はそのまま使うが、可変祝日では計算あり
my $wday = wday($y, $m, $d);

if ($m == 1 && $d == 1) { $name = "元日"; }
elsif ($m == 2 && $d == 11 && $y >= 1967) { $name = "建国記念日"; }
elsif ($m == 4 && $d == 29) {
if ($y <= 1988) { $name = "天皇誕生日"; }
elsif ($y >= 2007) { $name = "昭和の日"; }
else { $name = "みどりの日"; }
}
elsif ($m == 5 && $d == 3) { $name = "憲法記念日"; }
elsif ($m == 5 && $d == 4 && $y >= 2007) { $name = "みどりの日"; }
elsif ($m == 5 && $d == 5) { $name = "こどもの日"; }
elsif ($m == 11 && $d == 3) { $name = "文化の日"; }
elsif ($m == 11 && $d == 23) { $name = "勤労感謝の日"; }
elsif ($m == 12 && $d == 23 && $y >= 1989 && $y <= 2018) { $name = "天皇誕生日"; }

# 可動祝日（ハッピーマンデー）
if ($y >= 2000 && $m == 1 && $wday == 1 && $d >= 8 && $d <= 14) { $name = "成人の日"; }
if ($y >= 2003 && $m == 7 && $wday == 1 && $d >= 15 && $d <= 21) { $name = "海の日"; }
if ($y >= 2003 && $m == 9 && $wday == 1 && $d >= 15 && $d <= 21) { $name = "敬老の日"; }
if ($y >= 2000 && $m == 10 && $wday == 1 && $d >= 8 && $d <= 14) { $name = "体育の日"; }

# 春分・秋分の日（qreki.pl から）
my $sekki = &qreki'check_24sekki($y, $m, $d);
if ($sekki =~ /春分/) { $name = "春分の日"; }
elsif ($sekki =~ /秋分/) { $name = "秋分の日"; }

# 「国民の休日」判定：前後が祝日で自分が平日
unless ($name) {
my $prev = $ds->prev;
my $next = $ds->next;
my ($py, $pm, $pd) = split(/-/, $prev);
my ($ny, $nm, $nd) = split(/-/, $next);

my ($pname, undef) = is_holiday($py, $pm, $pd);
my ($nname, undef) = is_holiday($ny, $nm, $nd);

if ($pname && $nname && $wday != 0 && $wday != 6) {
$name = "国民の休日";
}
}

return ($name, $rokuyou);
}


今の $yobi や $rokki を以下に 置き換えてください：

($yobi, $rokki) = is_holiday($year, $month, $day);

そして、前後日の六曜や二十四節気を出している部分にも同様に：

my ($yobi_before, $rokki_before) = is_holiday($yesterdaysnen, $yesterdaystuki, $yesterdayshi);
my ($yobi_after, $rokki_after) = is_holiday($tomorrows[0], $tomorrows[1], $tomorrows[2]);

表示部に $rokki を利用していればそのままでOKです。
新着レスの表示

名前： E-mail（省略可）：

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

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

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）
掲示板管理者へ連絡 無料レンタル掲示板