2011年09月20日23:00 カテゴリ書評/画評/品評 奇跡も、魔法も、あるんだよ - 作品評 - 魔法少女まどか☆マギカ これが、真の魔法か。 魔法少女まどか☆マギカ (DVD/BD全6巻) [初出2011.04.24] 「最高」の「魔作」にして「最悪」の「法作」。その時視聴者は、かつてないほど大量の感動を手に入れるだろう。ボトムラインとして、今後は物語というものを、作品というものを、本作を観ずにして語れない。 以下、「視た」という前提で話を進める。ネタばれを避けたい人は[続きを読む]を押さないように。もっとも本作は遠からず古典となり、「好き嫌いはとにかくあらすじなら一応皆が知っている」ことを前提にできるようになるのだろうけど。 本作「魔法少女まどか☆マギカ」が示したのは、魔の真の姿であり、法の実の姿である。 魔とは、何か。 「よかれと願ってやっていることが、よからぬ方向にものごとを

2010年08月23日08:00 カテゴリLightweight Languages perl - Data::Decycle で悪循環を断とう! Data::Decycleというモジュールをリリースしたのでお知らせします。 /lang/perl/Data-Decycle/trunk - CodeRepos::Share - Trac dankogai's p5-data-decycle at master - GitHub Dan Kogai / Data::Decycle - search.cpan.org Perlは循環参照が苦手 有名な話ですが、Perlで循環参照を作ると、プログラムが終了するまでその分のメモリーは解放されません。 perlobj - search.cpan.org use strict; use warnings; { package Dummy; sub new

2010年08月12日09:45 カテゴリLightweight Languages perl - AnyEventで超速分散ダウンローダー これ見てたらついムラムラと。 Perl 非同期プログラミング 初出2010.08.11; 08.12 追記time perl mirrorget.pl cpan.yml http://www.cpan.org/src/perl-5.12.1.tar.bz2 # Stage 0: checking headers Elapsed: 0.358819961547852 sec. Last-Modified: Sun, 16 May 2010 22:40:16 GMT Content-Length: 12296076 URLs: http://ftp.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.12.1.tar.bz2

2010年08月06日21:30 カテゴリLightweight Languages書評/画評/品評 javascript - NANDで何でもやってみよう-1.まずは足し算から ゼロから学ぶ ディジタル論理回路 秋田純一 Make: Tokyo Meeting 5 で入手したこの「ゼロから学ぶディジタル論理回路」を読んでいたら、無性に作りたくなってきたので。 夏休みの課題にも手頃かも。 前口上 ここではJavaScriptを「なんちゃってHDL」として使うことにします。HDLよりはよっぽど高機能なので、ここでは以下の制約をもうけます。 NAND以外は(なるべく)使わない まあそれがこの企画の趣旨でもあるので。条件分岐すらなしです。複数ビットの表現のため、配列は使います。そうでないものはそうとわかるようにしておきます。 ゲートは関数として表現 JavaScriptでやる以上、当然ですね。

2010年08月04日13:00 カテゴリLightweight Languages perl - 勝手に添削 - ターミナル内で画像を表示するコマンド 面白い。 ターミナル内で画像を表示するコマンド - デー でもスクリプトが「重い」。 なんでaview起動するのにふつうにsystem()使わないで手でfork()しとんの? つーか、それ以前に一時ファイルって必要? というわけで書き直したらこうなった。 #!/usr/bin/env perl use 5.00801; use strict; use warnings; use Imager; my @cmd = qw/aview -reverse/; my $file = shift or die "usage: $0 image\n"; my $img = Imager->new(); $img->read( file => $fil

2007年04月23日22:45 カテゴリLightweight Languages perl - 万能なnewの書き方 Perl 5のOOは、慣れてしまうと簡単だ。 継承とか考えずに、普通にクラスを作りたければ、必要なのは以下の二行だけ。 package Klass; sub new { bless {} }; これだけでは何もできないので、とりあえずnameというアクセサーを追加してみる。これだけ。 sub name { my $self = shift; $self->{name} = shift if @_; return $self->{name}; } しかし、上の形式だと、継承をサポートしていない。だから、 package Klass; sub new { bless {} }; package Klass::Sub; our @ISA = qw/Klass/; # new

