プログラムスレッド - 1330803634

96：女傑 ◆nDpXSJz8i.：2013/01/20(日) 13:17:08: ##Example1

DROP TABLE IF EXISTS `bungaku`;
CREATE TABLE IF NOT EXISTS `bungaku` (
`sakusya` varchar(12) NOT NULL,
`kai` int(3) NOT NULL,
`nendo` int(4) NOT NULL,
`myoji` varchar(6) NOT NULL,
`namae` varchar(6) NOT NULL,
`sakuhin` varchar(20) NOT NULL,
`shozoku` varchar(6) NOT NULL,
PRIMARY KEY (`sakusya`,`kai`,`nendo`,`myoji`,`namae`,`sakuhin`,`shozoku`)
)
ENGINE=MyISAM DEFAULT CHARSET=utf8;

##Example2

CREATE TABLE IF NOT EXISTS `bungaku` (
`sakusya` varchar(12) NOT NULL default '',
`kai` int(3) NOT NULL default '0',
`nendo` int(4) NOT NULL default '0',
`myoji` varchar(6) NOT NULL default '',
`namae` varchar(6) NOT NULL default '',
`sakuhin` varchar(20) NOT NULL default '',
`shozoku` varchar(6) NOT NULL default '',
PRIMARY KEY (`sakusya`,`kai`,`nendo`,`myoji`,`namae`,`sakuhin`,`shozoku`)
) TYPE=MyISAM;
97：女傑 ◆nDpXSJz8i.：2013/01/20(日) 13:26:04: <?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); }

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

//if (preg_match("/^[ぁ-んァ-ヶA-Za-z0-9]+$/i", "$qry")) {
$qry = substr($qry,0,32);
//}

if (get_magic_quotes_gpc()) {
$qry = stripslashes($qry);
$qry = mb_convert_encoding($qry,"sjis","JIS, sjis-win, eucjp-win, utf-8");
}
$wid = "$qry";
$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", " ", $wid);

$host = "localhost";
$id = "";
$password = "";
$dbname = "bungaku";

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

mysql_query("SET NAMES sjis");
mysql_select_db("island");

$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'");

$koumoku = array(
"0" => "回",
"1" => "年度",
"2" => "氏名",
"3" => "作品",
"4" => "所属",
);

while ($row = mysql_fetch_array($result, MYSQL_ASSOC)) {
{
echo <<<EOF
$koumoku[0]:$row[kai] 
$koumoku[1]:$row[nendo] 
$koumoku[2]:$row[myoji]$row[namae] 
$koumoku[3]:$row[sakuhin] 
$koumoku[4]:$row[shozoku] 
<img src="https://chart.googleapis.com/chart?chs=120x120&cht=qr&chl=$row[sakuhin]&choe=Shift_JIS&chld=L|1\">
 
<table border="1" width="1000" cellspacing="0" cellpadding="5" bordercolor="#333333">
<tr>
<th bgcolor="#EE0000">$koumoku[0]</th>
<th bgcolor="#EE0000" width="200">$koumoku[1]</th>
<th bgcolor="#EE0000" width="500">$koumoku[2]</th>
<th bgcolor="#EE0000" width="1000">$koumoku[3]</th>
<th bgcolor="#EE0000" width="300">$koumoku[4]</th>
</tr>
<tr>
<td bgcolor="#FFBBFF" align="left" 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>
EOF;
}
echo "<hr>\n";
}

if(!$result){break;}

mysql_free_result($result);
mysql_close($res_dbcon);
?>
98：女傑 ◆nDpXSJz8i.：2013/01/24(木) 14:00:44: 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); }
99：女傑 ◆nDpXSJz8i.：2013/01/24(木) 15:26:32: //<?php
$keywords = preg_split("/[\s,]+/", "kkk lll, mmm");
echo "$keywords[0]" . " ";
echo "$keywords[1]" . " ";
echo "$keywords[2]";
?>
 
//<?php
$keywords = preg_split("/[\s,]+/", "test and, examination");
$kazu = count($keywords);
$kazu = $kazu -1;
$bango = $i +1;
if ($kazu >= 10) {exit;}
for ($i = 0; $i <= $kazu; $i++) {
$bango = $i +1;
{
echo "$bango:$keywords[$i]" . " ";
}
echo "\n";
}
return 0;
?>

