★★ よくわかる現代魔法＃12 「TMTOWTDI」

Posted on 2009/09/28 (月) 0:28
Filed Under アニメ感想 | Leave a Comment | TrackBack | Share on Tumblr

[最終回]絵はきれいだった。
もっと幼弓子の吐いてない回があったらさらによかったのになー。

参考リンク: よくわかる現代魔法第12話 TMTOWTDI (情報:しょぼいカレンダー)

★★★ 懺・さよなら絶望先生＃13

Posted on 2009/09/27 (日) 21:15
Filed Under アニメ感想 | Leave a Comment | TrackBack | Share on Tumblr

[最終回]あいかわらず監督の天才ぶりがすごかった。
原作のおもしろさを見事に引き出していてすばらしい。

参考リンク: 懺・さよなら絶望先生第13話 (情報:しょぼいカレンダー)

★★ プリンセスラバー！＃12 「プリンセスラバー！」

Posted on 15:05
Filed Under アニメ感想 | Leave a Comment | TrackBack | Share on Tumblr

[最終回]平和な感じで終わった。
オーソドックスで古風な感じもする良作だった。

参考リンク: プリンセスラバー！第12話プリンセスラバー！ (情報:しょぼいカレンダー)

★★★ 化物語＃12 「つばさキャット其ノ貮」

Posted on 2009/09/26 (土) 18:42
Filed Under アニメ感想 | 2 Comments | TrackBack | Share on Tumblr

[最終回]残り3話を残してオンエアは終わってしまった。
残り3話はネット配信らしいけどどうしたら見れるのか。

参考リンク: 化物語第12話つばさキャット其ノ貮 (情報:しょぼいカレンダー)

D.C.II Imaginary Future 5 (卯花つかさ)

Posted on 15:54
Filed Under 今日読んだ本 | Leave a Comment | TrackBack | Share on Tumblr

今日見たマンガ。
この巻で最終巻。
こうなったかー、というような展開だった。

D.C.II Imaginary Future ~ダ・カーポII イマジナリーフューチャー~(5) (電撃コミックス)
CIRCUS, 雨野智晴, 卯花つかさ
発売:アスキー・メディアワークス
発売日:2009-06-27
定価:￥ 578
ASIN:4048679295

Linux上のGPUでH.264エンコードできるのはいつの日か

Posted on 2009/09/23 (水) 18:59
Filed Under 日記 | Leave a Comment | TrackBack | Share on Tumblr

・「【後藤弘茂のWeekly海外ニュース】 “デュアルコア”化によって2倍の性能になった「ATI Radeon HD 5800」」

演算性能は2.72TFLOPSと、生パフォーマンスでは現状で世界最高速のGPUでもある。

さっとぐぐってみたところ各CPUの演算性能の目安はこのくらいらしい。

PowerPC G4	1GFLOPS
Pentium4 3.8GHz	15.2GFLOPS
Core i7-965 3.2GHz	43.7GFLOPS
Cell BE (PS3)	288GFLOPS

Cellは確かに速いが、GPU桁違いだよ!

なんとかこのGPUの演算性能をLinuxのx264あたりから使えるようにはならないか。
foltiaで録画した生TSをHDサイズ、SDサイズ、iPodサイズのH.264を3種類作成しても実尺ほども時間かからないのだろうなー。

★★★ ハヤテのごとく!! ＃25 「執事とお嬢様の話ですから」

Posted on 2009/09/22 (火) 2:53
Filed Under アニメ感想 | 1 Comment | TrackBack | Share on Tumblr

[最終回]主にヒナギクがかわいい第二期だった。
第一期よりも面白くなった気がした。
第三期に期待。

参考リンク: ハヤテのごとく!! 第25話執事とお嬢様の話ですから (情報:しょぼいカレンダー)

★★ 咲-Saki- ＃24 「夏祭り」

Posted on 2009/09/21 (月) 15:45
Filed Under アニメ感想 | Leave a Comment | TrackBack | Share on Tumblr

