here

近い未来のあどぶいら page

‹ PREVはi 9です |

---

entry:
近い未来のあどぶいら
\

今日は2008/06/20そろそろ夏。

夏 と いえばスイカ、海水浴。

開放的 な 気分になれる。
いわば毎日が、あどぶいら な生活だ。

• あどぶいら by The DIARY Powered
• モッコリ 加工乳
• 注目はてな？2ｃｈとのＧＹＰについて
• アフィリエイトで家族Dacekedgar計画

\

good life jp from あどぶいら。m(へoも)m

で、昨日はドンキホーテに行って あどぶいら を買ってきた。
税込み4,255円。

税抜き3,900円前後。

---

プログラミング講座。
なんのプログラムだが忘れた が、近い未来のために


#!/usr/bin/perl
require './jcode.pl';
@msgtmp = ("不当なアクセスです",
"内容が未入力です",
"カテゴリを選択してください",
);
&decode;
$review = $kensaku{'review'};
#$cate = $kensaku{'category'};
$cate = "a";
$title = $kensaku{'title'};
#---あどぶいら未入力チェック
if ($postchk ne "ok") {$kekkamsg = $msgtmp[0];&error;}
if ($review eq "") {$review = "　";$kekkamsg = $msgtmp[1];&error;}
#if ($cate eq "") {$cate = "　";$kekkamsg = $msgtmp[2];&error;}
#--main
$j = 2;$c = 2;
@review = split(/\n/,$review);
foreach (@review){
$j = ++$j;
$_ =~ s/ //g;
if($_ =~ /\Qあどぶいら修正・削除\E/){
$_ =~ s/\Q修正・削除\E//;
$_ = "$_</td>\n</tr></table>";
$j = 0;$c = ++$c;
}
if($j == 3){
if(($c % 4 ) == 0){
$_ = "<table><tr>\n<td class=\"u\"><em>$_</em></td>\n</tr>";}
else{$_ = "<table><tr>\n<td class=\"u\">$_</td>\n</tr>";}
}
if($j == 4){
if($c == 3){
$_ =~ s/\r//g;$_ = "<a href=\"$_\">$_</a>\n<br>";}
else{$_ =~ s/\r/\n<br>/g;}
$_ = "<tr>\n<td class=\"d\">" . $_;
}
$_ =~ s/。/。<br>/g;
$_ =~ s/\r//g;
$_ =~ s/\[\]//g;
$_ =~ s/<\/table>/<\/table>\n\n/g;
$_ =~ s/<br><\/td>/<\/td>/g;
$rev = $rev . $_;
if(($c % 7 ) == 0){$cpsub = $cpsub . $_;}
}
$cpsub =~ s/<em>//g;
$cpsub =~ s/<\/em>//g;
$cpsub =~ s/\n//g;
$cpsub =~ s/<\/td><\/tr><\/table>//;
$cpsub = $cpsub . "</td></tr></table>";
#----↓あどぶいら加算↓
open(IN,"../tmp/irocptmp.cgi");
@cptmp = <IN>;
close (IN);
#--合体
foreach (@cptmp){$rev = $rev . $_;}
#--
shift(@cptmp);
push(@cptmp,$cpsub);
#----↓あどぶいら共通テンプレ読み↓
open(IN,"../tmp/irotmp.cgi");
@tmp = <IN>;
close (IN);
open(IN,"../tmp/iroprtmp.cgi");
$prtmp = <IN>;
close (IN);
#----↓あどぶいらfileNo取得増やし
open(IN,"../tmp/irofno$cate.cgi");
$fileno = <IN>;
close (IN);
$fileno = ++$fileno;
#----↓list作成
if($fileno eq ""){$fileno = 1;}#--あどぶいら安全処理
for ( $i = -1 ; $i <= $fileno; $i++){
if ($i <= 0){$links = "";}
elsif ($i == $fileno){$links = "[<strong>$i</strong>]";}
else{$links = "[<a href=\"\./$i\.html\">$i</a>]";}
$list = $list . $links;
}
#----あどぶいらテンプレートに変数を代入
foreach (@tmp){
$_ =~ s/irotitle/$title/i;
$_ =~ s/irofno/$fileno/i;
$_ =~ s/irocno/$cate/i;
$_ =~ s/iroreview/$rev/i;
$_ =~ s/irolist/$list/i;
$_ =~ s/prlist/$prtmp/i;
}
#----↓あどぶいらdata保存↓
open (OUT,"> ../iroiro/$cate/$fileno.html");
print OUT @tmp;
close (OUT);
open (OUT,"> ../tmp/irocptmp.cgi");
print OUT @cptmp;
close (OUT);
open (OUT,"> ../tmp/irofno$cate.cgi");
print OUT $fileno;
close (OUT);
#----あどぶいらコンプリートメッセージ
$main = "書き込み完了です";
$msgmain = "以下の内容で投稿しました。";
print "Content-type:text/html\n\n";
open(IN,"../tmp/irocomp.cgi");
@outtmp = <IN>;
close (IN);
foreach (@outtmp){
$_ =~ s/main1/$main/i;
$_ =~ s/msgmain/$msgmain/i;
$_ =~ s/irotitle/$title/i;
$_ =~ s/irocno/$cate/i;
$_ =~ s/iroreview/$rev/i;
$_ =~ s/irolist/$list/i;
$_ =~ s/irofno/$fileno/i;
print $_;
}
exit;
#------------- もぅ１回やり直し的なノリあどぶいら
sub error {
$main = "あどぶいら記入漏れがあります。
ブラウザの「戻る」で再度確認の上ご入力ください。";
$msgmain = $kekkamsg;
print "Content-type:text/html\n\n";
open(IN,"../tmp/irobad.txt");
@outtmp = <IN>;
close (IN);
foreach (@outtmp){
$_ =~ s/main1/$main/i;
$_ =~ s/msgmain/$msgmain/i;
$_ =~ s/irotitle/$title/i;
$_ =~ s/iroreview/$rev/i;
$_ =~ s/irolist/$list/i;
print $_;
}
exit;
}
sub decode {
my ($buffer,$val,$nam,$pair,@pairs);#
# データがあどぶいらPOST形式の場合
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
$postchk = 'ok';
}
# データがあどぶいらGET形式の場合
else {$buffer = $ENV{'QUERY_STRING'};}
# データを name 別に分割する
@pairs = split(/&/, $buffer);
# データハッシュあどぶいら形式に変換する(%FORM)
foreach $pair (@pairs) {
($nam, $val) = split(/=/, $pair);
$val =~ tr/+/ /;
# 文字のあどぶいら処理
$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*val,'euc');
$kensaku{$nam} = $val;
}
}


