OBJECTIVES’

うー。
いいなぁ･･･ＡＤＳＬ。

＃サービス対象範囲外の人間の心の叫び。

飲み会でした。
送別会だったんですがね。
明日からも同じ職場で一緒に働くみたいなことを聞いたわけです。

あー･･･色紙に思いっきり
「新しい職場でもがんばって」
とか書いちゃったよ。

「もう学生じゃないから」って逃げ口上は
自称絵描きさんにとっては自殺と一緒でしょうか。

どうも、ある種の思考停止回路の組み込みが必要っぽいです。
自前で用意しますが。

＃電波な日記だなあ
あんまり意味はありません。

へこむ。
作ろうとする気持ち＜実力

あせる。
作ろうとする気持ち＞締め切り

すいっちがはいる。（一部限定）
作ろうとする気持ち＋リポＤ

たまたま。
作ろうとする気持ち＜作業ペース

嗚呼…属性にピンポイントのゴーストのリリースをたくらんでいる私ですが、
狙った属性を装備したゴーストがβでリリースされてる。

うぐぅ…
負けてなるモノか。（ってまだβとしてもリリースできてないじゃん。こっち。）

今日のイベント参加者の構成比　だいたい0.5:9.5
むー。

PetitPaintというソフトが出ました。
熱望していたどこでも水彩画環境です。
しあわせ。

アクセスログ眺めてみました。
User-Agentが
先行者
狙いすぎです。あなた（笑）

掴みはこのくらいにしておいてと…。

彼の糸井重里氏のウェブサイトほぼ日刊イトイ新聞で連載されている「もしもしＱよＱさんよ」というとても好きな記事があります、私はコレをいつでも読めればいいなあと常々思っておりました。本にもなっているので買えばいいという考えもあったんですが新しい記事に対応できないという自己中心的な理由からＰＤＡで持ち運べるようにしてしまえ計画発動。

というわけでその為のPerlスクリプトなり。いわゆるヘッドラインセンサみたいなモノですわ。動作環境としてはrequire 5.6.1ということにしておきましょうかね…。
あ、あとこれは私の場合の家庭内LANのProxyを考慮したモノなのでそのまま動かせる人っていないかも（笑）
適宜ソケット生成の部分とGET命令の発行箇所を修正してくださいね。
＃なんでそこまで作り込まないのかというと、「私の所では動いてるしこれで充分」だから。

実行する際にコマンドラインで取得したい西暦、取得したい最初の月、取得したい最後の月をわたしてください。
おっと、わすれてた。スクリプトの文字コードはShift_JISで。
マッチングにそのまま2バイト漢字使っちゃってるし（笑）

#! /usr/bin/perl

#ほぼ日刊イトイ新聞もしもしＱさんＱさんよ
#ごっそりゲットスクリプト^^;

use IO::Socket::INET;

($getyear, $start_month, $end_month) = @ARGV;

print $getyear, $start_month, $end_month;
@days = qw(0 31 28 31 30 31 30 31 31 30 31 30 31);
for $month( $start_month .. $end_month){
  for $i(1..$days[$month]){
    $socket = IO::Socket::INET->new(PeerAddr =>’192.168.0.1′, PeerPort => ‘8080′ , PeerProto => ‘tcp’ );

    $month = sprintf “%02d”, $month;
    $filename = $getyear.”_”.$month.”QQ.TXT”;

    open( OUT, “>>$filename”) or die;
    $mday = sprintf “%02d-%02d”, $month, $i;

    print $socket “GET http://www.1101.com/Q/$getyear-$mday.htmlrn”;

    while( < $socket> ){
        chomp;
      if( m/第/ ){
        $_ =~ s/< [^>]*>//g;
        $_ =~ s/ //g;
        print OUT $_, “rn”;
        last;
      }
    }
    while( < $socket> ){
      chomp;
      m/< /TD>/ and last;
      $_ =~ s/< [^>]*>//g;
      $_ =~ s/ //g;
      print OUT $_, “rn”;
    }
    print OUT “nn”;
    close(OUT);
    $socket->close();
  }
}

うーん。カテジナ性格わるーい（笑

PSOがGameCUBEで出るそうだ。
で、GameCubeはXBOXより2ヶ月早く発売される。

決まったか。

一日中眠くて意識が半分飛んでた…。

やはり休日の最後を徹夜してはいけない。

某所のチャットで朝まで延々話をしてたら、寝過ぎて今日するつもりだったこと９割未完。
大人なんだからもうちょっと計画的に動こう。自分。

早寝したせいで起きたのが午前3時…。
どうもテンションその他盛り上がらないのでCSでU571を見る。

うあー…映画館で見るんだった(泣
テンション盛り下がる。
夜TSUTAYAで「ラヂオの時間」のDVDを購入。
うむ。ボーナストラックがナイスだ。

「何か。」用シェルのキャラクタ名は「かえで」で開発することに決定。