タグ

perlとhakobeに関するSixeightのブックマーク (4)

  • YAPC::Asia で 「ページャ実装マニアックス」という題目で発表してきました - はこべにっき#

    YAPC::Asia 2010に参加して LT で発表しました。ページャ実装マニアックスという題目で、はてなにおけるページャ実装について紹介しました。 スライド内で大量のページャ実装を紹介していますが、もちろんまったく別の実装ということはないです。いくつかの共通クラスを継承してカスタマイズしたものを使っています。 スライド内でもいってるようで、単にページャといってもさまざまな要素がからんでいます。これを踏まえてページャをうまく抽象化できる実装が考えられると良いですね。 ページャ実装マニアックスView more presentations from hakobe.

    YAPC::Asia で 「ページャ実装マニアックス」という題目で発表してきました - はこべにっき#
  • ファイルのすべてを飲み込む方法

    原稿を落としたら,すしをおごりにアメリカに行かないといけないとの噂にgkbrしているid:hakobe932です. 932は草津の932です.こんにちは. ファイルの中身をすべて読み込む処理というのは,非常によくある処理です.TIMTOWTDIが信条のPerlでは,ファイルの中身をすべて読み込む方法もたくさんあります.ここでは,どんな方法があるのか見てみましょう. 行単位で読み込む もっともシンプルなのは行入力演算子(<>)を使って行毎にデータを読み込み,それを連結する方法です. open my $fh, '<', './inputfile' or die "failed to open: $!"; my $content = ''; while (my $line = <$fh>) { $content .= $line; } print $content; もう少し工夫して後置whil

  • より自然にRubyっぽくリストを書けるモジュールを書いた - はこべにっき ♨

    PerlのARRAYをRubyのArrayっぽく扱うためのモジュールがすでに三個くらいあって大人気ですね. List::RubyLike List::Rubyish List::Enumerator こういったモジュールを使うと, my @elems = map { $_ ** 2 } grep { $_ % 2 == 0 } (0..100); my $sum = 0; for my $n (@elems) { $sum += $n; } とか書いていたコードが, # List::Rubyishの場合 my $sum = List::Rubyish->new([0..100]) ->grep(sub{ $_ % 2 == 0}) ->map (sub{ $_ ** 2 }) ->reduce(sub { $_[0] + $_[1] }); みたいな感じのメソッドチェーンで書けるようになっ

    より自然にRubyっぽくリストを書けるモジュールを書いた - はこべにっき ♨
  • CPANパッケージをつくった時のメモ - はこべにっき ♨

    WebService::Hatena::Diary 0.01リリース/わーい,CPAN Authorになったよー - はこべブログ ♨ でCPANパッケージをつくった時のメモをおもむろに公開.なんか変なとこあったらおしえてくださいな みたいな. 書いてから気づいたのですが,Makefile.PLを書こう - soffritto::journalに書かれている,まず,Makefile.PLから書くやりかたの方が,より良さそうすね.Makefile.PLが開発プロセスをコントロールしていて,迷わずに開発がすすめられそうです. ともあれ,以下メモ. 基的に上から下の順番に実行していく. pmsetup でひな形をつくる パッケージのひな形を作成するためのpmsetupというプログラムを実行する.もともとは,miyagawaさんの作ったスクリプトで,自分用にカスタマイズして使う.(CodeRep

    CPANパッケージをつくった時のメモ - はこべにっき ♨
  • 1