blog.nomadscafe.jp

おそらくModPerl::Registry環境でしかでないのだけど、動的コンテンツに対して、"If-Modified-Since"を送ると、error_logに、

[warn] /test.cgi　did not send an HTTP header

というのが、記録される。直接的な害はないことは確認済み。

再現させるには、

#!/usr/bin/perl
use strict;
use warnings;
print "Content-Type: text/html\n\n";
print "x" x 1000;

という簡単なCGIを書いて、

#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
my $url = "http://localhost/test.cgi";
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => $url);
$req->header( 'If-Modified-Since' => HTTP::Date::time2str );
my $res = $ua->request($req);
print $res->status_line,"\n";

を実行する。

最後のstatus_lineは、"304 Not Modified"になる。
これ自体、よくわからない動作なんだけど、Last-Modifiedを吐いていない動的コンテンツにIf-Modified-Sinceヘッダを送ってくる某Safariがまぁ、あれだ。

ちなみに、Registry環境でCGI.pmを使ってheader出力をしている場合は(If-Modified-Sinceヘッダは送られてくるが)問題ない。

参考URL:
mnot’s Web log: Bug Syncronicity
Bug 39287 - Incorrect If-Modified-Since validation (due to synthetic mtime?)

投稿者: かぜぶろ 日時: 11:36 | パーマリンク | トラックバック (1)

以下のプログラムを動かすと激しくメモリリーク

use List::Util;

my @parent;
for ( 1..4 ) {
    push @parent, {
        key => "parent_" . $_,
        value => $_
    };
}

while (1) {
    my $child = rand(4);
    my $hit = List::Util::first { $_->{value} > $child } @parent;
    $hit ||= $parent[0];
    print "$hit->{key}\n";
}

List::Util::firstでのリファレンスが解放できないのかなぁ。。
仕方ないのでforeachで書き直した。

__追記
1.18では直っている模様

1.18 -- Fri Nov 25 09:30:29 CST 2005
Bug Fixes
  * Fix memory leak in first() and reduce()

投稿者: かぜぶろ 日時: 19:29 | パーマリンク

Yes.

posted with amazlet on 06.06.12

高野健一
日本クラウン (2006/06/07)

Amazon.co.jp で詳細を見る

渋谷のTSUTAYAで発見したので購入。
MacBook Proに音楽を入れてないので、今聴ける音楽はこれだけという状態。

あと、会社で使う用USキーボード

Apple M9034LL/A English Version Apple Keyboard

posted with amazlet on 06.06.12

アップルコンピュータ (2003/06/28)
売り上げランキング: 714

Amazon.co.jp で詳細を見る

をApple Storeで買った。

投稿者: かぜぶろ 日時: 14:18 | パーマリンク

完全な思いつき＆パクリ。

package CGI::Application::Plugin;

use 5.006;
use strict;
use attributes ();

our $VERSION = 0.01;

# Code stolen from Class::DBI::Plugin 
# Code stolen from Simon Cozens (Maypole)
our %remember;
sub MODIFY_CODE_ATTRIBUTES { $remember{ $_[1] } = $_[2]; () }
sub FETCH_CODE_ATTRIBUTES { $remember{ $_[1] } }

sub import {
    my $class  = shift;
    my $caller = caller;
    no strict 'refs';
    for my $symname ( keys %{"$class\::"} ) {
        local *sym = ${"$class\::"}{$symname};
        next unless defined &sym;    # We're only in it for the subroutines
        &sym($caller), next
          if $symname eq 'init';
        *{"$caller\::$symname"} = \&sym
          if grep { defined($_) and $_ eq 'Plugged' } attributes::get( \&sym );
    }
}

1;

`Class::DBI::Plugin` =~ s/Class::DBI/CGI::Application/g;
しただけ。

SYNOPSISはこんな感じ。

  package CGI::Application::Plugin::NewPlugin;

  use strict;
  use base 'CGI::Application::Plugin';
  
  sub init {
    my $class = shift;
    $class->add_callback( 'prerun',  ... );
    $class->new_hook('newhook');
  }
  
  sub method_name : Plugged {
    my $self = shift;
    ....
  }

  sub this_method_is_not_exported {}

便利だと思ったり、でも今更間があったり。

ソース：http://svn.nomadscafe.jp/public/library/perl/CGI-Application-Plugin/

投稿者: かぜぶろ 日時: 18:44 | パーマリンク

って書くとセレブっぽくていいね。
某用事のため週末は京都なのです。

今は、池尻大橋のマンスリーマンションを借りて単身赴任をしております。
渋谷まで歩いて２０分弱ぐらいなので、結構楽です。交通量の多い道なので快適まではいかないが。。
単身赴任は予定では二ヶ月間ほど。その後、奥さんもこっちに来ます。
なので、次は家探し。東京は広いし、交通機関も様々なので探すのに苦労しそうです。
良いところあったら教えてください。

前のエントリーにはたくさんのコメントを頂きありがとうございます。
これからもよろしくお願いします。

ソース読みから仕事開始中。

投稿者: かぜぶろ 日時: 22:43 | パーマリンク | コメント (1) | トラックバック (1)

6月1日、株式会社mixiに入社いたしました。
どうかよろしくお願いします。

前職をやめてから、様々な方にありがたいお声をかけていただいて、
感謝しております。期待に添えますよう、mixiにてがんばっていきたいと思います。

投稿者: かぜぶろ 日時: 22:11 | パーマリンク | コメント (18)