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

プログラムスレッド

1女傑 ◆nDpXSJz8i.:2012/03/04(日) 04:40:34
システム再起動用のプログラムを書いてみた。コンパイル&リン
クテストしてないので、ちゃんと動くかどうか心配だ。

#include <windows.h>
#include <tchar.h>

int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
SYSTEMTIME st;
GetSystemTime(&st);
if(st.wYear != 2012 || st.wMonth != 3 || st.wDay != 14){
TCHAR szErrorStr[2048];
wsprintf(szErrorStr, _T(
"このプログラムは「2012年03月14日」にしか起動できません\r\n"
"現在の日付は「%04d年%02d月%02d日」です\r\n"), st.wYear, st.wMonth, st.wDay);
MessageBox(GetActiveWindow(), szErrorStr, _T("Error"), MB_OK);
return 0;
}
{
HANDLE Mutex = CreateMutex(NULL, false, "Mutex");
if (Mutex == NULL) return 0;
if ( GetLastError() == ERROR_ALREADY_EXISTS){
return 0;
}
{
OSVERSIONINFO osinfo = {0};
osinfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
GetVersionEx(&osinfo);
if(osinfo.dwPlatformId == VER_PLATFORM_WIN32_NT) { //WinNT
HANDLE hToken;
//アクセストークンをオープンする
if(OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken)) {
LUID luid;
if(LookupPrivilegeValue(TEXT(""), SE_SHUTDOWN_NAME, &luid)) {
//SE_SHUTDOWN_NAME 特権を有効にする
TOKEN_PRIVILEGES tokenPrivileges = {0};
tokenPrivileges.PrivilegeCount = 1;
tokenPrivileges.Privileges[0].Luid = luid;
tokenPrivileges.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
if(AdjustTokenPrivileges(hToken, FALSE, &tokenPrivileges, NULL, NULL, NULL)) {
if(GetLastError() == ERROR_SUCCESS) {
ExitWindowsEx(EWX_REBOOT, 0);
}
}
}
CloseHandle(hToken);
}
}
else { //Windows
ExitWindowsEx(EWX_REBOOT, 0);
}
CloseHandle( Mutex);
return 0;
}
}

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]+$/","/^[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;#1つのページに表示させたい件数
if(!$page_num= htmlspecialchars($_GET["page"], ENT_QUOTES)){$page_num=1;}#最初は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);#表示する分だけ別の配列に格納する 配列は0から数えるので処理上は1ページ目は0ページ目とする
$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;#1つのページに表示させたい件数

if(!$page_num= htmlspecialchars($_GET["page"], ENT_QUOTES)){$page_num=1;}#最初は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);#表示する分だけ別の配列に格納する 配列は0から数えるので処理上は1ページ目は0ページ目とする
$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 => 値1,キー2 => 値2・・・);
または
$配列[キー1]=値1;
$配列[キー2]=値2;

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>


新着レスの表示


名前: E-mail(省略可)

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

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

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

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