すごく長い文字列から、最初にでてきた指定文字を削除したかったのだけど、 その指定文字に開きカッコだけか、閉じカッコだけが入っているとエラーで死んだ。 my $str = q!1qaz2wsx(3edc4rfv5tgb)6yhn7ujm!; my $del = q!4rfv5tgb)6yhn!; $str =~ s/$del//; …

これまでまったく意識したことなかったけれど @_はlocalだと知ったのでメモ。 sub speak { my $w = &_speak_word; # ←引数なし print $w,"\n"; } sub _speak_word { my $type = shift; # ←でも引数が取り出せる if ($type eq 'laugh') { return 'HAHAHA'; } …

Perlを使い出した頃は「and」や「or」の論理演算子の方が 『「&&」や「||」の記号よりもそのまま単語として読めるからよい！』 みたいなのがどこかに書いてあったのをずっと覚えていて、 実際優先順位も低いから書きやすくて使っていたけれど 最近は「&&」「…

... If you want the condensed version, perhaps the best advice comes from the renowned Japanese Samurai, Miyamoto Musashi, who said: "Do Not Engage in Useless Activity" in 1645. 役に立たないことはするな 五輪書 - Wikipedia

試したのは以下。 Catalyst -- 元祖WAF Mojolicious -- 軽量WAF Dancer -- 軽量WAF Amon2 -- シンプルWAF Amon2::Lite Amon2(Flavor::Minimum) Kossy -- ISUCONのWAF Web Application Frameworkなので、HTMLの出力を測定。 またテンプレートエンジンにはText…

昨日のエントリで文字化けした件についてもう少し調べてみた。 Devel::Peekで文字化けした文字をダンプしたところ、面白いことがわかった。 UTF-8フラグがついていない文字列のはずなのに、FLAGSの欄に"UTF8"が出ていた。 FLAGS = (PADMY,POK,pPOK,UTF8) # <…

RHEL4のサポート期間が延長なしだと今日で最後。 Red Hat Enterprise Linux - Wikipedia 標準のPerlのバージョンは5.8.5。 というわけで先日RHEL5にすると同時に5.14.2にしてやるぜ！、と意気込んでperlbrewで入れたら(RHEL5のデフォはPerl5.8.8)、既存のシ…

RSSに配信されたWEB+DB PRESS Vol.67のリンク先が404だったので、scrapeするとcroakしてしまうのをevalした。 初gist。

らしい。 日本語Perl第２課 確かに失敗する。 use utf8; my $数１ = 0; sub 数１に入れる→ { $数１ = $_[0]; } sub 改行 { "\n" } my $数２ = 6; 数１に入れる→ $数２; print $数１, 改行; Illegal declaration of subroutine main::数１に入れる at te.pl l…

Perlのperlbrewのlocal::libと、Rubyのrvmのgemsetを管理する方法の対応関係。 モジュールをインストールするための別空間作り。 perlbrew rvm 作成 $ perlbrew lib create catalyst59007 $ rvm gemset create rails31 既存一覧 $ perlbrew list $ rvm gemse…

PerlのperlbrewとRubyのrvmでの対応関係メモ。 公式サイト perlbrew http://perlbrew.pl/ rvm http://beginrescueend.com/ インストール perlbrew curl -kL http://install.perlbrew.pl | bash echo "source ~/perl5/perlbrew/etc/bashrc" >> ~/.bash_profil…