配列情報の絞込み - Hatena::Diary::Neko::kak 500 Internal Server Error
なんか、 ある配列にある値から 別の配列にある値だけをある配列から抜き出して 新しい配列をつくりてーってことがままあるわけですが、 List::MoreUtilsとかになかったのですなぁ。 package List::Grep; use strict; use warnings; use base 'Exporter'; use vars qw(@EXPORT_OK %EXPORT_TAGS); @EXPORT_OK = qw/list_grep/; sub list_grep { my $args = shift; my %tmp; @tmp{@{$args->{base}}} = @{$args->{base}}; return wantarray ? @tmp{@{$args->{grep_key}}} : [@tmp{@{$args->{grep_key}}}]; } 1; __E
配列情報の絞込みその後 - Hatena::Diary::Neko::kak 500 Internal Server Error
ircで色々教えてもらった。 http://rafb.net/paste/results/UdqEr958.html こんなんとか。 これでよかった。 やりたかったことは@hoge & @mogeな絞込み。 この意図がうまく伝えられてなかったですね＞＜ http://search.cpan.org/~samv/Set-Object-1.18/lib/Set/Object.pm#intersection(_%5Blist%5D_) とかもつかえそげ。 ちなみにさっきのコードだとgrep definedしないとダメポ。 （追記） use Perl;にも同じ内容をPostしてたら、メールが来てた。 こんなの。やっぱList::Compareかぁ。 Thanks:Stephen Steneker use List::Compare (); my @hoge = qw/1 2 3 4 5 5/; m
svk を当社比100倍高速化する方法: blog.bulknews.net
svk を当社比100倍高速化する方法 svk を使っているときの最大の不満は、ローカルのミラーレポジトリが大きくなるにつれ各種操作、とくに checkout と commit が遅くなってくること。 既知の問題だとおもっていたんですが、plagger のリリースに１５分くらいかかるようになったのでたまらず #perl6 で clkao をつかまえてクレーム。「そんな遅いはずはないので Devel::DProf で dprofpp の結果おくってよ」とのこと。さっそくやってみるとほとんどが Data::Hierarchy の _ancestors 関数でした。 というわけで clkao が Data::Hierarchy 0.32 をリリースしてくれた。Changes に "Workaround various performance issues. The real fix will b
Amazon CEOベソス氏の危険な賭け BW誌インタビュー
BusinessWeek誌のAmazon CEOベソス氏へのインタビューが面白い。 Amazonは「世界最大の書店」からｍ最近では、さまざまなウエブ技術の開発・提供を行っている。 オンディマンドでコンピューティング・サービスを提供する"Elastic Compute Cloud (EC2)"、仮想ディスク容量提供の"Simple Storage Service (S3)"さらには、ウエブを介してマンパワーと結びつける"Amazon Mechanical Turk"。 これらは、まさにAmazonが自社の発展の過程で、開発したり、構築してきた技術であり、いまや、Amazonはそれを中小企業や個人に提供しようとしている。 つまり、Amazonインフラの上で、ほかの人々がビジネスを行うことができるようになってきたというわけである。 アナリストからは、またベソス氏の「浪費癖」が始まったと揶揄されて
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://redqueendevelop.blogspot.com/2006/11/blog-post.html