//<?php
$keywords = preg_split("/[\s,]+/", "kkk lll, mmm");
echo "$keywords[0]" . " ";
echo "$keywords[1]" . " ";
echo "$keywords[2]";
?>
 
<?php
$keywords = preg_split("/[\s,]+/", "kkk lll, ppp");
$kazu = count($keywords);
$kazu = $kazu -1;
for ($i = 0; $i <= $kazu; $i++) {
{
echo "$keywords[$i]" . " ";
}
echo "\n";
}
?>
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] 
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" xml:lang="ja" lang="ja">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=Shift_JIS">
<title>芥川龍之介賞 受賞者データベース</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", " ", $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]回 
$koumoku[1]:$row[nendo]年度 
$koumoku[2]:$row[myoji]$row[namae]さん 
$koumoku[3]:$row[sakuhin] 
$koumoku[4]:$row[keisai] 
<img src="https://chart.googleapis.com/chart?chs=120x120&cht=qr&chl=$row[sakuhin]&choe=Shift_JIS&chld=L|1\">
 
<table border="1" width="1000" cellspacing="0" cellpadding="5" bordercolor="#333333">
<tr>
<th bgcolor="#EE0000">$koumoku[0]</th>
<th bgcolor="#EE0000" width="200">$koumoku[1]</th>
<th bgcolor="#EE0000" width="500">$koumoku[2]</th>
<th bgcolor="#EE0000" width="1000">$koumoku[3]</th>
<th bgcolor="#EE0000" width="300">$koumoku[4]</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
検索の結果、全部で$allkazu作品見つかりました。
EOF;

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

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

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

if ($close_flag){
print('切断に成功しました。 ');
}
?>
</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" 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", " ", $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] 
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='前へ';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='次へ';}

$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.='['.$i.']';}
}
echo <<<EOF
$back_str $page_str $next_str
表示数$kazu:要素数$allkazu
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" 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", " ", $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] 
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='前へ';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='次へ';}

$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.='['.$i.']';}
}
echo <<<EOF
$back_str $page_str $next_str
全要素数$allkazu
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" 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 \n";
}

foreach ($keywords as $value) {
echo "$value \n";
}
?>
 
<?php
$dds = preg_split("/[\s,]+/", "kkk lll, mmm");
echo "$dds[0]" . " ";
echo "$dds[1]" . " ";
echo "$dds[2]";
?>
 
<?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] 
EOF;
}
echo "\n";
}
?>
 
<?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" 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", " ", $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] $page_array2[$i] 
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='前へ';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='次へ';}

$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.='['.$i.']';}
}
$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
$back_str $page_str $next_str
全出走レース数:$allkazu$sentani$cc
$page_num/$soupage
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" 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", " ", $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] $page_array2[$i] 
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='前へ';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='次へ';}

//$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.='['.$i.']';}
}
$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
$back_str $page_str $next_str
全出走レース数$allkazu
$page_num/$soupage
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" 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", " ", $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] $page_array2[$i] 
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='前へ';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='次へ';}

//$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.='['.$i.']';}
}
//$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
$back_str $page_str $next_str
全出走レース数$allkazu
$page_num/$kiriage
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" 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", " ", $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] $page_array2[$i] 
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='前へ';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='次へ';}

//$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.='['.$i.']';}
}
//$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
$back_str $page_str $next_str
全出走レース数$allkazu$sen$icchaku$shou
勝率$shoritu 連対率$rentai
$page_num/$kiriage
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", " ", $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] $page_array2[$i] 
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='前へ';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='次へ';}

//$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.='['.$i.']';}
}
//$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
$back_str $page_str $next_str
成績$allkazu$sen$icchaku$shou $zensei
勝率$shoritu 連対率$rentai
$page_num/$kiriage
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 \n";
}

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

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

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

foreach ($keywords as $value) {
echo "$value \n";
}
reset($keywords);
endif;
?>
 
<?php
$dds = preg_split("/[\s,]+/", "kkk lll, mmm");
echo "$dds[0]" . " ";
echo "$dds[1]" . " ";
echo "$dds[2]";
?>
 
<?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] 
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 ";
}
echo "\n";
}
}
else
{
echo "$qry は存在しません ";
}
?>
 
<?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">

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

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

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