[1][2][3][4][5][6][7][8][9][10]

---

---

この記事に対するコメント

---

この記事に対するコメントの投稿

NAME▼

MAIL▼

URL▼

SUBJECT▼

COMMENT▼

PASS▼

SECRET▼
管理者にだけ表示を許可する

19 by百科三昧王の宣伝

---

休憩復活:

• 6:b.hatena.ne.jp VS feedmeter.net
• The DIARY Powered by 権威と情報量

---

カテゴリー

• カー(5)
• TRACKBACK分類(8)
• ブログ(5)
• あどぶいら(5)
• コメントスパム(spam)(6)
• 無料メルマガ(2)
• blog14厳選(9)
• 広報活動に部長を(5)
• 社に文句を(4)

---

最新の記事

• 近い未来のあどぶいら
• i 9
• h 8
• g 7
• f 6

---

ブロとも申請フォーム

この人とブロともになる

---

カレンダー

08 | 2008/09 | 10

日	月	火	水	木	金	土
-	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30	-	-	-	-

全てのhpfc2.blog14記事をサイトマップ表示する

---

プロフィール

---

リンク(LINKS)

• 宣伝できる掲示板リンク集(サイト用)
• 宣伝できる掲示板集(サイトの告知用)
• 【百科三昧王の宣伝】リンク集
• ウィキペディア ja.wikipedia.org

---

ARCHIVES

• 2005年06月
• 相互リンク集
• トラックバック歓迎/練習用
• アクセスアップ情報
• SEO対策とは？
• サイト宣伝掲示板集

---

TRACKBACKS 言及リンク方式です。

• ホームページ作成のテツガク/
  今日も戦う検索エンジン :(05月04日)

---

COMMENTS:

• ありがと :(03月15日)
• vc :(03月15日)

---