perl、 MySQL、オープンソース系、ウェブ系ネタ。なぜか鯖管メモがほとんどを占めている…
perlのWAF（ウェブアプリケーションフレームワーク）である Mojolicious（Mojolicious::Lite）をアップロードだけで使えるのか試してみる。 簡単に使えるフレームワークとして、とりあえず Linux+Apacheで動けばおｋという前提で。 なにせフレームワーク初心者の戯事なのでそのあたりは察してください。
メール送信に便利な Mail::Sendmail 大変便利なモジュールだけど、RFCに違反しているメールアドレスでは内部のエラーチェックに引っかかり送信出来ない。 例えばこんなメールアドレスには送信出来ない。 例）read_rfc822.@docomo.ne.jp 元ソースの正規表現部分 # regex for e-mail addresses where full=$1, user=$2, domain=$3 # see pod documentation about this regex my $word_rx = '[\x21\x23-\x27\x2A-\x2B\x2D\x2F\w\x3 […]
忘れそうなのでメモ。 ｊQueryのappendで追加したdivにclickイベント | OKWave jQueryのappendで追加したdivにclickイベントは使用できるのでしょうか？ 〜〜略〜〜 最初からあるdivでは正常に動作するので、appendで後付したからだと思います。 これをうまく行う方法はないでしょうか？ こんな質問（↑では解決していない） $('.btn').click(function(){alert('oh!');}); $('#id').append('<a href="#" class="btn">ボタン</a>'); こんな感じだとうま […]
JavaScriptとかで書いてて便利な無名関数。 perlでも出来たら何か便利かなぁ。 my $sub = sub {print @_, "\n";}; &$sub('Hello,world!'); #実行結果 Hello,world! 関数型言語って何がすごいんですか - Gemmaの日記 にあるJavaScriptの例をperlで書いてみる。
ヒアドキュメントの中でPerlの式を書く print <<EOM; あいうえお かきくけこ EOM こんなのをヒアドキュメントという（らしい） この中にperlの式を埋め込むテクニック。 リンク先より引用 print <<EOM; TIME: @{[ time() ]} EOM 実行結果 TIME: 1229258525 面白い。
Apache2.2でSpeedyCGIのperlモジュールを使うのならyumなりで一発インストールできるけど、mod_SpeedyCGIをインストールしようとするとmakeでコケる。 どうやらパッチを当ててからmakeする必要があるようだ。 参考：Apache2.2にmod_SpeedyCGIを組み込む方法（パッチファイルのあて方） / レンタルサーバー BIG-server.com パッチファイルのダウンロード パッチファイル：CGI::SpeedyCGI with apr-1.0 ※パッチファイルはwgetで入手できないのでダウンロードしておいてFTP等でアップロードする必要がある。
Date::Calc - search.cpan.org 基本 use Date::Calc qw(:all); # 今日 my ($yyyy,$mm,$dd) = Today(); print "$yyyy/$mm/$dd"; # 実行結果 2011/1/21 昨日の日付（日付計算） use Date::Calc; my ($yyyy,$mm,$dd) = Date::Calc::Today(); @y = Date::Calc::Add_Delta_Days($yyyy, $mm, $dd, -1); my $yeste […]
今更ながらまた波ダッシュ問題で悩まされた。 波ダッシュ「〜」と全角マイナス「−」で文字化けが発生する。 これまた、Windowsの問題なわけで、マカーである自分にはなかなか気が付かない罠。 で、 perlの波ダッシュの文字コード変換のまとめ - (ﾟ∀ﾟ)o彡 sasata299's blog を読むと、UTF-8<=>SJIS、UTF-8<=>EUCが書かれているのだけれど、どうやらJISもEUCと同じ挙動をするらしい。 メール送信スクリプトで問題が起きるのはこれが原因か。 で、まとめのリンク先にあった Perlで日本語(ISO-2022-JP)メールを送信(まとめ) […]
HTMLから本文（らしき）部分を抜き出せるとっても便利なモジュール。 HTML::Feature 3.00 リリースしました - ダウンロードたけし（寅年）の日記 オプションを指定する場合にちょいとバグがあるので修正。 CPANのバグ報告とか分からないので（汗 PATHは環境によって違うかも知れません。 /usr/lib/perl5/site_perl/5.8.8/HTML/Feature.pm sub _setup { my $self = shift; $self->front_parser( HTML::Feature::FrontParser->new( context = […]
Text::Mecabがインストール出来なかった。 そういえば昔諦めた気がする。 で、エラー内容を見てみる。 # perl Makefile.PL Path to mecab config? [/usr/local/bin/mecab-config] detected mecab version 0.98 Using compiler flags '-I/usr/local/include -DMECAB_MAJOR_VERSION=0 -DMECAB_MINOR_VERSION=98'... Using linker flags '-L/usr/local/lib -lmecab -lstd […]
