CatalystをUPDATEかけたのを契機に中身でもみるかとおもったら「eof」をつかってるところがあってちょっとメモ。 while ( !eof $body ) { read $body, my ($buffer), $CHUNKSIZE; last unless $self->write( $c, $buffer ); } http://flex.ee.uec.ac.jp/texi…

X-Forwarded-Forを対象にIP制限したかった。 RewriteEngine on RewriteCond %{HTTP:X-Forwarded-For} !(192\.168\.xxx\..*) RewriteRule .* - [F,L] HTTP:X-Forwarded-Forこの記法だったのか。orzhttp://www.kawaz.jp/pukiwiki/?mod_rewrite

Rubyのpost_matchって、perlの場合、「$'」こいつを参照すれば終わりだった。 1 use strict; 2 use warnings; 3 4 my $string = 'test'; 5 6 if( $string =~ /s/ ) { 7 warn $'; 8 } t at test.pl line 7. http://www.ruby-lang.org/ja/man/?cmd=view;name=M…