岩手からこんにちは ☆彡 perl とかウェブ系なブログ

はてなダイアリーからひっこしましたよ http://d.hatena.ne.jp/rosiro

perl

perlbrewでインストールしたperlがCGI経由だとうごかん><

久しぶりにApacheからCGIしてみたんだけど #!/perlbrewpath/perl print "Content-type: text/html\n\n"; print "<H1>test.pl Hello World</H1>\n";でうごかん 誰か教えてくださ

macbook pro 13 retina 買っていろいろはまったメモ

imlib2 ./configure --enable-amd64=no をつけるといける image::imlib2はとりあえずforce install homebrewとかつかってcpanm image::imlib2できなくて嵌る

Starman自動起動とServer::Starter

前の記事に投稿しためろりんはPerlのウェブサーバStarmanでAmon2ウェブアプリケーションを配信しています。 proxyはnginxです。で、今日めろりんを見たら、動いていないんです・・ 原因はさくらVPSが再起動していたから・・ というか悪いのは自動起動する設…

Algorithm::NaiveBayesで2ch系まとめサイトをカテゴライズしてみた

2ch系まとめサイトのアンテナ?的な新着サイトは結構あるんですが、勉強もかねてAlgorithm::NaiveBayesでベイズ使ってカテゴライズしてみたメモ。Algorithm::NaiveBayes http://search.cpan.org/~kwilliams/Algorithm-NaiveBayes-0.04/lib/Algorithm/NaiveBa…

メモ

twitter関連 短縮記述 a-zA-Z0-9 1文字で62種、2桁で3844,3桁で238328,4桁で14776336(1千4百万) ハッシュタグに短縮記述 #Ad0Aみたいに。 でもそれだと普通のハッシュタグも含まれるので、識別できる記号をつけるべき #@_みたいなの?…

Text::MicroTemplateではまったこと

Text::MicroTemplateはとても軽いテンプレートということで、使ってみたいんだけど、はまった。http://search.cpan.org/~typester/Text-MicroTemplate-0.07/lib/Text/MicroTemplate.pm # output the result of expression with automatic escape (tag style…

use utf8とURIモジュール

http://d.hatena.ne.jp/orangevtr/20090208/1234097762 これと同じ件でWebService::SimpleAPI::Wikipedia;を使った際に同じような問題が発生しました。 use URIを利用している場合でperl 5.10以降を利用していない場合にはそうなるかもと#perl-casualで教え…

TokyoCabinetをperlで使ってみた

TokyoCabinetをperlから弄ってみる。 速度重視って事でTokyocabinetにしてみた。 仕様 接続元IPアドレスをチェックして、データベースに無ければデータベースに記録する。 アクセスした時から一定期間(1日とか1ヶ月)を超えたら削除する。 チェック&記録プ…

ウェブアプリケーション的一般的な文字列チェック

http://d.hatena.ne.jp/ockeghem/20090307/p1# 制御文字(\x00〜\x1f, \x7f)のチェック # 文字列長のチェック 結局ウェブで本文らしきものを入力する箇所では上記を入力時にチェックすればいいのかな?と思ったけど。(別途出力時やSQL等のエスケープする…

Perlの開発環境Padreを試すも

emacs派な自分ですが開発環境ふーん?どうせローカルのしかいじれないんでしょ!とか重いながら試してみた。 イチゴperlがとてもいいのはわかってるんだけど、サーバで動かすようなアプリとかはローカルのイチゴperlではやっぱりきつくて、サーバのファイル…

Email::MIME::XPath 携帯で添付ファイル+本文空白だとbodyがとれない

my ($email_body_text) = $parsed->xpath_findnodes('//*[@content_type=~"^text"][1]'); $email_body_text->body; こんなかんじだと添付ファイル月で、text本文が無い場合、bodyメソッドが無いとエラーにされる 画像はとれるけど、本文がなんでとれないんだ…

Test::Moreでテスト

だいぶ前に書いたテストが役に立った。 というかやはりテストの無いアプリはありえないなあと再確認した。 なんでかうごかないアプリがあって、うなってたけど、とりあえず前つくったテストかましたらすぐに原因がわかりましたよと。 テスト作るのもそうだけ…

catalystアプリに関連するスクリプトはどこにおくべきか

やっぱCatalystスクリプトとおなじ/script/においた方がいいかな。 ん、scriptでいいな。

Twitter検索で帰ってくる文字列はFB_XMLCREF?

なのかな?twitter検索からデータを持ってきたいと思ってatomで出力されている検索結果を調べてみたら、FB_XMLCREFで日本語が帰ってきてる。FB_XMLCREFでいいのかな?⽛ってやつ。 Encode.pmにはFB_XMLCREFってオプションがあるからそれで変換すればいいのか…

Image::Imlib2ではまる

my $image = Image::Imlib2->load($upload_target); if($image->width > $width){ $image->create_scaled_image($width,$height); $image->save($profile_image); } で動作しなかった(正しくはサイズが変わらない) my $image = Image::Imlib2->load($uploa…

OpenIDとOAuthでログインできるように

ようやくOpenIDとOAuthログインできるようにした。 なんかreturn_toがfastcgiの場合URLにfastcgi.plとか付いたりとかいろいろバッドノウハウで偉い時間かかった。 説明ないとわからないかもだけどcatalyst(perl)で作っています。禁煙二日目です。まだ灰皿に…