メメメモモ

プログラミング、筋トレ、ゲーム、etc

Redis.pmでexpireコマンドを実行する

Redis - Perl binding for Redis database - metacpan.orgぱっと見、ドキュメントにもソースにもexpireメソッドみたいなのがないので、 できないのかと思ったけど、できることをツイッターで教えていただけました。@memememomo podには書いてないようですが…

Kansai.pmに行ってきた

Kansai.pmに行って来ました。以下、印象に残っているもの。 ■「Webサービスの作り方」の作り方 本を持っていくのを忘れて、サインがいただけなかったのが残念。 Mojoliciousを使っている人が多かったのが意外だった。 ■Cinnamon ちょうどデプロイツールをな…

MIME-Headerでエンコードした場合、utf8フラグが付いたままになる

Encode.pmを用いてMIMEヘッダ用にエンコードする時、MIME-Headerを指定した場合にutf8フラグが付いたままになる。 use strict; use warnings; use Encode; use Devel::Peek; my $fromname = decode_utf8('メメメモモ <memememomo@gmail.com>'); Dump encode('MIME-Header', $fromna</memememomo@gmail.com>…

Mojo::DOMの&nbsp;の扱い

Mojo::Domでパースすると、&nbsp;がUnicodeのU+00A0(ノーブレークスペース)に変換される。 なのでto_xmlで出力した文字列をUTF-8以外の文字コードでエンコードすると、文字化けを起こしてしまう。以下、再現コード。 use strict; use warnings; use Encode; …

UTF-16に変換する

utf16beかutf16leで指定する。

CPAN関連のサイトやツール

CPAN関連のサイトやツールが色々あってよくわからないのでまとめてみた。 そういえば今ではすっかり「シーパン」と読んでいるが、昔は「くぱぁん」って読んでいた。 Comprehensive Perl Archive Network http://www.cpan.org/CPANサイト。 SearchCPAN http:/…

qudoのワーカーの起動スクリプトについて調べたこと

以下で紹介されているサンプルを元にワーカーの起動スクリプトを作ったので色々調べてみた。 https://github.com/nekokak/qudo/blob/master/sample/init.d/qudo-worker-sample.pl (Qudo::Parallel::Managerというものがあることは最近知った。。。)このスク…

Server::StarterとStarletについて調べたこと

Server::Starter --portオプション Listenするポートを指定する。 (port|host:port) --intervalオプション このオプションで指定された秒数で、再起動したアプリがエラー終了しなければ成功とみなす。 このオプションが短すぎると、エラー終了が検知できない…

正規表現マッチがエラーになる時

以下の場合、正規表現エラーになります。 use strict; use warnings; use utf8; use Encode; my $text = 'test)testetsttest'; my $match = 'test)'; $text =~ s/$match/aaaa/g; $matchの中にある")"が、正規表現の特殊記号として評価されてしまうのでエラー…

Test::Mojoでアップロードテストをする

post_form_okで、fileタイプのカラムは以下のように指定する。 # ファイルの中身をcontentで指定 $t->post_form_ok('/post', { csv => {content => "hogehoge,fugafuga"}, }); # アップロードするファイルパスを指定 $t->post_form_ok('/post', { csv => { f…