やはり衣はかわいい。
大和田秀樹の「立 -Ritz-」は単行本に収録されないものか。

参考リンク: 咲-Saki- 第24話夏祭り (情報:しょぼいカレンダー)

★★★★ 化物語＃9 「なでこスネイク其ノ壹」

Posted on 0:31
Filed Under アニメ感想 | Leave a Comment | TrackBack | Share on Tumblr

千石やばい。
超やばい。

参考リンク: 化物語第9話なでこスネイク其ノ壹 (情報:しょぼいカレンダー)

★★★★ シャングリ・ラ＃24 「理想郷土」

Posted on 2009/09/20 (日) 19:23
Filed Under アニメ感想 | Leave a Comment | TrackBack | Share on Tumblr

[最終回]すげー絵がきれいでよく動いた高品質アニメだった。

参考リンク: シャングリ・ラ第24話理想郷土 (情報:しょぼいカレンダー)

★★★★ NEEDLESS ＃9 「第3シェルター」

Posted on 12:39
Filed Under アニメ感想 | Leave a Comment | TrackBack | Share on Tumblr

新たに金髪つり目キャラのセトとソルヴァってキャラが登場した!
NEEDLESSの女子キャラのストライクゾーンど真ん中ぶりは異常。

参考リンク: NEEDLESS 第9話第3シェルター (情報:しょぼいカレンダー)

★★★★ 東京マグニチュード8.0 ＃11 「悠貴へ…」

Posted on 2:19
Filed Under アニメ感想 | Leave a Comment | TrackBack | Share on Tumblr

[最終回]最初、気楽な防災アニメかと思っていたけど、中盤かなりの重苦しい展開で、最後は感動的だった。
メールの演出は涙腺破壊のやばさ。

・「いよいよ最終回！『東京マグニチュード8.0』が描いたリアル（前編） - 日刊サイゾー」
・「いよいよ最終回！『東京マグニチュード8.0』が描いたリアル（後編） - 日刊サイゾー」

参考リンク: 東京マグニチュード8.0 第11話悠貴へ… (情報:しょぼいカレンダー)

mixiからマイミク日記の画像入りRSSを作るmixirss

Posted on 2009/09/18 (金) 22:35
Filed Under 技術 | Leave a Comment | TrackBack | Share on Tumblr

mixiはRSSも吐いてなくて、とても巡回効率が悪いんでmixiのマイミク新着日記からRSSを吐くスクリプトをこしらえた。

【便利な機能】
・新着日記をRSSにする
・写真をローカルにミラーして、ミラー先のURLに書き換えるのでRSSでも写真が見れる

githubとか使ったことないんでそのままアーカイブ置いただけ。

2010-02-12 更新
http://www.dcc-jpl.com/soft/mixirss/mixirss_20100112.tar.gz

展開して自分のサーバにインストールしてあげればかなりらくちんに使えるようになるはず。
みきし日記には公開範囲限定してる人もあるようなんで、、RSSをそのままGoogle Readerに登録しちゃったりすると何かとめんどくさいことになるかもしれないんでご注意を。
ウチではmixirssスクリプトとRSSリーダーのfreshreaderを同じサーバで動かしてる。

追加モジュールを入れるんでConfig::Pitを使って書けばおしゃれだったかもしれない。

【使い方】
・WWW::Mixi::Scraperモジュールが入ってなかったらインストールする。
・getrss.plの$mixi_emailと$mixi_passwordを自分のアカウントにする
・getrss.plの$img_dir、$replaceurl、$mydbを所定のパスやURLにする。
・getrss.plをサーバに設置してcronで回す。
・diaryrss.cgiの$mydbをgetrss.plのpathと同じものに書き換える。
・diaryrss.cgiをwebサーバから見えるところにおいてRSSリーダに登録する。

以下、アーカイブと同じソース。

PLAIN TEXT

PERL:

