タグ

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

  • perl - O'ReillyのiPhoneアプリ本からepubをぶっこぬく : 404 Blog Not Found

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

    perl - O'ReillyのiPhoneアプリ本からepubをぶっこぬく : 404 Blog Not Found
  • perl - PerlIO vs. <> : 404 Blog Not Found

    2007年02月08日03:00 カテゴリLightweight Languages perl - PerlIO vs. <> これ、Perl 5 Porterとしてちょっと申し訳ないケース。 [を] Perl 標準入力と utf8 しかし、 test.pl < utf8.txt は行けるが、 test.pl utf8.txt はだめ。ここで問題になっているのは、<>でファイルを指定した場合も標準入力の場合のどちらの場合もPerlIO Layerを指定する方法。 先に答を書いてしまうと、 use open ':utf8'; binmode STDIN, ':utf8'; binmode STDOUT, ':utf8'; ということになる。 odz buffer - それ use open とりあえず use open IN => ':utf8'; とするほうが、スマートといえばスマートか?

    perl - PerlIO vs. <> : 404 Blog Not Found
    hogem
    hogem 2012/05/04
    これではまってたから助かった>< / utf8のファイルを perl foo.pl < utf8.txt と perl foo.pl utf8.txt としたときの違い
  • perl - AnyEventで超速分散ダウンローダー : 404 Blog Not Found

    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

    perl - AnyEventで超速分散ダウンローダー : 404 Blog Not Found
    hogem
    hogem 2010/08/12
  • 404 Blog Not Found:perl - Regexp::Assembleのススメ

    2007年04月19日15:00 カテゴリLightweight Languages perl - Regexp::Assembleのススメ というわけで、Regexp::Assembleのご紹介。 PERL HACKS(日語版) [英語版] odz buffer - それ Regexp::Assembleん?ループ云々を抜きにして、こういうのは Regexp::Assemble の出番じゃないの? すでにPerl Hackers御用達のモジュールとなっていますが、まだ知らない方もいらっしゃるかも知れないので。 何をするモジュールか、といえば、以下を見れば一目瞭然でしょう。 Regexp::Assemble - Assemble multiple Regular Expressions into a single RE - search.cpan.org use Regexp::Asse

    404 Blog Not Found:perl - Regexp::Assembleのススメ
  • コマンドラインユーザー必携 - 書評 - bashクックブック : 404 Blog Not Found

    2008年09月26日00:00 カテゴリ書評/画評/品評iTech コマンドラインユーザー必携 - 書評 - bashクックブック オライリー矢野様より、いつもどおり献御礼。 bashクックブック Carl Albing / JP Vossen / Cameron Newham 株式会社クイープ訳 [原著:bash Cookbook] そういえば、これがなかった。 ある意味、(Perl|Python|Ruby)クックブックより重要とも言える、これが。 書「bashクックブック」は、世界でも最も普及したshell、Bashのクックブックであると同時に、2008年現在における「デフォルトのコマンドライン環境」において、「あれをやるにはどうしたらよいか」、すなわち「CLIクックブック」としても機能するよう書かれた一冊。 書の何がよいかといえば、何もかもBashでやろうとしていないこと。目

    コマンドラインユーザー必携 - 書評 - bashクックブック : 404 Blog Not Found
  • 404 Blog Not Found:perl - LWPあれこれ

    2007年02月14日19:00 カテゴリLightweight Languages perl - LWPあれこれ すでに多くの指摘があるとおり、GETはLWPの付属コマンドです。 ウノウラボ Unoh Labs: ウェブアプリ開発を助けるGETコマンドを使ってハックしてみよう!! jokagiは何年か前に偶然見つけたGETというコマンド(HEADもよく使う)を使用していますので,このコマンドの紹介と超簡単なハックをひとつ紹介したいと思います.動作環境にインストールされているCPANパッケージの具合によってはhttpsが使えない(ぽい) GETに限らずLWPでSSLを使うには、Crypt::SSLeayインストールすればOKです。 <?xml version="1.0" encoding="UTF-8"?><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1

    404 Blog Not Found:perl - LWPあれこれ
    hogem
    hogem 2009/05/27
    macでHEADを入れるとcase-insensitiveなのでコマンドが上書きされてしまうという罠 / GET, HEADの-Sオプションでリダイレクト先を表示
  • 惰訳 - Barack Obama's acceptance speech in full : 404 Blog Not Found

    2008年11月05日21:00 カテゴリNews翻訳/紹介 惰訳 - Barack Obama's acceptance speech in full 私はCNNで観たのだけど、同時通訳を殺して観たので、から「日語マダー」要求が。 Barack Obama's acceptance speech in full | Comment is free | guardian.co.uk というわけで以下に。 なお、原文も少し直してあります。たとえば"Victory belongs to you"が繰り返されているところなど。 Dan the Translator If there is anyone out there who still doubts that America is a place where all things are possible; who still wond

    惰訳 - Barack Obama's acceptance speech in full : 404 Blog Not Found
    hogem
    hogem 2008/11/06
    オバマ 大統領選挙の勝利演説
  • 404 Blog Not Found:HTTPサーバーのパイプライン対応

    2006年12月21日17:30 カテゴリSciTech HTTPサーバーのパイプライン対応 今回は、HTTPのパイプラインの話。 「RFC2616の同時接続数の規定」@水無月ばけらのえび日記 「HTTPの同時接続数はどうあるべきか? (slashdot.jp) 」というお話。誰も原文を引用していないのが悲しかったので、引いておきます。 スラッシュドット ジャパン | HTTPの同時接続数はどうあるべきか?-taka2さんのコメントそれなら、「同時接続」しなくても、結果が返ってくる前に次のリクエストを送出して「リクエスト送信」と「結果受信」を並行して行えるようになれば、スループットの向上は見込める。 それがパイプライン化 [mozilla-japan.org]で、同時接続するよりも効率が良い。パイプライン化の前に、HTTPで何が行われているのかを、実際に見てみよう。telnetコマンドがあ

    404 Blog Not Found:HTTPサーバーのパイプライン対応
    hogem
    hogem 2008/10/25
    httpにpipelineという概念があるのを知らなかった / requestをまとめて送信、responseをまとめて受信する / keep_aliveの一歩上
  • 仮説 - 「売女」や「土方」が蔑まされる理由 : 404 Blog Not Found

    2008年09月29日00:30 カテゴリArt 仮説 - 「売女」や「土方」が蔑まされる理由 しかし、蔑視されているのは風俗嬢たちだけではない、というのがこれを書いた理由。 「風俗嬢に説教たれる人々が痛い理由」と「売春を合法化し、厚生労働省売春管理局を作る案」 - 分裂勘違い君劇場 そのように、社会全体の倫理体系が、男女の肉体関係に決定的な崇高さを与えているがゆえに、「お金で女を買う」という行為は、恥辱であり、罪悪ですらあるように感じられてしまう。 先日ラジオの収録をしたのだが、その時に私が「土方」という言葉を使ったら、それは放送禁止用語だということで s/土方/土木作業員/g する羽目になった。この「土方」は私自身を指した言葉であり、実際私は土木作業員だったこともあり、その土木作業員たちも自らを「土方」と呼んでいたのだがそれでも駄目らしい。 「売女」「土方」「百姓」....これらの言葉

    仮説 - 「売女」や「土方」が蔑まされる理由 : 404 Blog Not Found
    hogem
    hogem 2008/09/29
    "仮説は、「これらの仕事は、『誰でも明日にでも出来る簡単なお仕事』だと思われているから」"
  • 404 Blog Not Found:DIY 24/7 - 書評 - [24時間365日]サーバ/インフラを支える技術

    2008年08月08日00:00 カテゴリ書評/画評/品評iTech DIY 24/7 - 書評 - [24時間365日]サーバ/インフラを支える技術 技術評論社土井様より献御礼。 24時間365日 サーバ/インフラを支える技術 伊藤直也 / 勝見祐己 / 田中慎司 ひろせまさあき / 安井真伸 / 横川和哉 初出2008.08.03; 販売開始まで更新 実に面白かった。書単体で読んでも面白いが、「Googleを支える技術」と読み比べると面白さ22倍といったところだろうか。 書「24時間365日 サーバ/インフラを支える技術」は、はてなとKLabという、実際に24時間365日稼働するサービスを運用している「中の人々」が、それをどうやって実践してきたかを一冊のにまとめたもの。「外から見て」書いた「Googleを支える技術」は、そこが決定的に違う。 書籍案内:[24時間365日]サーバ

    404 Blog Not Found:DIY 24/7 - 書評 - [24時間365日]サーバ/インフラを支える技術
    hogem
    hogem 2008/08/04
    はてなとklabの中の人達が書いた本
  • perl - @_ は参照である : 404 Blog Not Found

    2008年05月12日18:15 カテゴリLightweight Languages perl - @_ は参照である これでも正解ではありますが、perlの場合もっと簡単な方法があります。 各言語間の参照と値渡し - @author pyridoxin sub swap { my ($x , $y) = @_; $$temp = $$y; $$y = $$x; $$x = $$temp } [codepad] sub swap { my $tmp = $_[0]; $_[0] = $_[1]; $_[1] = $tmp; } my ($a, $b) = (1, 2); print "\$a = $a, \$b = $b\n"; swap($a, $b); print "\$a = $a, \$b = $b\n"; これは、Referenceが存在しなかったPerl 4以前からの仕様です。

    perl - @_ は参照である : 404 Blog Not Found
    hogem
    hogem 2008/05/14
  • 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 入門
  • 勝手に添削 - 日経ソフトウェア2007.03 : 404 Blog Not Found

    2007年01月27日16:30 カテゴリLightweight Languages書評/画評/品評 勝手に添削 - 日経ソフトウェア2007.03 以下につられて買ってみた。 日経ソフトウエア 2007年 03月号 TAKESAKO @ Yet another Cybozu Labs: KENTさんとの対談写真が見れるのは日経ソフトウエアだけそして、去年の11月に:: KENT WEB - CGIスクリプト :: で有名な KENT さんと対談させていただいたときの記事が写真つきで載っています。 KENTさんの写真が見れるのは日経ソフトウエア2007.03(1月24日発売)だけです。 404 Blog Not Found:日経ソフトウェア2007年1月号 - perlはどこだ!? - おおもりさんのコメント申し訳ないです。とりあえず3月号をお楽しみに、という感じです。詳しくは竹迫さんに聞

    勝手に添削 - 日経ソフトウェア2007.03 : 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
  • アルゴリズム百選 - フィボナッチ数列にO()を学ぶ : 404 Blog Not Found

    2007年11月28日18:00 カテゴリアルゴリズム百選Math アルゴリズム百選 - フィボナッチ数列にO()を学ぶ 404 Blog Not Found:プログラマーでなくても名前ぐらい覚えておきたいアルゴリズムx10、これほどの反響になるとは。200ブクマぐらいは予想していたが、もいくとは。 とりあえず、の仮題を「アルゴリズム百選」として、「アマグラマーのすすめ」と同じようにblogに草稿を書いていくことにする。「メインページ」の「アルゴリズム大募集! C&R研究所 - トップページ」の方も適宜更新していくが、「その場で動かせるコードサンプル」はここでないと書けないので。 ただし、「アマグラマーのすすめ」よりは書き方は順不同になるはず。それでも序文相当のことは「チラ見」ならぬ「チラ書き」しておいた方がいいだろう。というわけで、序文に変えて紹介するのが、Entry。 ヒントとな

    アルゴリズム百選 - フィボナッチ数列にO()を学ぶ : 404 Blog Not Found
  • 404 Blog Not Found:貧乏な社会で子を産むな

    2007年11月22日21:30 カテゴリLove 貧乏な社会で子を産むな id:buyobuyoさんがご立腹のようだが、どちらも怒りの矛先が微妙にずれていてBlue on Blue(同士討ち)状態になっているように見えるので蛇足。 2007-11-21 - 捨身成仁日記 炎と激情の豆知識ブログ! 出産育児一時金にこだわっているようだが、そもそも、出産育児一時金は出産しないともらえないわけだが。今回の記事は、「妊婦健診を一度も受けず、生まれそうになってから病院に駆け込む「飛び込み出産」」がテーマで、妊婦健診の時に出産育児一時金は使えないんだけど。いまどきの産婦人科はつけが利くの? 「貧乏人は子を産むな」と言っている人々は、一つ重大なことを忘れている。 子を産むのは確かに親だが、子を育てるのは親だけではないということを。 日においては、「親は子を産むばかりではなく、育てることに関しても10

    404 Blog Not Found:貧乏な社会で子を産むな
    hogem
    hogem 2007/11/23
    "はっきり言って、この国は子供の面倒はあまり見ない。"薄々思ってたけどここまで諸外国と違いがあるとは思ってなかった
  • 404 Blog Not Found:「ほげ」「ふが」...がどんだけの男女を無気力にさせているのか少し考えてみた

    2007年11月08日15:00 カテゴリMediaPsychoengineering 「ほげ」「ふが」...がどんだけの男女を無気力にさせているのか少し考えてみた これ読んで少し無気力になったので;-) heartbreaking. 「子供が産まれて感動した」「おめでとう!」…がどんだけの男女を無気力にさせているか少しは考えろ 当に人の痛みの解る人間は、自分の幸せを語る前にまず、この幸せを得られない人が、自分のこの幸せを知った時どのように感じるか… と少しは考えてから言葉を発するんだよ。これを書いたあなたが「傷ついた」のはこれ読んで分かった。そして「当に人の痛みの解る人間」でないのもわかった。当にそうだとしたら、とてもじゃないけどこういう台詞は言えないもの。 泣いているあなたの元に見知らぬ子供がやってきて、持っていたキャンディーをあなたに渡しました。「おねえちゃん、元気出して」。甘

    404 Blog Not Found:「ほげ」「ふが」...がどんだけの男女を無気力にさせているのか少し考えてみた
    hogem
    hogem 2007/11/08
    てっきり俺のIDを全否定されたのかと思った
  • perl - DateTime->now(time_zone => $obj) # better practice : 404 Blog Not Found

    2006年12月07日16:30 カテゴリLightweight Languages perl - DateTime->now(time_zone => $obj) # better practice 私はあまりDateTimeは使ってないのだけど、better practiceを見つけたと思うので。 [perl] DateTime->now(time_zone => 'local')って激遅 - おいぬま日報(不定期) (2006-12-06) Perl界隈の日付操作モジュールのデファクトスタンダードであるDateTimeですが、今まで「タイムゾーンなんてシステムで定義されているものから勝手に取ってきてほしい」という理由で DateTime->now(time_zone => 'local'); なんてことをしてたのですが、これが激遅なことが発覚しました。 二行で書くと、以下のとおり。

    perl - DateTime->now(time_zone => $obj) # better practice : 404 Blog Not Found
    hogem
    hogem 2007/10/23
    DateTime::TimeZoneで作った変数をつかいまわす
  • perl - 木を痛めない枝チェック : 404 Blog Not Found

    2007年10月12日00:00 カテゴリLightweight Languages perl - 木を痛めない枝チェック 確かにこれは悩ましい。 [を] Perl の defined と exists それはそうと、やっかいなのが、ハッシュでツリーを扱うとき。 一度でも $a->{"a"}->{"b"} を見に行くと、 $a->{"a"} が存在するようになっちゃうんですよね。 確認するためにアクセスしただけなのに、 途中ノードができちゃうなんてちょっとなあ…。 念のために解説すると、こういうことです。 use strict; use warnings; use Data::Dumper; my $a = {}; # 空っぽのはずが print Dumper($a); print exists $a->{b}{c}; # { b => {} } となっちゃう print Dumper($

    perl - 木を痛めない枝チェック : 404 Blog Not Found
    hogem
    hogem 2007/10/12
    コピーしたハッシュでexistsを使って確認する
  • 勝手に添削 - find(1) : 404 Blog Not Found

    2007年03月30日00:15 カテゴリ一日一行野郎Lightweight Languages 勝手に添削 - find(1) 「ウノウラボ Unoh Labs: コマンドラインで作業する上で知っておくといいテクニック」の用法に首を傾げたので。 まずはこちら。 $ find . -type f | fgrep index.html これは % find . -type f -name index.html でOK。パイプ不要。.htmlだけ見つけたい時も % find . -type f -name \*.html でOK。findはシェルのワイルドカードを受け付ける。ただしシェルにそれを展開して欲しくないので、\でエスケープしている。要は $ find . -name '*~' と同じなのだが、なんで上記の例でfgrepを使っているか不明。 ここからが番。 $ find . -nam

    勝手に添削 - find(1) : 404 Blog Not Found
    hogem
    hogem 2007/09/27
    File::Pathのrmtreeでディレクトリまとめて削除。mkpathの削除版