2010年07月16日01:15 カテゴリ書評/画評/品評Lightweight Languages perl - O'ReillyのiPhoneアプリ本からepubをぶっこぬく W00t! たった600円でオライリー本をiPadやKindleで読む。すてき。 - このブログは証明できない。 ところが、紙の本と比べてそれほど安くないんですね。iPhone版の600円はやはり魅力です。大丈夫。実はこのアプリからiPadで読めるepubを取り出すことができるんです。特殊なハックというわけではなく、オライリーのサイトでもやり方が書かれています。 Ebook Bundles - Getting The Most はてなブックマーク - samurai20000のbookmarkこれすごすぎる。ただ、やり方が面倒なので自動化したいとこ。 やりましょう。 できました。 #!/usr/bin/env p

2010年05月01日13:15 カテゴリLightweight Languages perl - 配列の∪と∩ これを解くためには、配列の∩(交わり、intersection)がわかればいいのですが… Perl Cookbook (English) Christiansen / Torkington [邦訳: Perlクックブック] perlかPHPで解決したいです。 複数(最大200程度)の配列があり、 それぞれ有している数字(それぞれ最大50程度)のうち、 二つ以上の値が同じ配列名を抜き出す。 という事をし.. - 人力検索はてな複数(最大200程度)の配列があり、 それぞれ有している数字(それぞれ最大50程度)のうち、 二つ以上の値が同じ配列名を抜き出す。 実にエレガントな方法が、Perl Cookbookに載っています。 以下、実例。 #!/usr/bin/perl use st

2009年10月22日15:30 カテゴリ弾本書評/画評/品評 #空気本_ - 小飼弾が選ぶ最強の100冊+1 やっとAmazonでも発売開始です。 空気を読むな、本を読め。 小飼弾 「空気を読むな、本を読め。」は本の本なので、当然本の紹介もしているのですが、残念ながら本はクリックできません。 というわけで、同書の「小飼弾が選ぶ最強の100冊+1」を以下にリンク化しておきます。 厳密には百冊ではなく百点。百というのはなかなか帯に短くたすきに長い数字なのですが、以下の観点で選別しました。 100というのは、なかなか難しい数です。全てを入れるには少なすぎ、ベストで決めるには多すぎる。ここでは今日危篤な私が明日死ぬとして、「404 Blog Not Found を継ぐ」と言った奇特な方に、「これ読んどけ」と100点渡すという状況を想定してみました。 リンクは、本blogに言及があればそこに、なけ

2009年10月01日18:00 カテゴリLightweight Languages書評/画評/品評 #perl #regexp - $utf8 =~ /.../i # の傾向と対策 というわけで、その傾向と対策を。 [Perl]UTF8-flagged strings affects regexps with the "i" modifier - use GFx::WebLog; Perlではutf8フラグ付きの文字列に対するuc/lc/"i"正規表現修飾子は非常に遅いのだが，H::F::Liteでは/iを使っているので，試しに/iを使わないようにしてみると，速度が改善した id:gfxの主張は、以下のようにして確かに確かめられる。 use strict; use warnings; use Benchmark qw/cmpthese timethese/; { use bytes; m

2009年07月06日14:30 カテゴリ書評/画評/品評Lightweight Languages 教科書はいらない - 書評 - PHP逆引きレシピ 翔泳社片岡様より献本御礼。 PHP逆引きレシピ 鈴木憲治 / 安藤建一 / 山田直明 / 八木照朗 / 山本義之 / 河合勝彦 ある意味実にPHP的な一冊。PHP本は、これ一冊あれば十分だと強く感じた。 PHPを使うにしても、使わないにしても。 本書「PHP逆引きレシピ」は、「PHPでプログラミングを習う」のではなく、「PHPで動くWebサイトを作る」に徹した一冊。PHPは後者に特化した言語である故に、前者には徹底的に向かない。本書を読めば、PHPを全く知らないプログラマーにもそれがわかるし、PHPを日時使っている人も、そのことが改めてわかるはずだ。 目次 - | PHP逆引きレシピ オフィシャルサポート より 第1章　準備 1.1　サー

2009年07月07日03:30 カテゴリMathLightweight Languages C - でも一番右端の立っているビット位置を求めてみた 素晴らしい。 2009-07-04 - 当面C#と.NETな記録 問題の説明はここまでにして、コードの紹介です。Hacker's delight のコードより4〜5倍速く、そして、イミフ加減が半端じゃない！これ一つで 64bit 値以下のすべての値に対応できます。 でも、実際にどれくらい威力があるか試してみたかったのでCに移植してみた。意外な結果が出ております。 0x03F566ED27179461ULL まずは黒魔術。より黒魔術っぽくしてみました。 typedef unsigned long long U64; #define HASH 0x03F566ED27179461ULL static int ntzhash[64]; void i