#!/usr/bin/perl
use WWW::Mixi::Scraper;
#use strict;
use utf8;
use Encode;
#use Data::Dumper;
use XML::RSS;
use LWP::Simple;
use File::Basename;
use File::Path;
use DBI;
# ログイン情報
my $mixi_email = 'yourmiximail@example.com'; # メールアドレス
my $mixi_password = 'yourmixipassword'; # パスワード
# 各種設定
our $img_dir = "/home/path/public_html/cgi/mixirss/mirror/";
our $replaceurl = "http://www.example.com/url/to/cgi/mixirss/mirror/";
our $mydb = "/home/path/to/mixirss/diary.db";
my $debug = -1 ;
#my $eucjp = find_encoding('eucjp');
#my $rssfile = "/home/jplcom/public_html/tmp/protect/cgi/mixirss/diary.rdf";
#DB初期化
unless (-e "$mydb"){
if ($debug == 0){
print "File not exist:$mydb\nCreate DB.\n";
}
&initdb;
}
my $mixi = WWW::Mixi::Scraper->new(
email => $mixi_email, password => $mixi_password ,
mode => 'HTML'
);
my @list = $mixi->new_friend_diary->parse;
my $diary = "";
my $timestump = `date +%Y-%m-%dT%H:%M:%S`; chomp($timestump);
my $description = "";
my $title = "";
my $thumurl = "";
my $mixidescription = "";
my $imageserver = "";
my $now = `date "+%Y-%m-%d %H:%M:%S"`; chomp($now);
my $id = "";
my $owner_id = "";
my $link = "";
#ヘッダ設定
my $rss = new XML::RSS (version => '1.0');
$rss->channel(
title => "mixi diary rss",
link => "http://mixi.jp/new_friend_diary.pl",
description => "マイミクシィ最新日記",
dc => {
date => "$timestump+09:00",
subject => "マイミクシィ最新日記",
creator => 'sorshi@dcc-jpl.com',
publisher => 'sorshi@dcc-jpl.com',
language => 'ja',
},
syn => {
updatePeriod => "hourly",
updateFrequency => "1",
updateBase => "1901-01-01T00:00+00:00",
},
);
$rss->add_module(prefix=>'my', uri=>'http://purl.org/my/rss/module/');
# ここをループ
#-------------------------------------------------------
foreach $item (@list){
#for ($j= 0; $j<3; $j++){
#$item = $list[$j];
$link = $item->{'link'} ;
if ($link ne ""){
if(&isthisnewdiary("$link")){
if ($debug == 0){
print encode("utf8", "Diary exist;ski@:$link \n");
}
}else{
$diary = $mixi->parse($item->{'link'});
$description = "";
$title = "$diary->{'subject'} / $item->{'name'}"; # タイトル / 作者
#写真ミラー&挿入
for ($i=0;$i<3;$i++){
if ($diary->{'images'}[$i]{'thumb_link'} ne ""){
get_mirror($diary->{'images'}[$i]{'thumb_link'});
$thumurl = $diary->{'images'}[$i]{'thumb_link'};
$thumurl =~ s|http://|$replaceurl|;
$description .= "<a href=\"$diary->{'images'}[$i]{'link'}\"><img src=\"$thumurl\"/></a>";
}#if
}#for
#本文画像ミラー処理
$mixidescription = $diary->{'description'};
while($mixidescription =~ m|http://ic.*?.mixi.jp/.*?\.jpg|){
$mixidescription =~ m|http://ic.*?.mixi.jp/.*?\.jpg|;
get_mirror($&);
$imageserver = $& ;
$imageserver =~ m/ic.*?.mixi.jp/;
$imageserver = $& ;
$mixidescription =~ s|http://ic.*?.mixi.jp|${replaceurl}$imageserver|;
}
$description .= $mixidescription;
if ($debug == 0){
print encode("utf8", $item->{'link'});
print "\n";
print encode("utf8", $item->{'name'});
print "\n";
print encode("utf8", $item->{'time'});
print "\n";
print encode("utf8", $item->{'subject'});
print "\n";
print encode("utf8", $diary->{'level'}->{'description'});
print "\n";
print encode("utf8", $diary->{'subject'});
print "\n";
print encode("utf8", $description);
print "\n";
}
#SQLite追加
$link = $item->{'link'} ;
($id,$owner_id) = &getids("$link");
if ($debug == 0){
print encode("utf8", "IDs : $id,$owner_id\n");
}
$now = `date "+%Y-%m-%d %H:%M:%S"`;chomp($now);
&sqlitedbadd("$id","$owner_id",$diary->{'subject'},$item->{'link'},"$description",$item->{'time'},$item->{'name'},"$now");
#RSS追加
$rss->add_item(
title => $title ,
link => $item->{'link'},
description => $description,
dc => {
date =>$item->{'time'},
creator => $item->{'name'},
},
);
}#endif isthisnewdiary("$link"
}#end if $item->{'link'} ne ""
}# end foreach
#-------------------------------------------------------
$rss->add_item (title=>$title, link=>$link, slash=>{ topic=>$topic });
#rdfファイル書き込み
my $rssdate ;
$rssdate = $rss->as_string;
#Jcode::convert(\$rssdate, 'utf8');
$rssdate = encode("utf8", $rssdate);
#open(RSS,"> $rssfile") || die "File Cannot create!";
#print RSS "$rssdate";
#close (RSS);
#
sub get_mirror{
my $url = shift;
my $localfile = $url;
my $base_name;
my $dir;
$localfile =~ s|http://|$img_dir|;
#ファイルが既にあるか見る
if(-e $localfile){
#print "exist\n";
}else{
#なければ
#print "DL\n";
( $base_name, $dir ) = fileparse( $localfile );
if (-d $dir){
}else{
mkpath($dir);
}
#げっと
getstore($url,$localfile);
}
#print "$base_name \n$dir \n$url \n$localfile\n";
}#end sub get_mirror
sub sqlitedbadd{
my $id = $_[0];
my $owner_id = $_[1];
my $title = $_[2];
my $link = $_[3];
my $description = $_[4];
my $time = $_[5];
my $name = $_[6];
my $dataadded = $_[7];
my $hst;
my $hDB;
my $retval;
if ($debug == 0){
print encode("utf8", "SQLite INSERT: $id ; $owner_id ; $title; $link; $description; $time; $name; $dataadded \n");
}
$hDB = DBI->connect(
"dbi:SQLite:dbname=$mydb","","",{PrintError=>0}
);
if(!$hDB){
print "$DBI::errstr \n";
exit;
}
$hst = $hDB->prepare( "INSERT INTO diary VALUES(?,?,?,?,?,?,?,?)" ) or die "Cannot prepare:$!";
if($hst){
$retval = $hst->execute($id,$owner_id , $title, $link , $description , $time , $name , $dataadded );
if(!$retval){
print $hDB->errstr . "\n";
#exit;
}
}else{
# エラー処理
print $hDB->errstr . "\n";
# exit;
}#end if
}#endsub sqlitedbadd
sub getids($link){
use URI;
my $uri = URI->new($link);
if ($debug == 0){
print encode("utf8", $link ."\n");
print encode("utf8", $uri->query ."\n");
}
#print $uri->query . "\n";
my @param = "";
@param = split(/&/,$uri->query);
#print Dumper (\@param);
my @ids = "";
@ids = split(/=/,$param[0]);
my $id = $ids[1];
@ids = split(/=/,$param[1]);
my $owner_id = $ids[1];
#print "$link\n";
if ($debug == 0){
print encode("utf8", "$id,$owner_id \n");
}
return ($id,$owner_id)
}#endsub getids
sub isthisnewdiary($link){
my $hDB ;
my $sql = "";
my $id;
my $owner_id;
my $envph;
my @ref;
my $retval;
if ($link ne ""){
($id , $owner_id ) = &getids("$link");
$hDB = DBI->connect(
"dbi:SQLite:dbname=$mydb","","",{PrintError=>0}
);
if(!$hDB){
print "$DBI::errstr \n";
exit;
}
$envph = $hDB->prepare("SELECT name,title ,link ,time ,dataadded FROM diary WHERE id = ? AND ownerid = ?");
$retval = $envph->execute($id,$owner_id);
if(!$retval){
print $hDB->errstr . "\n";
#exit;
}
while (@ref = $envph->fetchrow_array ){
#print Dumper (\@ref);
if ($debug == 0){
print ( "$ref[0],$ref[0],$ref[1],$ref[2],$ref[3],$ref[4]\n");
}
}#end while
if ($envph->rows == 0) {
return (0);
}else{
return (-1);
}
}#end if
}#end sub isthisnewdiary
sub initdb(){
my $hst;
my $hDB;
unless (-e "$mydb"){
open DB, ">>$mydb" || die $!;
close DB;
$hDB = DBI->connect(
"dbi:SQLite:dbname=$mydb","","",{PrintError=>0}
);
if(!$hDB){
print "$DBI::errstr \n";
exit;
}
my $sql = "
create table diary (
id int8 PRIMARY KEY ,
ownerid int8,
title text,
link text,
description text,
time DATETIME,
name text,
dataadded DATETIME
);
";
$hst = $hDB->do($sql);
if(!$hst){
print $hDB->errstr . "\n";
exit;
}
}#unless
}# end sub