for ($i=0;$i<$kazu;$i++) {
$j = $i+1;
echo "$j:$keywords[$i] \n";
}
unset($keywords);
endif;
$fd_read = fopen ("text.txt","r");
while (!feof ($fd_read))
{
$line = fgets ($fd_read,1000);
echo "$line \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 #{$line_num} : " . htmlspecialchars($line) . " \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) . " \n";
}
} else {
$exif_data .= htmlspecialchars("$key.$name: $value",
ENT_QUOTES) . " \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">
<html xmlns="http://www.w3.org/1999/xhtml" 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] 
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 \n";
}

foreach ($keywords as $value => $test) {
echo "$value:$test \n";
}
139：女傑 ◆nDpXSJz8i.：2013/03/04(月) 00:06:22: $bun =~ s/.{160}/$&
140：女傑 ◆nDpXSJz8i.：2013/03/04(月) 00:08:18: $bun =~ s/.{160}/$& \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}/$& \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");
# 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: \n";
$exif = exif_read_data('tests/test1.jpg', 'IFD0');
echo $exif===false ? "No header data found. \n" : "Image contains headers \n";

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

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

}
$a = 0;
while ($a < 10)
{
print "繰り返し処理 ";
$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}/$& \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" xml:lang="ja" lang="ja">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=Shift_JIS">
<title>芥川龍之介賞 受賞者データベース</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", " ", $wid);
165：女傑 ◆nDpXSJz8i.：2013/03/11(月) 16:22:57: // MySQLに接続する。
$host = "localhost";
$id = "";
$password = "";

if( $res_dbcon = mysql_connect( $host, $id, $password) ){
echo "★☆★☆MySQL接続が正常に開始しました。★☆★☆ <hr>";
}
else{
echo "★☆★☆残念なことに、MySQL接続が失敗しました。★☆★☆ <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]回 
$koumoku[1]:$row[nendo]年度 
$koumoku[2]:$row[myoji]$row[namae]さん 
$koumoku[3]:$row[sakuhin] 
$koumoku[4]:$row[shozoku] 
<img src="https://chart.googleapis.com/chart?chs=120x120&cht=qr&chl=$row[sakuhin]&choe=Shift_JIS&chld=L|1\">
 
<table border="1" width="1000" cellspacing="0" cellpadding="5" bordercolor="#333333">
<tr>
<th bgcolor="#EE0000">$koumoku[0]</th>
<th bgcolor="#EE0000" width="200">$koumoku[1]</th>
<th bgcolor="#EE0000" width="500">$koumoku[2]</th>
<th bgcolor="#EE0000" width="1000">$koumoku[3]</th>
<th bgcolor="#EE0000" width="300">$koumoku[4]</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
検索の結果、何も見つかりませんでした。
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(' ★☆★☆MySQL接続が正常に終了しました。★☆★☆ ');
}
else{
echo "★☆★☆残念なことに、MySQL接続が正常に終了できませんでした。★☆★☆ <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 件ヒットしました。 ");

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" 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", " ", $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
ページが見つかりません
</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] $page_array2[$i] 
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='前へ';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='次へ';}

//$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.='['.$i.']';}
}
//$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
ページが見つかりません
</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
$back_str $page_str $next_str
成績$allkazu$sen$icchaku$shou $zensei
勝率$shoritu 連対率$rentai
EOF;
$kai = "回";
foreach (array_count_values($array2) as $key => $val) {
echo "$key$val$kai \n";

}
echo <<<EOF
$page_num/$kir
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" 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", " ", $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
ページが見つかりません
</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] $page_array4[$i] $page_array2[$i] 
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='前へ';}#存在しなければグレイ色で薄く表示
if(count($array) > ($next_page-1)*$page_line_num){$next_str='<a href="'.$thisphp.'?page='.$next_page.'">次へ</a>';}#現在より後のページが存在すれば進むリンクを作る
else{$next_str='次へ';}

//$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.='['.$i.']';}
}
if ($pagesuu < $page_num) {
echo <<<EOF
ページが見つかりません
</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
$back_str $page_str $next_str
成績$allkazu$sen$icchaku$shou $zensei
EOF;
foreach (array_count_values($array2) as $key => $val){ print $key."".$val."回\n";}
echo <<<EOF
勝率$shoritu 連対率$rentai
$page_num/$pagesuu
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";