2009年03月03日19:00 カテゴリLightweight Languages perl - EncodeでXSSを防ぐ 良記事。 第7回■文字エンコーディングが生み出すぜい弱性を知る：ITpro だけど、問題点のみ具体例があって、対策にないのが片手落ちに感じられたので、その点を補足。 結論だけ言ってしまえば、Perlなら以下の原則を守るだけです。 404 Blog Not Found:perl - Encode 入門 すでにOSCONでもYAPCでも、あちこちそちこちでこの基本方針に関しては話したのですが、ここ 404 Blog Not Found でも改めて。 Perl で utf8 化けしたときにどうしたらいいか - TokuLog 改め だまってコードを書けよハゲ入り口で decode して、内部ではすべて flagged utf8 で扱い、出口で encode する。これが

2009年02月13日16:00 カテゴリTipsLightweight Languages perl - Mac OS X - perlをDIYする 気がつかなかった。 bulknews.typepad.com: Mac OS X Security Update 2009-001 might break your Perl (CPAN) A couple of my friends on IRC have told me this, and since I'm using 10.4.11 I couldn't verify, but the latest Mac OS X Security Update 2009-001 apparently breaks your Perl, if you are using Mac OS X 10.5 (Leopard) and are using

2009年06月15日16:30 カテゴリLightweight Languages javascript - にKanconvitを移植してみた コードが以外にコンパクトだったので、JavaScriptにも簡単に移植できそうだなと思ったら、あっという魔に出来上がったので。 [を] 簡体字と日本語漢字の相互変換ツール Kanconvit を公開 Hack部（ハック部）の合宿で、中国語の簡体字と日本語漢字の相互変換ツール Kanconvit を作りました。 /lang/javascript/kanconvit/trunk ? CodeRepos::Share ? Trac Demo: 漢字 中華料理協議会 简体字 中华料理协议会 DHTML Source Bookmarklets Kanconvitしたいページを開いた状態で使って下さい。 漢字から簡体字 简体字から汉字 工夫のしどころ 変換

2009年06月15日07:00 カテゴリLightweight Languages perl - use utf8; #って何だ? id:otsuneに建設予定フラグがたてられていたので。 冬通りに消え行く制服ガールは、夢物語にリアルを求めない。 - subtech Perl の utf8 関係が未だ全く理解できない。わからないことがわからないので整理 use utf8はいつフラグをたてるか use utf8 しててもフラグたたないことがある…… これは、以下の実例を見ていただくのが一番よいだろう。 #!/usr/bin/perl use strict; use warnings; use utf8 (); sub check_flag{ my $str = shift; print qq("$str" ), utf8::is_utf8($str) ? 'is' : 'IS NOT',

2009年06月08日14:30 カテゴリLightweight Languages perl - use encoding; #は黒歴史 ぎゃあぁぁ length関数で文字列の長さを求める - perl初心者BLOG - Hatena::Group::Perl 日本語の文字数を正確に求めたい場合、use encodingを指定する use encoding;は、jperlなど、かつて存在したL10Nされたperl用に書かれたレガシースクリプトを、モダンperlで動かすときのためのおまじないです。こういう目的で利用すべきではありません。 このあたりのことは、以前 404 Blog Not Found:perl - no encoding; # whenever possible でも書いたのですが、大事なことなのでまた書きます。 スクリプトはUTF-8で書き、use utf8;する のがモ

2009年05月22日20:30 カテゴリLightweight Languages perl - SayKanji + Yahoo API = itte.pl というわけで、私も作ってみた。 SayKana - Mac用音声合成プログラム saykanjiコマンドを定義して漢字仮名混じり文を読み上げる - ザリガニが見ていた...。 % itte.pl '小飼弾ってちゃんと読んでくれるよ！' % itte.pl 'Englishが混じってもOKだよ！' 以下、ソース。 #!/usr/local/bin/perl # # $Id: itte.pl,v 0.1 2009/05/22 10:12:26 dankogai Exp dankogai $ # use strict; use warnings; use URI; use LWP::Simple; use XML::Simple; my

2009年05月13日13:30 カテゴリiTech findを極めたかったら、statを押さえよ find(1)ねたというのは、定期的にblogosphereを賑わせるものだし、それはそれでよいし、私自身いくつか書いているのだけど.... findを極める！ - IDEA*IDEA 〜 百式管理人のライフハックブログ 〜 タグ「find」を含む新着エントリー - はてなブックマーク 404 Blog Not Found:perl - the best friend of find(1) 404 Blog Not Found:勝手に添削 - find(1) さすがに何年もblogosphereにいると、いいかげん見飽きてくる。ましてや「極めたい」ともなると、findばっか見ていても絶対無理なのだし。 というわけで、findとは何かを改めて説明したあと、その背後にあるstatを抑えてみること