アフィリエイトで家族Dacekedgar計画 あどぶいら page
‹ PREVは注目 はてな？2chとのGYPについて 〜あどぶいらです | NEXTはAre you livedoor blog's SEO? (ブログla en)あどぶいらです ›entry:
Ads by Google
新しい記事を書く事で広告が消せます。
スポンサー広告 > Ads by Google |
entry:
アフィリエイトで家族Dacekedgar計画 あどぶいら
\
デースケドガーというと魔物っぽいイメージがある。Dacekedgar。うーん‥やっぱりどうなんだろう。さて、昨今のインターネッツ事情はアフィリエイトなどである。家族でしあわせになれる計画とかがあればそれは吉なのであろう。
\だが、アフィリエイトは魔物だ。
Dacekedgarとは比較にならないほど怖い存在。
でもデースケドガーと対比させることにより、家族でしあわせになれるように計画することもよし、その過程がいいのだろう。
じゃあどうすればいいのか？
食わず嫌いになるのもどうかと思ったから、試しに昨日、Dacekedgarを買ってみた。
税込み 420円
税抜き 400円前後
早速開封！
思ったよりもデースケドガーは怖いというほどのものでもなかった。
むしろ滑稽という表現がmuchするような感じ？しないような感じ？
まー、どちらにしろアフィリエイトとは比べられないような感じも見受けられたのではあるが、家族がしあわせになれればそれでよしとするか。
どういった計画を練れるかが今後の課題。
そんな想い通りのことを書き綴ることができる今日のブログ(weblogとか日記みたいな)でした。
いつものプログラミング講座。
今日はjavascriptは少し覚えたので、CGIのPHP（私はいつもDacekedgarと呼んでいます）ではなくperl（こちらはあどぶいらと呼んでいます）のほう。
#!/usr/bin/perl
#---DSHELL後の2chスレッドファイルリンク構造変換フォルダ対応用
$koukoku = "上部ヘッダ用HTML";
$pankuzu = "上部パンくずリスト自由【例えばデースケドガーとか入れてみたり】";
$otmp[0] = "同じくDacekedgarとか";
$pankuzu2 = "パンくずあどぶいら";
$powered = "Powered by 下部フッタ用リンクDacekedgarでもOK";
#--------
#--main
$dire = "z:2ch";#---RAMディスクをZドライブとして使用
#【やり方的にはアットホーム→家族っぽいかも】
mkdir $dire;
print "Content-type: text/html\n\n";
print <<"HTML";
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
HTML
opendir(DIR , 'z:work');
while($view = readdir(DIR)){push (@foldlist,$view);}
foreach(@foldlist){
if($_ !~ /\./){push(@folds,$_);}
elsif($_ =~ /_index/){push(@index,$_);}
}
foreach(@index){
open(IN,"z:work/$_");
@tmp =
close (IN);
@tmp[5] = "<body bgcolor=#dddddd>\n$pankuzu2\n<br>";
open (OUT,"> z:./2ch/$_");
print OUT @tmp;
close (OUT);
@tmp = ();
}
foreach (@folds){
$t = 0;$linklist = " ";
$foldname = $_;
push(@otmp,"\n<hr><b>$foldname</b>\n");
opendir(DIR , "z:work/$_");
while($view = readdir(DIR)){
if(($view ne "..")&&($view ne ".")){
$t = $t + 50;$tm = $t - 49;
$linklist = $linklist . "<a href=\"./$view\">$tm\-$t ";
}
}
opendir(DIR , "z:work/$_");
while($view = readdir(DIR)){
if(($view ne "..")&&($view ne ".")&&($view !~ /[a-z]\.html/)&&($view =~ /\.html/)){
$viewh = $view;$viewh =~ s/\.html//;
push(@otmp,"<a href=\"./$foldname/$view\">$viewh</a>\n<br>");
#---加工部【アフィリエイトには若干不向き】
@tmp = ();
open(IN,"z:work/$foldname/$view");
@tmp =
close (IN);
if($view =~ /_01/){
$saigo = pop(@otmp);push(@otmp,"<br>$tmp[21]<br>");
push(@otmp,$saigo);
}
$flg = 0;
$tmp[7] = "";
$tmp[8] = "";
$tmp[9] = "";
$tmp[10] = "";
$tmp[11] = "";
$tmp[16] = "$pankuzu\n<br>$tmp[16]";
$tmp[17] = $linklist . "\n</span>";
$tmp[18] = "";
foreach (@tmp){
if($_ =~ /<div align\=\"right\">/){
$_ =~ s/<div align\=\"right\">/<div align\=\"right\">\n$powered\n/;
}
if($_ =~ /<a href\=\"mailto\:.*\">/){
$_ =~ s/<a href\=\"mailto\:.*\"><b>/<font color\=blue>/i;
$_ =~ s/<\/b><\/a>/<\/font>/i;
}
if($_ =~ /<dt>/i){
$_ =~ s/<b>//ig;
$_ =~ s/<\/b>//ig;
}
if($_ =~ /\Q禁止ワード\E/){
$_ =~ s/\Q禁止ワード\E//g;$n++;
}#--ページ価値下降防止の為の変換用 追加行【計画的】
}
$dire = "z:2ch/$foldname";
mkdir $dire;
open (OUT,"> z:./2ch/$foldname/$view");
print OUT @tmp;
close (OUT);
}
}
}
#加工部の終わり あどぶいら！
foreach(@otmp){print $_;}
print "<hr>おっけい！！$m個の除去と、日本語は$n個除去したよ\n";
exit;
[1][2][3][4][5][6][7][8][9][10]
m(へoも)m
この記事に対するコメント
bv
http://hpfc2.blog14.fc2.com/?no=25
この記事に対するコメントの投稿
25 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)
最新の記事
ブロとも申請フォーム
カレンダー
| 日 | 月 | 火 | 水 | 木 | 金 | 土 |
|---|---|---|---|---|---|---|
| - | - | - | 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 言及リンク方式です。
- アニメの仕事、絵のしごと/
テスト :(05月02日)
COMMENTS:
- ありがと :(03月15日)
- vc :(03月15日)
[ アフィリエイトで家族Dacekedgar計画 あどぶいらページトップ]