タグ

ブックマーク / dankogai.livedoor.blog (20)

  • Windowsという名の薄皮一枚 : 404 Blog Not Found

    2014年03月24日23:00 カテゴリEcosystemArt Windowsという名の薄皮一枚 Unixという考えかた Mike Gancarz / 芳尾 桂 訳 [原著: The Unix Philosophy] 寝込みうどんになりながらiPadで以下を読んだら熱がぶりかえしたので。 Macの良さがわからなすぎて、死にたい MacWindowsに勝る理由 ~Mac vs Windows宗教戦争歴史をひもとく~ いや比べるべきは WindowsMac じゃないのよ。 Windows と *nix。 以下、NASDAQでTechnology Companyに分類されている先週末の時価総額上位20社を塗り分けてみた。 SymbolMarket Cap. (B$) 1AAPL475 2GOOG398 3MSFT333 4IBM194 5FB171 6ORCL169 7QCOM13

    Windowsという名の薄皮一枚 : 404 Blog Not Found
    bird_dip_jp
    bird_dip_jp 2014/03/25
    Mac を *nix 代表にするのはちょっと勘弁してね。Windows には未来がないかも知れないけど、Mac には過去が無い(切り捨てる)からね。
  • perl - 最速のUTF-8処理法 : 404 Blog Not Found

    2013年03月04日14:45 カテゴリTipsLightweight Languages perl - 最速のUTF-8処理法 Perl Cookbook (English, Kindle Ed.) Christiansen / Torkington [邦訳: Perlクックブック] というわけで解説。 2013/03/04:Unicode::UTF8 がガチ爆速すぎる - bayashi.net encode より decode のが差が大きい感じ。encode だけだと、文字列長くなると Encode の方が速いっぽい。 まずは改めて検証してみましょう。 https://gist.github.com/dankogai/5079930 確かにその通りになっています。Unicode::UTF8はEncodeはおろかPerl組み込みのutf8::decodeより高速なのか(文字列をコピ

    perl - 最速のUTF-8処理法 : 404 Blog Not Found
  • 実は誰もが知っている「AppleがSonyになれた本当の理由」 : 404 Blog Not Found

    2012年03月12日07:45 カテゴリArt 実は誰もが知っている「AppleがSonyになれた当の理由」 設問が間違っていては、たとえその設問に対する答えが正しくとも意味がない。 Life is beautiful: 誰も言いたがらない「Sony が Apple になれなかった当の理由」 そろそろ、「会社は誰のためにあるか」という根の部分から見直さないと日の家電メーカーは世界で戦えない。TPP で市場を開放する前に、しておくべきことは沢山ある。 それではなぜHPもDellもNokiaも、MicrosoftですらGoogleですらAppleになれなかったのかを問わねばならないだろう。 もっと的確な設問があるではないか。 なぜAppleはSonyになれたのか? どれほどAppleが--昔日の--Sonyになりたかったのか、どれほどJobsAppleをSonyにしたかったのかの証

    実は誰もが知っている「AppleがSonyになれた本当の理由」 : 404 Blog Not Found
    bird_dip_jp
    bird_dip_jp 2012/03/12
    逆に利用者としての企業も態度を改めるべきだと思う。
  • 備忘録 - HP ProLiant MicroServer + FreeBSD + ZFS : 404 Blog Not Found

    2011年06月19日23:30 カテゴリTipsiTech 備忘録 - HP ProLiant MicroServer + FreeBSD + ZFS HP ProLiant MicroServer ヒューレット・パッカード Amazonで24,800円だったので半周遅れぐらいで買ってみた。 いいね! コバQことCobalt Qube復活した感じ。 とはいえ、ある程度工夫しないとFreeBSD + ZFSでは使いづらい。半周遅れだけあって、すでに先人の苦労の後を追検証していくだけでよかったのだけど。 hp proliant microserver freebsd - Google 検索 追加部品 PC3-10600 DIMM 4GB x 2枚セット 8GBで6000円ちょっと?そんな価格で大丈夫か? USBメモリ(高速タイプ) これが起動「ディスク」。右のようにして使う。8GBがちょうど

    備忘録 - HP ProLiant MicroServer + FreeBSD + ZFS : 404 Blog Not Found
  • perl - 勝手に添削 - utf8環境でperl::Jcodeのtrが使えないとき : 404 Blog Not Found

    2011年06月10日20:30 カテゴリ perl - 勝手に添削 - utf8環境でperl::Jcodeのtrが使えないとき CPANモジュールガイド 冨田尚樹 前世紀まではそれで正しかったのですが… utf8環境でperl::Jcodeのtrが使えないとき - satoru.netの自由帳 要はtrの中の文字のエンコードをeucにしないとだめらしい。なーんだ単純 21世紀ではEncodeを使っていただいたく。 Perl 5.8.1以降であれば、標準のPerlだけで出来ます。 こんな感じに。 use strict; use warnings; use utf8; binmode STDOUT, ':utf8'; my $str = 'あいうえおぁぃぅぇぉ'; print $str, "\n"; $str =~ tr/ぁ-んヴ/ァ-ンヴ/; print $str, "\n"; ポイント

    perl - 勝手に添削 - utf8環境でperl::Jcodeのtrが使えないとき : 404 Blog Not Found
  • javascript - jslinuxをローカルで : 404 Blog Not Found

    2011年05月19日09:00 カテゴリ javascript - jslinuxをローカルで 先週末から体調不良なので、今話題のjslinuxと戯れてみた。 http://bellard.org/jslinux/ ブラウザでJavaScriptが動く時代がやってきた! - 葉っぱ日記 もとのディスク容量が少ないので、適当な母艦を用意して、こんな感じ で新しいディスクイメージ作って、CocProxy や Fiddler の AutoResponder を使って root.bin へのリクエストをローカルのファイルに差し替えてやれば、好きなファイルも入れられますね。 それだと環境を整えるのが面倒なので、以下のようにして必要なファイルを全てローカルにもってきてもOKだった。 index.html linuxstart.bin vmlinux26.bin root.bin あとは root.b

    javascript - jslinuxをローカルで : 404 Blog Not Found
  • perl - から未だに目を離せない四つ、あるいはただ一つの理由 : 404 Blog Not Found

    2011年01月31日22:30 カテゴリCultureLightweight Languages perl - から未だに目を離せない四つ、あるいはただ一つの理由 やはりお鉢がまわってきたので。 回答希望。ラクダかわいい以外で。@dankogai さんとか? 「〜今あえてPerlを取る理由というのが個人的には思い浮かばない。生粋のPerl使いならきっと流暢な解答を用意してくれると思う。」 プログラミング言語人気TOP10の簡易解説 http://ht.ly/3NaTkless than a minute ago via HootSuite佐藤 治男 HalSato プログラミング言語人気TOP10の簡易解説用途的にPythonRubyと被るので、今あえてPerlを取る理由というのが個人的には思い浮かばない。生粋のPerl使いならきっと流暢な解答を用意してくれると思う。 ベタ プログラミ

    perl - から未だに目を離せない四つ、あるいはただ一つの理由 : 404 Blog Not Found
  • 神は細部に宿る - 書評 - まつもとゆきひろ コードの世界 : 404 Blog Not Found

    2009年05月25日23:00 カテゴリ書評/画評/品評Code 神は細部に宿る - 書評 - まつもとゆきひろ コードの世界 「勝間なのに、なんで献こないかな」と思ってたらMatzでした:)。というわけで購入。 まつもとゆきひろ コードの世界 まつもとゆきひろ イイ!イイよこれ! けど、すごくわかりづらいイイ!であるというのも確か。残念ながら勝間と違って、書はプログラムを書ける人でないと読むこともままならないので。 このをどれだけイイ!と思えるかで、プログラマーとしての発展段階を測れる、そんな一冊だ。blogのプログラム関連の記事を、飛ばさず読んでらっしゃる方であれば、絶対楽しめます。 書「まつもとゆきひろ コードの世界」は、まつもとゆきひろのではあるが、プログラミング言語Rubyではない。「レイヤー」で言うと、それより一段上のである。強いてRubyとして

    神は細部に宿る - 書評 - まつもとゆきひろ コードの世界 : 404 Blog Not Found
    bird_dip_jp
    bird_dip_jp 2009/05/26
    プログラミングの本は一般書以上に売れているような気がするけど。単価高いし。
  • デバッグより重要なもの : 404 Blog Not Found

    2009年04月02日16:00 カテゴリCodeArt デバッグより重要なもの この話題、すっかり乗り遅れてしまった。 2009-03-22 - 未来のいつか/hyoshiokの日記 プログラミング入門書では、デバッグについて、ほとんど議論されていないし、仮にふれられていても、おざなりな方法というか、かなり邪険にあつかわれていたりする。プログラマの多くの時間がデバッグについやされていたとしてもだ。 あえていわせていただく。コードはデバッグできるだけはるかにましなのだ、と。printfを使うかどうかなんぞ、その問題と比べれば屁ですらないのだと。 デバッグよりもはるかに重要なもの、それはデータ構造の選定。 ここで一歩間違えると、バグが仕様化し、デバッグどころかバグにあわせてプログラムを書かねばならぬ羽目になる。 その最も顕著な例が、Unicodeだろう。最初の設計を間違えたおかげで、最新のソ

    デバッグより重要なもの : 404 Blog Not Found
    bird_dip_jp
    bird_dip_jp 2009/04/02
    テキストでも COBOL 風な固定長詰め込みは勘弁してね
  • perl - で無名再帰関数再び : 404 Blog Not Found

    2009年02月15日10:30 カテゴリLightweight Languages perl - で無名再帰関数再び これまでのあらすじから。 Perl で JS の arguments.callee 的なことしようと思ってハマった - IT戦記 それDevel::Caller でできるよ - TokuLog 改め だまってコードを書けよハゲ 404 Blog Not Found:perl - で(Recall()|arguments.callee()|&?BLOCK()) PerlでRecallの話 - Unknown::Programming これ、それぞれに欠点がありました。Devel::CallerはXSに依存する。弾方式はソースフィルター、id:fbis方式はいちいち自分自身をスタックに積み直している... この欠点を全て取り除く方法を発見しました。 [Run via code

    perl - で無名再帰関数再び : 404 Blog Not Found
  • perl - open my $fh, "comand |"; # はモダンじゃない : 404 Blog Not Found

    2009年02月10日01:00 カテゴリLightweight Languages perl - open my $fh, "comand |"; # はモダンじゃない モダンPerl入門 牧大輔 「モダンPerl入門」発売記念ということで、同書を補足するentryを。 同書でちょっと残念だったのが、[5.2 外部コマンドの実行]。あまりモダンではないのだ。 P. 141 system("/sbin/wget", "http://example.com"); これはいいのだが、以下がちょっとまずい。 my $output = `/bin/ls tmp`; open(my $fh, '| cat -v'); これ、何がまずいか、というと、コマンド実行の際に/bin/shを使ってしまうのだ。そのおかげでcommand < from > to 2&>1のようなリダイレクトも使えるなどの利点もあ

    perl - open my $fh, "comand |"; # はモダンじゃない : 404 Blog Not Found
  • 404 Blog Not Found:gOS = "Gubuntu"; # *ubuntuいろいろ

    2008年08月23日04:30 カテゴリArtLightweight Languages gOS = "Gubuntu"; # *ubuntuいろいろ 気分転換にgOSを試してみた。 これ、気に入ったよ。オリジナルUbuntuよりいいかも。 これなら、確かに「Windows税フリー」な安価電脳にぴったしだ。 こちらが、その結果。 Google Gadgetを OS X の Dashboard 代わりに使うというのはいいアイディアだと思う。 とはいっても、実は gOS はほとんど Ubuntu で、違いは文字通り Skin Deep である。見比べてみればわかる。中身は Ubuntu 8.04 そのものである。 gOSとUbuntuの違いより、Ubuntu/Kubuntu/Xubuntuの違いの方が大きいのだ。これら三つはそれぞれデスクトップ環境が Gnome, Kde, そして Xfce

    404 Blog Not Found:gOS = "Gubuntu"; # *ubuntuいろいろ
  • perl - no accessor; # だって遅いんだもん : 404 Blog Not Found

    2008年07月08日15:30 カテゴリLightweight Languages perl - no accessor; # だって遅いんだもん まずはDCONWAY先生のお言葉から。 Perl Best Practices Damian Conway [邦訳:Perlベストプラクティス] Always use fully encapsulated objects. オブジェクトは常にカプセル化して用いよ これはperlの常識というより、OOの常識であるのだけど、これがperlの実装と重なることにより、perlにおいては他の言語よりも作法を破りたくなるインセンティヴが大きいのは否めない。 カプセル化のコストが、あまりに大きいのだ。 以下は、ハッシュ、ハッシュリファレンス、そしてハッシュリファレンスによるオブジェクトの性能をベンチマークしたものだ。最初が初期化、次が accessor と

    perl - no accessor; # だって遅いんだもん : 404 Blog Not Found
  • perl - Encode-2.26 Released! : 404 Blog Not Found

    2008年07月02日06:00 カテゴリLightweight Languages perl - Encode-2.26 Released! Encode 2.26 を Release したのでお知らせします。 /lang/perl/Encode/trunk - CodeRepos::Share - Trac Dan Kogai / Encode - search.cpan.org http://www.dan.co.jp/~dankogai/cpan/Encode-2.26.tar.gz 大きなfixはありません。どちらかというと利用時よりもmakeの時のエラー対策です。 慌ててUpdateする必要はないかと思われますが、念のため。 Dan the Encode Maintainer Folks, I have just released Encode-2.26. Very minor

    perl - Encode-2.26 Released! : 404 Blog Not Found
  • use Safe; # XS知らなくても大丈夫! : 404 Blog Not Found

    2008年06月30日16:45 カテゴリLightweight Languages use Safe; # XS知らなくても大丈夫! さすがにこの目的のためだけにXS Hackというのは、ハエ退治にパトリオットミサイル撃つようなものなので、キンチョールも紹介しておきたく。 PL_check hack - daily dayflower ゴール #!/usr/bin/perl eval 'print "Hello ' . $ARGV[0] . '!\n"'; とか危険ですよねー*1。こんな機能があるなんてけしからん。ですので,eval の実行を抑制するモジュールを書いてみました。 そのためには、Safeモジュールを使います。Perl 5.02からCOREに入っている由緒あるモジュールです。Malcolm Beattie がBのフレームワークを作った理由の一つが、これを可能にすることでした。

    use Safe; # XS知らなくても大丈夫! : 404 Blog Not Found
  • perl - use Carp; # warn() と die() だけじゃなくて : 404 Blog Not Found

    2008年06月30日04:00 カテゴリLightweight LanguagesTips perl - use Carp; # warn() と die() だけじゃなくて 以下のエラー処理の方法にちょっと口を挟みたくなったので。 エラー処理を行う。 - サンプルコードによる Perl 入門 warn() vs. die() まず、warn()の使い方。エラーに対して使ってはいけません。warnはその名の通り、あくまでもエラーではなく警告です。エラーの際にはdie()を使わなければなりません。 警告とエラーの違いですが、警告は「続けて処理してもいいけど、これはあなたの意図ではないかもしれません」という場合、エラーは「このままでは処理を続けられません」という場合です。 たとえばperlの場合、抜けた引数はundefなので、数値としては0、文字列としては''として解釈されます。それらをデフ

    perl - use Carp; # warn() と die() だけじゃなくて : 404 Blog Not Found
  • 404 Blog Not Found:perl - Encode 入門

    2008年04月09日01:00 カテゴリLightweight Languages perl - Encode 入門 すでにOSCONでもYAPCでも、あちこちそちこちでこの基方針に関しては話したのですが、ここ 404 Blog Not Found でも改めて。 Perl で utf8 化けしたときにどうしたらいいか - TokuLog 改め だまってコードを書けよハゲ 入り口で decode して、内部ではすべて flagged utf8 で扱い、出口で encode する。これがすべてです!とにかくこの基方針をまもっていれば幸せになれます。ここでは、EUC-JPでエンコードされたファイル中の「小飼弾」「こがいだん」「コガイダン」「Kogai Dan」を正規表現で書き換えて標準出力にEUC-JPで出力するプログラムを例にとって説明します。 decode() then encode(

    404 Blog Not Found:perl - Encode 入門
  • perl - モジュールと%INC : 404 Blog Not Found

    2008年02月22日23:30 カテゴリLightweight Languages perl - モジュールと%INC うむむ、ちょっとload averageが高い日日が続いたせいか、久々に熱が。 こういう時にはこういうあまり心身を使わないネタを。 Perl モジュールのありかを調べる perlwhere - Tociyuki::Diary モジュールのパスをてっとり早く見つけるには、コア・モジュールの Module::Build::ModuleInfo が便利です。 Module::Buildがコア入りしたのは5.10からなので、他の方法を紹介しつつ、特殊変数%INCの紹介などを。 まず、モジュールのありかを手っ取り早く調べる方法としては、 % perldoc -ml が使える。PODが含まれてなくてもOK。 しかし、中級以上の perl monger を目指すのであれば、%INCの

    perl - モジュールと%INC : 404 Blog Not Found
  • perl - HTTP::Daemonできみにも書けるWebサーバ : 404 Blog Not Found

    2006年11月13日17:45 カテゴリLightweight Languages perl - HTTP::Daemonできみにも書けるWebサーバ これにインスパイヤされて。 PythonTwisted できみにも書ける Web サーバ 誰でも比較的簡単に Web サーバを書くことを可能にするのが PythonTwisted というフレームワークの組合せです。Pure Perlで書かれたWeb Serverはそれこそ山ほどあるのですが、実はLWPにもサーバーを簡単に実装するModuleが用意されていて、それがHTTP::Daemonです。 例えば、ブラウザのリクエストをおうむ返しにするサーバーは、以下のとおりとなります。 #!/usr/local/bin/perl -T use strict; use warnings; use HTTP::Daemon; use HTT

    perl - HTTP::Daemonできみにも書けるWebサーバ : 404 Blog Not Found
  • 404 Blog Not Found:perl - utf8::is_utf8("\x{ff}") == 0

    2008年02月18日10:00 カテゴリLightweight Languages perl - utf8::is_utf8("\x{ff}") == 0 ちょうどいい機会なので、Perl 5.8以降におけるutf8フラグの立ち方を。 unknownplace.org - 2008/02/17 - utf8::is_utf8 ということで、"\x{6751}\x{702c}\x{5927}\x{8f14}" などというData::Dumper表記でかならずしも utf-8フラグがたつわけじゃない。ということがいいたかったんだと思うのだけれど、 \x{UUUUUU}とutf8 flag まずはクイズです。以下がどう出力されるかを答えなさい。 sub pfrag{ print utf8::is_utf8($_[0]) ? 1 : 0, "\n" } pfrag "Hell\xC3, worl

    404 Blog Not Found:perl - utf8::is_utf8("\x{ff}") == 0
  • 1