For the past few years I have attended a YAPC in North America, Europe, and Asia. All three conferences are very enjoyable but also very different. YAPC::Asia has been held in Tokyo for the past few years. The Japanese culture obviously impacts the conference but I can’t always find ways to express these differences. This year they have helped me out by adding a couple of items to the conferen
ウェブアプリケーションにおいて、認証がかかっている画像や大きなファイルを配信する場合には、Perlbal 等でサポートされている X-Reproxy-URL ヘッダが有効なことが知られていて、その理由としては、 (メモリを大食いする) アプリケーションサーバのプロセスを転送終了まで占有しない HTTP ベースの分散ファイルシステムとリバースプロキシが直接交信するので、ネットワーク負荷が低い といった点が挙げられます。「でも、Apache は X-Reproxy-URL ヘッダをサポートしてないんだよねー」という話が、先日の YAPC::Asia 2009 においても話題になっていました[要出典]。回避策としては、ワンタイムURLのような手法もあるのですが、セキュリティな懸念もあります。 なんとかしたいなと思っていたのですが、気が向いたので、Apache に X-Reproxy-URL ヘッ
前提:Moose::RoleはJavaのInterfaceなんかじゃない 最近,RoleというのはCプリプロセッサの#includeディレクティブに近いもののような気がしてきた。そして+Xがメソッドのチェック有無やコンフリクトのチェックである。 たとえば,以下のようなコードを考えてみる。 #!perl package Say; use Any::Moose '::Role'; requires 'to_string'; sub say{ my($self) = @_; print $self->to_string, "\n"; } package MyClass; use Any::Moose; with 'Say'; has name => ( is => 'rw', isa => 'Str', ); sub to_string{ my($self) = @_; return $self
Perlを入れたはいいものの ご存じのように、Perlには、簡単なコマンドであれば、いちいちスクリプトファイルを用意しなくてもコマンドライン上で実行できる-eというスイッチが用意されています。 > perl -e 'print "Hello, world!"' また、一行では収まらないような長さのスクリプトでも、使い捨てでよければ、perlコマンドをスクリプトファイルや-eスイッチなしで実行することで、コンソールからスクリプトを入力できるようになります。 > perl print "Hello, world!"; ^D とはいえ、まともにPerlを使おうと思ったら、何らかのテキストエディタが必要になります。Unix系の環境ではviとEmacsの系統がそれぞれ一大勢力を成していますが、Windows環境では、標準添付のメモ帳(notepad)があまりに貧弱なため、たいていの人は自分の好みのエ
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
多少あるのかも。 use strict; use warnings; use Benchmark qw(:all); my $t = "hello world! hello world! hello world! hello world!\n"; my $rep = 100; my $prealloc_s = $t x $rep; cmpthese(100000, { default => sub { my $s = ''; $s .= $t for 1..$rep; $s; }, prealloc => sub { $prealloc_s = ''; $prealloc_s .= $t for 1..$rep; $prealloc_s; }, }); $ perl prealloc.pl Rate default prealloc default 17825/s -- -5% preal
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く