NeverBlog::Likk::Unexistable;

見なかったことにして下さい

Perl/CGI

CGI::escapeHTMLが貧相すぎるので

多重配列とかハッシュとかダメダメだったので、ついカッ(ry 再起使えよ という話。 関数部分 sub escapeHTML { @_ = @_ ? @_ : $_ if defined wantarray; for (@_ ? @_ : $_) { my $val = $_; my $type = ref $val; if($type eq 'ARRAY'){ if ((scalar @_) >…

H::T::C DEFAULTまたはESCAPE

exclusive or というやつです(何HTML::Template::Compired で DEFAULTとESCAPEの同時指定でエラーが出てしまうので、原因を探りつつも、とりあえず代案。片方だけなら指定しても問題ないので、もう片方を$objTmpl->param で設定する時にごにょごにょする。 …

HTML::Template::Compired で DEFAULTとESCAPEの同時指定でエラー

HTML::Templateから、HTML::Template::Compiredに乗り換えようとしているんですが、 何故か、Template の DEFAULT=.. 設定と ESCAPE=HTML を同時に設定しようするとコケる。Perl側が #!/usr/local/bin/perl use HTML::Template::Compiled; my $temp_str = ()…

既に、自分が買ったかどうかメールで問い合わせる

とある依頼が入った。概要はこんな感じ。 とあるものをコレクションしている。 結構な数になっていて、店で買うときに自分が既に、持ってるか把握できない 持っているものはWEB上からDBに登録する 品名、バーコードなどで既に持ってるか検索が可能 メールで…

Plagger

はてなや、mixiの日記をplaggerで一日一回取得してるわけですが、昨日のバッチが gmail_notify.tt not found error でエラーメールが届いた。 調べたら、assetsのパスを.capn/build/以下のassets にしてた為、昨日Catalystを試験的にインストールした時に、…

Catalyst

YAPCに刺激を受けて、やっつけでCatalystをインストールしてみることにした。 だがしかし、レンサバなので、ユーザ権限しかなく結構面倒でした。 cpan/config.pmに設定していても、--prefix をサポートしてないモジュール とかだったりすると、 wget,tar,per…

HTML::Template 弄り

http://d.hatena.ne.jp/likk/20070403/1175612453 で書いたけど、 HTML::Template::Compiled で とか実装済みなんですね。逆パターンのTTでHTML::Templatを使う、のもあるようです。

YAPC::Asia::2007

いってきました。 トイレ前でPCの充電してたのはワシです。素晴らしかった、と言いたい所だが、英語スピーカーのトークは全くと言う程聞き取れなかった。 英語勉強しないとやばいかもしんない。各セッションについての感想やら纏めなどは、他の人のところが…

YAPC::Asia::2007

一日目は午後から参加これから行って参ります

HTML::Template 弄り中

Mod_Calneh はかなりの勢いで俺々フレームワークで製作中。 とりあえず、View 周りは HTML::Template で行ってます。 TT の方が多機能なんですが、レンサバなので軽さ重視ということで…どっちにしろ、変数のテンプレート置換ぐらいしかやらないので、 と だ…

Speedy::CGI 弄り中

レンサバの環境からして、Mod_perlやFastCGIは断念。 で、Speedy::CGIに白羽の矢を立てました。だが、どうにも変数のスコープというかグローバル変数の扱いをちこちこっと変えないといけない様子。 まぁ、その辺の仕様はMod_perlでも変わらんと思うけど。以…

 今月買ったPerl本

まるごとPerl! Vol.1作者: 小飼弾,宮川達彦,伊藤直也,川合孝典,水野貴明出版社/メーカー: インプレスコミュニケーションズ発売日: 2006/08/24メディア: 大型本購入: 7人 クリック: 120回この商品を含むブログ (115件) を見る結構前から楽しみにしてました。…

 はてなで毎日チェックしていること

http://d.hatena.ne.jp/keyword/Perl 毎日ここからPerlについて言及のあったブログをチェックしています。で、どうも自分と同レベルなヘタレが居ないようで…(ぉちなみに自分のレベルは、Perlプログラミング救命病棟で言う所の 5か6に当たるとおもう。大体自…

たまにはPerlについて書いてみる

家にあるPerl書籍を積んでみた。 書籍紹介とかしてもあんまり意味無さそうなのでそれは割愛。 一番下の実用Perlプログラミングがほぼ積読になってしまってる。あ、あとサーバレンタルしてみた。 カルネ帝国統一記を含め、aisubeki.com/neversite/ 上にあるも…

Perl小技1(配列)

暫く止まってたので書いてみる。 ある程度のPerl慣れしている人なら @配列に、連続したデータを入れる時 @a_f = ('A','B','C','D','E','F',); とはやらずに、 @a_f = ('A'..'F'); とやるだろう。 こういった小技が使えるのが便利 コレをちょっと深く掘ってみ…

文字列どもをぶった切る その2

前回Perlのバージョンが5.6だったため 動かなかった部分を $cutting =~ s/(\p{Hiragana}|\p{Katakana})(\p{Han}|[A-Za-z0-9_])/$1,$2/g; $cutting =~ s/(\p{Hiragana})(\p{Katakana})/$1,$2/g;を修正して$cutting = jcode($cutting)->euc; $cutting =~ s/*1*…

文字列どもをぶった切る

一昨日見つけた Text::BreakIterator を使ってみました。 文字列を文字種ごとに分割するモジュールでたとえば "漢字とかカタカナがmixされた文字列etcを文字種ごとに1万回カットする" のような文字列が有った場合このモジュールを使うと "漢字,とか,カタカナ…