タグ

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

  • perl - LWP::UserAgentで進捗表示しつつダウンロード : 404 Blog Not Found

    2008年11月21日00:15 カテゴリLightweight Languages perl - LWP::UserAgentで進捗表示しつつダウンロード 後のデザートとして手頃なサイズの問題だったので。 Ruby Net::HTTP で進捗表示しつつダウンロードのメモ - 冬通りに消え行く制服ガールは、夢物語にリアルを求めない。 - subtech #!/usr/local/bin/perl # # $Id: lwp-callback-example.pl,v 0.1 2008/11/20 15:16:48 dankogai Exp dankogai $ # use strict; use warnings; use LWP::UserAgent; use File::Basename; my $uri = shift || die "$0 http://example.com/bi

    perl - LWP::UserAgentで進捗表示しつつダウンロード : 404 Blog Not Found
  • 出版大国ニッポン : 404 Blog Not Found

    2008年10月16日16:55 カテゴリ 出版大国ニッポン Buchmeseeでもらった新聞より。 部数ではなく点数だからなのか、USが意外に小さく、むしろUK が目立つ。日独はこの分野では大国であることがよくわかる。 カテゴリなしの他の記事

    出版大国ニッポン : 404 Blog Not Found
  • 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
    eiji8pou
    eiji8pou 2008/07/08
    速度の話。考えさせられる。メンテナンス性を取るか速度を取るか。
  • 幸福の第一原則 : 404 Blog Not Found

    2008年07月07日15:00 カテゴリLove 幸福の第一原則 見るに見かねたので。 はてなブックマーク - いつも結婚して良かったなぁと思ってる。 いつも結婚して良かったなぁと思ってる。 幸福の第一原則 人の幸福を奪うことは出来るが、 奪い取ることは出来ない。 You can destroy their happiness. You can never steal it. 来これで充分なはずだけど、不幸好きなお前らのために解説してやる。 人様の幸福にケチをつけるのはたやすい。「おまえ、この程度のことで幸福なの?」「お前は嬉しくても相手はどうよ?」「どうみても妄想ですありがとうございました」 それを押し進めて、人様の幸せの背景をブチ壊すのも簡単だ。富も名声も配偶者も、奪おうと思えばいくらでも奪える。「ミリオネア?ビリオネアじゃないんですか」「有名?ご当地で?」「『俺の嫁』?その程度で

    幸福の第一原則 : 404 Blog Not Found
  • perl - use warnings; # -w でなくて : 404 Blog Not Found

    2008年06月19日21:45 カテゴリLightweight Languages perl - use warnings; # -w でなくて 最近は、さすがにuse strict;されていない実践コードを目にすることもほとんどなくなってきたのだけど、まだ残っているのがuse warnings;利用。以下と併せて読んでいただけると幸いだ。 404 Blog Not Found:perl - use strict; # and be happy -w って何? warnings って何? まず、以下のプログラムを見てみよう。 #!/usr/local/bin/perl use strict; sub distance { my ( $a, $b ) = @_; return sqrt( $a**2 + $b**2 ); } print distance(@ARGV), "\n"; % p

    perl - use warnings; # -w でなくて : 404 Blog Not Found
    eiji8pou
    eiji8pou 2008/06/20
    バグをなくす努力をしよう。
  • 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
    eiji8pou
    eiji8pou 2008/02/18
    utf8フラグについて。いまいちよくわかっていなかったから、これは勉強になる。
  • 我々は歯車にあらず : 404 Blog Not Found

    2008年02月18日10:45 カテゴリArt 我々は歯車にあらず この「歯車」だが、いいかげんこの錆び切った表現をやめないか。 適応係数17♂ 「歯車になりたくない」なんて寝言言う暇があれば自分がどこの歯車になるか選んだ方が良い 今の世の中、主体はシステムなわけです。人間はみんな、システムに組み込まれた歯車にすぎない。たとえそれがdanさんであっても。 私はシステムに組み込まれているか? YES. 私は歯車か? NO. 歯車は、一度作られたら変わることは出来ない。自分が15歯の歯車で、お隣が30歯の歯車なら、お隣が1回転するごとに二回転する。壊れるか捨てられるかするまで、それは続く。それが歯車の役割であり、物の歯車ほどそれを上手にこなす人間は存在しない。 同じシステムの一部であっても、人間は違う。入力があって出力があるという点では歯車と共通しているが、入力も出力も選択することが出来る

    我々は歯車にあらず : 404 Blog Not Found
    eiji8pou
    eiji8pou 2008/02/18
    カコイイ
  • 美しいプログラムの美しくないソース : 404 Blog Not Found

    2006年12月19日17:00 カテゴリArt 美しいプログラムの美しくないソース 半分だけ同意。 304 Not Modified: プログラマの美意識 私にとって美しいプログラムとは、シンプルなプログラムのことです。なぜ半分だけ、かというと、美しくない状況をより美しくすることがプログラムの使命であるならば、結果としてソースコードが美しくならないことも往々にしてあるから。 もっと身も蓋もない言い方をすると、この世の穢れをプログラムが背負う事もまたあるのだということ。 このことは、特にAPIを提供するソースを書くときに顕著だ。こういったプログラムに求められるのは、APIが美しいことであって、ソースコードそのものが美しいことではない。そこでは、さまざまな泥臭いことはAPIを提供するプログラムがかぶることで、APIのユーザーは醜いものを気にせずにプログラムできるようになる。 実装が美しいけど

    美しいプログラムの美しくないソース : 404 Blog Not Found
    eiji8pou
    eiji8pou 2008/02/06
    まあ、美しいかどうかなんてのは、プログラマにしかわかんない感覚だけど。
  • perl - Inside-out Object : 404 Blog Not Found

    2007年03月11日03:30 カテゴリLightweight Languages perl - Inside-out Object ところが、そのないはずの隠蔽化を強制する仕組みがすでに発見されているのです。 Perl Best Practices Damian Conway [邦訳:Perlベストプラクティス] ビンゴ中西のほげほげ Kansai.pm第8回ミーティングに行ってきました@荷造り中そして、Perlのオブジェクト指向には 隠蔽化を強制する仕組みはない いつか書こうと思っていたけど、ちょうどいい機会なので。 ここでは例として、name,uriという二つのインスタンス変数を持つオブジェクトを実装してみます。 InsideOut.pm { package InsideOut; use strict; use warnings; my %objects; sub new { my

    perl - Inside-out Object : 404 Blog Not Found
    eiji8pou
    eiji8pou 2008/02/06
    ……そこまでして隠蔽する必要が?
  • perl - 5.10.0 released! : 404 Blog Not Found

    2007年12月19日12:00 カテゴリLightweight LanguagesAnnouncement perl - 5.10.0 released! その 20歳の誕生日に、Perlは5.10.0になりました。 Rafaël Garcia-Suarez / perl-5.10.0 - search.cpan.org 日時間では一日後の12月19日 03:11ですが、GMTではまだ12月18日。当初スケジュールより2ヶ月ほど押しましたが、ついに誕生です。 Dan the Perl Monger From: rgarciasuarez@gmail.com Subject: Perl 5.10.0 is released Date: December 19, 2007 03:11:46 JST To: perl5-porters@perl.org Message-Id: <b77c1d

    perl - 5.10.0 released! : 404 Blog Not Found
  • perl - parser書くならgoto : 404 Blog Not Found

    2007年04月24日18:00 カテゴリLightweight Languages perl - parser書くならgoto しかし、当の当の番はこちらだったりする。 404 Blog Not Found:perl - POO と goto Perl 5のgotoは、仕組みを理解した上で使いどころを誤らなければかのごとく強力なのである。 前回の例では、それでも"One of many ways to do it"で、「知らなくても困らない」レベルのものであった。しかし、今回の例は、gotoがなければ当にきつい。 以下の例を考えてみよう。 入力: (define (fact n) (if (= n 1) 1 (* n (fact (- n 1))))) 出力: [['define',['fact','n'],['if',['=','n','1'],'1',['*','n',['f

    perl - parser書くならgoto : 404 Blog Not Found
    eiji8pou
    eiji8pou 2007/12/01
    よくわからんがgotoはいい意味でも悪い意味でも劇薬
  • perl - 文字列ばらしはsplit //, $strで : 404 Blog Not Found

    2007年11月27日13:30 カテゴリLightweight Languages perl - 文字列ばらしはsplit //, $strで うーん、ここがあきまへん。 [を] 転置インデックスによる検索システムを作ってみよう! 9 my @char = ($c =~ /([\x00-\x7f]|[\xC0-\xDF][\x80-\xBF]| 10 [\xE0-\xEF][\x80-\xBF]{2}| 11 [\xF0-\xF7][\x80-\xBF]{3})/gsx); 文字列をばらして(utf8の)文字一つ一つの配列にするには、バイト列に正規表現をかますのではなく、utf8文字列にしてからそれにsplit //をかますのが一番です。単にわかりやすいだけではなく、その方がずっと高速です。以下、Benchmark。 #!/usr/local/bin/perl use strict; u

    perl - 文字列ばらしはsplit //, $strで : 404 Blog Not Found
    eiji8pou
    eiji8pou 2007/11/30
    小技。utf8を文字単位で。
  • 404 Blog Not Found:惰訳 - 高発想力の持ち主たちの七つの習慣

    2007年11月19日00:10 カテゴリ翻訳/紹介 惰訳 - 高発想力の持ち主たちの七つの習慣 「わたしが知らないスゴは、きっとあなたが読んでいる: イノベーションの神話10」を読んで注文したのだけどまだ来ないので、これでも訳しとく。ただし全訳でなくて七つの習慣のみ。 7 Habits of Highly Innovative People | Think Simple. Be Decisive. 以下はScott Berkunの"The Myths of Innovation"で紹介されている、発想力と想像力に優れた人々の七つの習慣です。 あきらめの悪さ(Persistence) - イノベーションはただのいいアイディアではありません。信念、努力、そして鋭い集中力がなければ、たちはだかる障害を乗り越えることはできません。我々は最終結果だけを見て「これはすごい」と感歎しがちですが、空想

    404 Blog Not Found:惰訳 - 高発想力の持ち主たちの七つの習慣
    eiji8pou
    eiji8pou 2007/11/19
  • 404 Blog Not Found:惰訳 - 建築士がプログラマーのごとく働かねばならぬとしたら

    2007年10月26日01:45 カテゴリ翻訳/紹介Art 惰訳 - 建築士がプログラマーのごとく働かねばならぬとしたら 全プログラマーが泣いた。 If architects had to work like programmers... 実は一つだけ「ローカライズ」にあたって変えた前提があります。日ではこちらの方が実情に沿っているでしょう:) 建築士様、 家を一つ設計施行してくださいな。まだ何が必要か具体的なことはわからないので、そこはよきに計らう方向で。 寝室の数は、2から45までの間。寝室の追加と削除は簡単に出来るようにしといて下さいね。青写真が出来次第あたしが何が気に入ったかを最終判断します。それぞれの青写真について明細書を付けるのをお忘れなく。後で気に入ったのをピックアップできるように。 完成後の家の費用は、今住んでいる家よりも安上がりでないと駄目なことを留意してくださいな。そ

    404 Blog Not Found:惰訳 - 建築士がプログラマーのごとく働かねばならぬとしたら
    eiji8pou
    eiji8pou 2007/10/26
    泣ける
  • 404 Blog Not Found:怠訳 - 怠惰を役立てる10の方法

    2007年06月17日00:15 カテゴリ翻訳/紹介 怠訳 - 怠惰を役立てる10の方法 Perl Mongerとしては見過ごせないタイトルなので。 10 Ways to Make Laziness Work for You 完訳するには私はあまりにlazyなので、きちんと読みたい方は上をクリック。 一番かしこいい連中は、一番ものぐさな連中 - often the smartest people are the laziest ones. 連中はいつも仕事から逃れようとしているので、結果として一番優れた発明をしたりする。コンピューターとか、電子レンジとか、自動車とか、アンチョコとか。 仕事のきつさを和らげる - Make not doing it harder. ものぐさな奴はきつい仕事がきらい。ということは、もっときつい仕事を見せると、それを避けるためにより軽い仕事を片付けたりする。例え

    404 Blog Not Found:怠訳 - 怠惰を役立てる10の方法
  • 404 Blog Not Found:あなたが正しいと思っていることが間違っている26の理由

    2007年05月30日04:05 カテゴリ翻訳/紹介Psychoengineering あなたが正しいと思っていることが間違っている26の理由 MixClips経由で見つけた記事なのだけど、実はWikipediaのコピペ。 26 Reasons What You Think is Right is Wrong List of cognitive biases - Wikipedia, the free encyclopedia これってどこのPOP*POPだよと思いつつも、内容そのものは面白いので超訳的注釈をしてみることに。ただし私は心理学と社会学は筒井康隆に教わった点をよろしく割引のほどを。 バンドワゴン効果 Bandwagon effect - 周囲の人が信じていることを、自分もいつの魔に信じてしまう効果 偏向の盲点 Bias blind spot - 自分自身の認識偏向(cognit

    404 Blog Not Found:あなたが正しいと思っていることが間違っている26の理由
  • perl - 勝手に添削断念 - NNIPF : 404 Blog Not Found

    2007年04月15日07:30 カテゴリLightweight Languages perl - 勝手に添削断念 - NNIPF 「はてなブックマーク - タグ perl」で以下を発見して、SPAMとの戦いに日々うんざりしている私は期待に胸を踊らせたのですが、代わりに心臓が踊ってしまいました。 http://vrl.sys.wakayama-u.ac.jp/~twada/NNIPF.html NNIPFでは,我々が長年蓄積した100万通以上の大量のSPAMデータを詳細に解析した結果,最も有効であると思われる「送信者の情報」を特徴として利用しております.下記の二つを,指定されたURLからダウンロードして,下記の指定された名前でNNIPFのディレクトリに保存してください. -rw-r--r-- jcode.pl-2.13 http://www.srekcah.org/jcode/jcode.

    perl - 勝手に添削断念 - NNIPF : 404 Blog Not Found
  • 404 Blog Not Found:ajax - 文字化け判定表

    2007年04月14日01:20 カテゴリLightweight Languages ajax - 文字化け判定表 「誰か」という時にhyukiさんの視線を感じたのは気のせいかしらん。 結城浩のはてな日記 以下のような「文字化け判定表」があるといいなあと思って作り始めましたが、飽きちゃいました(←おい)。誰か作って…。というわけで、そっこーで作ったのが以下。 を で表示 漢字、カタカナ、ひらがなの入ったquery。 これはUTF-8で書かれたテスト 文字化けを解決することは 鯖側のソースはこちら倉側はお使いのブラウザーで「ソースを見て」下さい。 Enjoy! Dan the Man with too Many Mojibake to Fix See Also: 文字化けクイズ(解答編) - 西尾泰和のはてなダイアリー 「Lightweight Languages」カテゴリの最新記事

    404 Blog Not Found:ajax - 文字化け判定表
  • Acme::Chef - レシピがプログラムそのものな言語 : 404 Blog Not Found

    2006年03月20日02:04 カテゴリLightweight LanguagesArt Acme::Chef - レシピがプログラムそのものな言語 どころか、レシピそのものの電脳言語もあります:-) Life is beautiful: ソフトウェアの仕様書は料理レシピに似ている ちなみに、この話を書いていて思ったのだが、プログラムの仕様書は料理レシピに似ている。その名はChef。Acme::Chefという名のPerlで実装された言語だ。 "Hello, world!"はこうなる。 Hello World Souffle. This recipe prints the immortal words "Hello world!", in a basically brute force way. It also makes a lot of food for one person. I

    Acme::Chef - レシピがプログラムそのものな言語 : 404 Blog Not Found