PLAIN TEXT

PERL:

#!/usr/bin/perl
use DBI;
use strict;
#use Data::Dumper;
use utf8;
use Encode;
use CGI;
use XML::RSS;
our $mydb = "/home/path/to/mixirss/diary.db";
# test param
my $debug = -1 ;
my $hDB;
my $envph;
my $retval;
my @ref;
my $timestump;
my $rssdate ;
my $rsstitle;
#初期化
my $rss = new XML::RSS (version => '1.0');
print "Content-type: application/rdf+xml\n\n";
#DBread
$hDB = DBI->connect(
"dbi:SQLite:dbname=$mydb","","",{PrintError=>0}
);
if(!$hDB){
print "$DBI::errstr \n";
exit;
}
$envph = $hDB->prepare("SELECT id,ownerid,name,title ,link ,time ,description,dataadded FROM diary ORDER by time DESC LIMIT 30");
$retval = $envph->execute();
if(!$retval){
print $hDB->errstr . "\n";
#exit;
}
while (@ref = $envph->fetchrow_array ){
# @ref = decode("utf8", @ref);
#print Dumper (\@ref);
if ($debug == 0){
print ( "$ref[0],$ref[0],$ref[1],$ref[2],$ref[3],$ref[4]\n");
}
$rsstitle = "$ref[3] / $ref[2]";
#RSS追加
$rss->add_item(
title => decode("utf8", $rsstitle ),
link => decode("utf8", $ref[4]),
description => decode("utf8", $ref[6]),
dc => {
date =>decode("utf8", $ref[5]),
creator => decode("utf8", $ref[2]),
},
);
}#end while
# 最終更新日取得
$envph = $hDB->prepare("SELECT time FROM diary ORDER by time DESC LIMIT 1");
$retval = $envph->execute();
if(!$retval){
print $hDB->errstr . "\n";
#exit;
}
while (@ref = $envph->fetchrow_array ){
#print Dumper (\@ref);
if ($debug == 0){
print ( "$ref[0]\n");
}
$timestump = $ref[0];
}#end while
#build RSS
$rss->channel(
title => "mixi diary rss",
link => "http://mixi.jp/new_friend_diary.pl",
description => "マイミクシィ最新日記",
dc => {
date => "$timestump+09:00",
subject => "マイミクシィ最新日記",
creator => 'sorshi@dcc-jpl.com',
publisher => 'sorshi@dcc-jpl.com',
language => 'ja',
},
syn => {
updatePeriod => "hourly",
updateFrequency => "1",
updateBase => "1901-01-01T00:00+00:00",
},
);
$rss->add_module(prefix=>'my', uri=>'http://purl.org/my/rss/module/');
#rdfファイル書き込み
$rssdate = $rss->as_string;
$rssdate = encode("utf8", $rssdate);
print "$rssdate\n";
exit ;