Drkcore

23032008 music

You don't know

Ninjaの三枚組。

Ninjaってこんなにアーティストいたっけとか思ったら傘下のN-TONEとかいうとこのアーティストも含まれているらしい。

You Don't Know: Ninja Cuts [3CD]
Coldcut
NINJA TUNE / 3929円 ( 2008-03-10 )

FINK / Pretty Little Thingがしぶくてよい。

22032008 chemoinformatics

Sigma-Aldrich ToolBar

ふむ。でもあんまり便利感がないなー。っだって、長い番号打ち込まないといけないんでしょ？

構造式のgooglesuggestみたいなのがあればいいんだけどね。

19032008 perl

IO::Allでircクライアント

telnetでしゃべらナイトってことで、

telnet hostname 6667

で会話をしてみた。ついでにIO::Allでもやってみた。

my $io = io("192.168.xxx.xxx:6667");
$io->print("NICK test\n");
$io->print("USER test 192.168.xxx.xxx 192.168.xxx.xxx test\n");
$io->print("JOIN #info\n");
$io->print("PRIVMSG #info : hello irc!\n");
$io->print("QUIT\n");

ログインして一言なんか申して去っていく感じのクライアント

18032008 chemoinformatics perl bioinformatics

論文からdoiを抜き出すperlのサンプル

文献はpdfを自作のイントラソーシャルブックマークサービスっぽいのを使って管理しているのだけど、pubmedにのるよりもペーパーの方が早かったりすることのほうが多く、pmidをつけることが出来なくてもどかしい思いをしてばかりいる。

use strict;
use warnings;
use CAM::PDF;

my $pdfname = $ARGV[0];
my $pdf = CAM::PDF->new($pdfname);
my $page1 = $pdf->getPageContent(1);
my ($result) = $page1 =~ m!\d+\.\d+\/.+?(?=\))!gx;
print $result if $result;

抽出したdoiをeutilsに問い合わせて、あとは適度な塩加減を加えつつゴニョルとよさげ。

で、そのソーシャルブックマークサービスはpmidをプライマリキーにしてるもんだから始末に負えない、というかそのうち、匠的にリフォームする気概で、今日もだましだまし使った。

16032008 music