タグ

benchmarkとmongerに関するBigFatCatのブックマーク (2)

  • perl - @_をコピーするコスト : 404 Blog Not Found

    2011年07月17日22:00 カテゴリLightweight LanguagesTips perl - @_をコピーするコスト Perl Best Practices Damian Conway [邦訳:Perlベストプラクティス] これ、やけに差がないと思いきや… Perlで重複した要素をユニークにする - ichirin2501の日記 ふと、どのコードが速いのか気になったのでベンチマークを取ってみました。 id:ichirin2501のコードのどこに問題があるかは、以下のベンチマークを走らせてみればわかります。 #!/usr/bin/env perl use 5.012; use Benchmark qw/:all/; sub uniq_copy { my @array = @_; my %hash; @hash{@array} = (); return keys %hash; }

    perl - @_をコピーするコスト : 404 Blog Not Found
    BigFatCat
    BigFatCat 2011/07/18
    uniqのコスト。hashスライスを使った方法が手軽でパフォーマンスも良い。ただ一つ疑問が…。何でハッシュスライスのとこでは1じゃなくて()を代入してるんだろ?
  • Released FurlX::Coro! - Islands in the byte stream (legacy)

    Coroを使うと簡単にFurlで並列HTTP通信が出来ます。 #!perl # usage: http-ping.pl [urls...] use strict; use warnings; use Coro; use Coro::Select; # Furlよりも先にロードすること! use Furl; my @coros; foreach my $url(@ARGV) { push @coros, async { print "fetching $url\n"; my $ua = Furl->new(); my $res = $ua->head($url); print "$url: ", $res->status_line, "\n"; }; } $_->join for @coros; __END__ わざわざモジュール化する必要はあまりないのですが、上記スクリプトが時々参照される

    Released FurlX::Coro! - Islands in the byte stream (legacy)
    BigFatCat
    BigFatCat 2011/06/28
    benchmarkスクリプトとかに使えそう。
  • 1