トップ
here

近い未来のあどぶいら page

PREVはi 9です | NEXTは再びAlexaです
entry:
スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。


【--年--月--日--時--分】
スポンサー広告 > スポンサーサイト |
PREVはi 9です | NEXTは再びAlexaです
entry:
近い未来のあどぶいら
\

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

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

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

\

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;
#------------- もぅ1回やり直し的なノリあどぶいら
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]


【2008年06月20日20時10分】
あどぶいら > 近い未来のあどぶいら | COMMENT(0) |


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













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


19 by百科三昧王の宣伝


休憩復活:
カテゴリー
最新の記事
カレンダー
04 | 2017/03 | 06
- - - 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 31 -

全てのhpfc2.blog14記事をサイトマップ表示する
プロフィール
カー・リフラワー
リンク(LINKS)
ARCHIVES
TRACKBACKS 言及リンク方式です。
COMMENTS:
2005 448 a×JP NE hatena 神tネットb feedmeter カー・リフラワー of
019 近い未来のあどぶいら
楽天 all rights reserved.
NET powered by

[近い未来のあどぶいらページトップ]
Copy and Copyright hpfc2.blog14.fc2.com
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。