？？？？？？？？

My works of past ten years are now available online. Including three new songs.

Amazon MP3:http://amzn.to/JCEU05

iTunes:http://bit.ly/M684Ke

I hope you like it.

Thanks.

あんまりやりたいことできてないけど、随分サンプルがとれたので。




最初の頃の直線回帰よりは2次曲線に回帰していますね。直線相関で計算すると、相関係数 = 0.86くらいです。



もっとも、一つの関数で表現するのが適切かという問題はあります。

1回だけ、私物のSBを加えて60k(APV)をたたき出したのと、土日ほっぽらかして電波切れて20k(APV)の箇所がありますが、それを考慮すると妥当な感じかなと。

10kと70〜80kあたりで一つサンプルが取れればいいんだろうけど、これ以上資源に経費を使えないという馬鹿なんだかケチなんだかな経営者なので、最近は繋げてほったらかしています。

まあでもリモートホストまでチェックするようなサイトで、携帯アクセスを増やす方法を思いついたのは結構達成感がありました。

種明かしはHTML書ければ誰でもできるという。もはやプログラムですらないですよね。

Webディレクターなら思いついて当然、なのにね。。

というわけで、携帯電話でiframe埋没法を始めてからのデータしかありませんが。。

APV5,000付与くらいで簡単に10位台まで上がるようなので、この外挿は
カテゴリ別上位 15位以上くらいから適用できます。


■条件
PC 5,000アクセス/日
MB (総アクセス数 - 5,000) /日

PCアクセスは固定で、変数はMBアクセスのみです。

ただし、毎日ぺたぺた返しは走らせていて、PCのUUは、250〜400くらいまで
変動している状況です。

散布図の線は最小二乗法で書いたものです。

トム・デマルコはPhotoshopをベストアプリにあげてましたが、Excelも
かなり素晴らしいと思いますよ。

ユーザー企業だと、30代くらいから上はソフトウェアの価値を
測れません(無能レベルに達している)。

自分の場合は経験があるのは2社ですが。。

あと、大学卒で入ってきても卒論がなかったりコピペで
済ませてきた人はPCを全然使えないです、ていうか
分数の割り算できないです。
(これからどうなるかは不明)。

今の時代だからもっと普通に使いこなせるのかと思ったら、
意外にそうでもないんですよね。一番重要なのは「使える」
よりも「使う方法を調べられる」ほうですが。

なんかすごそう、で給料もらえたらいいんですが、大抵の
場合は営業推しでなめられる場合が多いです。

それで単純作業を置換した場合は、バイトを雇った体で
見積もりも説得力を増すかなと思ってやってみます。

今回のspiderは冬休みに作ったので、実質投資0円でも
いいんですが、、まぁ72時間使ったとして大体▲3万円で
いいです。

■やってること
1. 4アクセス/分 -- ランダムに。
2. ぺたぺた返し500件/日 -- ゆっくりランダムに。
3. 読者登録申請250件/日

■1ヶ月の見積もり
バイトは沖縄の時給600円レベルで計算
1. 24h稼働してるので。
  24h * 30day * 600 =  ¥432,000
2. 休日もcronで稼働+人がやると4h/dayくらいですね。
    #15秒に一回換算、だけど休みなしで動くからな。。
  4h * 30day * 600 = ¥72,000
3. これは面倒くさい。人手でやったら1件/minuteかな。
  (250/60)h * 30day * 600 = ¥75,000

■合計
1. + 2. + 3. =  ¥579,000

なんか、、想像よりスゲー結果になった。
初期投資は消し飛びますね。

あれですね、売上げにつながってはいないのと、全額従業員に
払うと自分を雇っている意味がなくなるので、50%もらうと
しましょうか。

¥289,500 -- あれ?

しかもこれ以外にメインの仕事が8h/dayはあるわけで。
搾取されてますねー、社畜ですねー。

手元に「はじめてのPerl」はあるんですが、いまいち書いてない。

Perlで型っていうとリファレンスとデリファレンス関係が
圧倒的に多いですね。

それはそれとして、intだとか何だとかは勝手に解釈して
くれるらしい。のですが、spiderを動かしてみて警告が
出るんですよね。

PHPにあるin_arrayを模したメソッドで、コピったもの。
こういう所も書かなきゃいけないのがつらい所。。

アカウントの比較に用いているので、想定は文字列なんですが、
アカウントが数字だけの人も見ているとあります。

【before】
sub in_array() {
 my $self = shift;
 my ($val,$array_ref) = @_;
 foreach my $elem (@$array_ref) {
  if($val=~m/^[0-9]+$/){
   if($val == $elem) { return 1; }
  }else{
   if($val eq $elem) { return 1; }
  }
 }
 return 0;
}

【after】
sub in_array() {
 my $self = shift;
 my ($val,$array_ref) = @_;
 foreach my $elem (@$array_ref) {
   # 最後に' 'を入れて文字列型にキャスト
   if( "$val " eq "$elem " ) { return 1; }
 }
 return 0;
}

ええ、JavaScriptと同じ手法で逃げました。。