Drkcore

def setup(self):
    self.size(200, 200)
    self.colorMode(PApplet.HSB, 120)
    self.background(119)
    self.noStroke()
    self.smooth()
    self.rectMode(PApplet.CENTER)

    self.angle = 30
    self.margin = 40

def draw(self):
    self.translate(120, 30)
    for i in range(12):
        self.fill(i*10, 100, 119, 60)
        self.rect(0, -10, 10, 10)
        self.rect(0, 0, 30, 30)
        self.rect(30, 30, 60, 60)

        self.rotate(self.radians(self.angle))
        self.translate(self.margin, 0)

02042008 bioinformatics plagger

nikkei_btj twitterをircに流したらいい感じ

えと、僕とボットしかいない職場のircですが、それだけだとさびしいので、smilesを打ち込んだらInchiを返す人口無能でもいれたろかと思ったがそれはあまりにも孤独すぎだろうと思いとどまった。むしろ、黒い独り言を垂れ流して、負のオーラで仲間をひきつけるチャンネルを作ろうとか（謎）

というより、頻度の高いニュースサイトなんかを流すと、にぎわっているようでよいのではないかと。というわけで、ちょっと前に見つけたnikkei_btjをircに流してみた、plaggerで。

plaggerの設定はirc.yamlを参考に書き換えるだけだった、お手軽！そしてnikkei_btj調子いいっす。感謝！

02042008 perl

perlのスレッドでIPアドレス逆引き

昨日の続き

use strict;
use warnings;
use Socket;
use threads;
use threads::shared;
use Thread::Queue;

my $thread_num =10;
my %cache : shared;
my $DataQueue = Thread::Queue->new();

for (0..$thread_num){threads->create(\&getaddress);}

while(<DATA>){
  chomp;
  $DataQueue->enqueue($_);
}
for (0..$thread_num){$DataQueue->enqueue(undef);}

$_->join for threads->list;

sub getaddress {
  while(my $DataElement = $DataQueue->dequeue()){
    my $address;
    if ( $cache{$DataElement}){
      print "[cache] ",$cache{$DataElement},"\n";
    }
    else {
      ($address) =  gethostbyaddr(inet_aton($DataElement),AF_INET);
      if ($address){
            print "$address\n";
            {
              lock %cache;
              $cache{$DataElement} = $address;
            }
      }
      else {
            {
              lock %cache;
              $cache{$DataElement} = $DataElement;
            }
            print $DataElement, "\n";
      }
    }
  }
}
__DATA__
222.228.235.193
157.113.18.68

これで結構オッケーなんだけど、アクセスログだとIPアドレスが連続してるのでキャッシュされてない且つ逆引き出来ないアドレスが続いてるとすべてのスレッドがそのアドレスを問い合わせにいってしまって遅かったりする。

どれかのスレッドが問い合わせ中のアドレスは問い合わせにいかないというような処理を入れたくなったけど、どういう風にしたらよいのかわからない。

01042008 perl

perlでスレッド処理

javaの入門書を読んでいたら突然スレッド処理が気になりだした。そういえばどう書くにスレッド処理の問題あったな。

あった。

ログを順次読み取り処理する部分を，データを共有しつついかに並列化するか

pythonだとthreadingとかtwisted使った解答があって参考になった。というかtwistedは興味があるけどよくわからん。今度また改めて。で、thread使ったperlの解答がなかったので少し考えてみた。初めてのthreadプログラミング。

use strict;
use warnings;
use Socket;
use threads;
use Thread::Queue;

my $DataQueue = Thread::Queue->new();
my $thr1 = threads->create(\&getaddress);
my $thr2 = threads->create(\&getaddress);
my $thr3 = threads->create(\&getaddress);
my $thr4 = threads->create(\&getaddress);

while(<DATA>){
  $DataQueue->enqueue($_);
}
$DataQueue->enqueue(undef);
$DataQueue->enqueue(undef);
$DataQueue->enqueue(undef);
$DataQueue->enqueue(undef);
$thr1->join();
$thr2->join();
$thr3->join();
$thr4->join();

sub getaddress {
  while(my $DataElement = $DataQueue->dequeue()){
    my ($address) =  gethostbyaddr(inet_aton($DataElement),AF_INET);
    print "$address\n" if $address;
  }
}
__DATA__
74.6.16.244
203.104.98.219
219.111.208.65