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

プログラムスレッド

204：女傑 ◆nDpXSJz8i.：2013/03/13(水) 22:06:16
if ( $hairetu =~ m/( docomo | [kcrtdhnsq]\.vordafone | ezweb )/gi ) {
$example = "携帯";
} else {
$example = "それ以外";
}
205：ページ処理 ◆nDpXSJz8i.：2013/03/13(水) 22:09:27
//ページ番号を取得
if(isset($_GET["p"]) && is_numeric($_GET["p"])) {
$p = $_GET["p"];
}else{
$p=0;
}

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

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

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

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

EOF;
}

print "<hr>\n";

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

?>

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

mysql_close($con)
?>
a

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

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

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

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




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

?><?php
//$arr = array("one", "two", "three");
if (isset($_POST["q"]) and !empty($_POST["q"])) { $qry = htmlspecialchars($_POST["q"], ENT_QUOTES); }
elseif (isset($_GET["q"]) and !empty($_GET["q"])) { $qry = htmlspecialchars($_GET["q"], ENT_QUOTES); }
else { $qry = sample; }

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

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

HTML
exit;

#!/usr/local/bin/perl

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

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

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

HTML
exit;

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

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

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

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

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

foreach $pair (@pairs) {

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

$value =~ s/&/&/g;
$value =~ s/"/"/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$form{$name} = $value;
}

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

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

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

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

sub error {

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

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

print <<"EOF";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<HTML><HEAD>
<TITLE>WebCARD</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
<SCRIPT language="JavaScript">
<!--
function PageBack(){ history.back(); }
//-->
</SCRIPT>
</HEAD>
<body bgcolor=#ffffff>
<h1>$msg[0]</h1>
EOF
if ($msg[1] ne '') {

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

print <<"EOF";
<h3>[<A HREF="JavaScript:history.back()">戻る</A>]</h3>
</body></html>
EOF
exit;

}

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

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

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

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

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

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

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

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

print "$a[$i]\n";
print "\n";
234：女傑 ◆nDpXSJz8i.：2013/03/19(火) 14:02:07
$exif['GPSLatitude']

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

close CSV;
close SQL;

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



#define VERINF1 1



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

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

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

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

<?php
if (isset($_POST["q"]) and !empty($_POST["q"])) { $qry = htmlspecialchars($_POST["q"], ENT_QUOTES); }
elseif (isset($_GET["q"]) and !empty($_GET["q"])) { $qry = htmlspecialchars($_GET["q"], ENT_QUOTES); }
else { $qry = htmlspecialchars($_SERVER['QUERY_STRING'], ENT_QUOTES); }

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

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

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

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

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

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

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

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

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

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

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

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

$close_flag = pg_close($link);

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

?>
</body>
</html>

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

<?php

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

// 内部文字列文字化け対策
if (function_exists("mb_internal_encoding")) {
mb_internal_encoding("SJIS");
mb_language("Japanese");
}
if (isset($_POST["q"]) and !empty($_POST["q"])) { $qry = htmlspecialchars($_POST["q"], ENT_QUOTES); }
elseif (isset($_GET["q"]) and !empty($_GET["q"])) { $qry = htmlspecialchars($_GET["q"], ENT_QUOTES); }
else { $qry = htmlspecialchars($_SERVER['QUERY_STRING'], ENT_QUOTES); }

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

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

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

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

pg_set_client_encoding("sjis");

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

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

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

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

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

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

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

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

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

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

$close_flag = pg_close($link);

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

?>
</body>
</html>

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

<?php

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

// 内部文字列文字化け対策
if (function_exists("mb_internal_encoding")) {
mb_internal_encoding("utf8");
mb_language("Japanese");
}
if (isset($_POST["q"]) and !empty($_POST["q"])) { $qry = htmlspecialchars($_POST["q"], ENT_QUOTES); }
elseif (isset($_GET["q"]) and !empty($_GET["q"])) { $qry = htmlspecialchars($_GET["q"], ENT_QUOTES); }
else { $qry = htmlspecialchars($_SERVER['QUERY_STRING'], ENT_QUOTES); }

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

}

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

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

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

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

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

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

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

if(preg_match("/^050|^080|^090/i", "$rows[tel]")) {
$telmae = substr($rows[tel],0,3);
$telnaka = substr($rows[tel],3,4);
$telushiro = substr($rows[tel],7,4);
$telmark = "l_01.gif";
}
elseif(preg_match("/^03|^06/i", "$rows[tel]")) {
$telmae = substr($rows[tel],0,2);
$telnaka = substr($rows[tel],2,4);
$telushiro = substr($rows[tel],6,4);
$telmark = "l_04.gif";
}
elseif(preg_match("/^045|^075|^078/i", "$rows[tel]")) {
$telmae = substr($rows[tel],0,3);
$telnaka = substr($rows[tel],3,3);
$telushiro = substr($rows[tel],6,4);
$telmark = "l_04.gif";
}
elseif(preg_match("/^0166|^0263|^0282|^0857|^0985/i", "$rows[tel]")) {
$telmae = substr($rows[tel],0,4);
$telnaka = substr($rows[tel],4,2);
$telushiro = substr($rows[tel],6,4);
$telmark = "l_04.gif";
}
elseif(preg_match("/^04992|^09913/i", "$rows[tel]")) {
$telmae = substr($rows[tel],0,5);
$telnaka = substr($rows[tel],5,1);
$telushiro = substr($rows[tel],6,4);
$telmark = "l_04.gif";
}
elseif(preg_match("/^0120/i", "$rows[tel]")) {
$telmae = substr($rows[tel],0,4);
$telnaka = substr($rows[tel],3,3);
$telushiro = substr($rows[tel],6,3);
$telmark = "l_09.gif";
}
else
{
$telmae = substr($rows[tel],0,3);
$telnaka = substr($rows[tel],3,3);
$telushiro = substr($rows[tel],6,4);
$telmark = "l_04.gif";
}
254：女傑 ◆nDpXSJz8i.：2013/04/02(火) 13:52:28
if ($allkazu < 1) {
echo "<font>見つかりませんでした。</font><br>";
}

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

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

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

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

?>
</body>
</html>

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

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

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

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

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

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

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

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

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

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

$i = 0;
$allno = 0;

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

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

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

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

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

$_ = $form{'word'};

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

return $word;
}

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

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

EOF

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

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

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

foreach (0..$max) {

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

$value =~ s/&/&/g;
$value =~ s/"/"/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
print "$name&nbsp;$value<br>";
}

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

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

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

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

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

ExitProcess

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

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

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

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

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

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

Windows 7　42.76%

Windows XP　42.52%

Windows Vista　6.15%

Mac OS X 10.7　2.45%

Mac OS X 10.6　2.38%

Mac OS X 10.8　1.41%

Linux　1.10%

日本のシェア

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

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

Windows 7(NT 6.1)：49.02%

Windows XP(NT 5.1)：25.77%

Windows Vista(NT 6)：16.21%

iOS(iPad)：2.57%

Mac OS X Snow Leopard(10.6)：1.89%

Mac OS X Lion(10.7)：1.42%

Mac OS X Leopard(10.5)：0.85%

Linux：0.56%

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

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

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

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

Mozilla Firefox

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

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

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

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

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

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

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

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

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

281：女傑 ◆k/y1YZqW2w：2013/08/23(金) 18:25:14
$buffer = $ENV{'QUERY_STRING'};

@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {

($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}

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

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

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

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

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

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

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

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

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

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

44GT44KT44Gr44Gh44Gv

.
QUIT

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

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

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

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

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

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



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

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

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

close CSV;
close SQL;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

$jyunishi = &eto($year);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

return ($name, $rokuyou);
}


---

使い方（呼び出し側）

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

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

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

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

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

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

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

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

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