perl
久しぶりにApacheからCGIしてみたんだけど #!/perlbrewpath/perl print "Content-type: text/html\n\n"; print "<H1>test.pl Hello World</H1>\n";でうごかん 誰か教えてくださ
imlib2 ./configure --enable-amd64=no をつけるといける image::imlib2はとりあえずforce install homebrewとかつかってcpanm image::imlib2できなくて嵌る
前の記事に投稿しためろりんはPerlのウェブサーバStarmanでAmon2ウェブアプリケーションを配信しています。 proxyはnginxです。で、今日めろりんを見たら、動いていないんです・・ 原因はさくらVPSが再起動していたから・・ というか悪いのは自動起動する設…
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はとても軽いテンプレートということで、使ってみたいんだけど、はまった。http://search.cpan.org/~typester/Text-MicroTemplate-0.07/lib/Text/MicroTemplate.pm # output the result of expression with automatic escape (tag style…
http://d.hatena.ne.jp/orangevtr/20090208/1234097762 これと同じ件でWebService::SimpleAPI::Wikipedia;を使った際に同じような問題が発生しました。 use URIを利用している場合でperl 5.10以降を利用していない場合にはそうなるかもと#perl-casualで教え…
TokyoCabinetをperlから弄ってみる。 速度重視って事でTokyocabinetにしてみた。 仕様 接続元IPアドレスをチェックして、データベースに無ければデータベースに記録する。 アクセスした時から一定期間(1日とか1ヶ月)を超えたら削除する。 チェック&記録プ…
http://d.hatena.ne.jp/ockeghem/20090307/p1# 制御文字(\x00〜\x1f, \x7f)のチェック # 文字列長のチェック 結局ウェブで本文らしきものを入力する箇所では上記を入力時にチェックすればいいのかな?と思ったけど。(別途出力時やSQL等のエスケープする…
emacs派な自分ですが開発環境ふーん?どうせローカルのしかいじれないんでしょ!とか重いながら試してみた。 イチゴperlがとてもいいのはわかってるんだけど、サーバで動かすようなアプリとかはローカルのイチゴperlではやっぱりきつくて、サーバのファイル…
my ($email_body_text) = $parsed->xpath_findnodes('//*[@content_type=~"^text"][1]'); $email_body_text->body; こんなかんじだと添付ファイル月で、text本文が無い場合、bodyメソッドが無いとエラーにされる 画像はとれるけど、本文がなんでとれないんだ…
だいぶ前に書いたテストが役に立った。 というかやはりテストの無いアプリはありえないなあと再確認した。 なんでかうごかないアプリがあって、うなってたけど、とりあえず前つくったテストかましたらすぐに原因がわかりましたよと。 テスト作るのもそうだけ…
やっぱCatalystスクリプトとおなじ/script/においた方がいいかな。 ん、scriptでいいな。
なのかな?twitter検索からデータを持ってきたいと思ってatomで出力されている検索結果を調べてみたら、FB_XMLCREFで日本語が帰ってきてる。FB_XMLCREFでいいのかな?⽛ってやつ。 Encode.pmにはFB_XMLCREFってオプションがあるからそれで変換すればいいのか…
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ログインできるようにした。 なんかreturn_toがfastcgiの場合URLにfastcgi.plとか付いたりとかいろいろバッドノウハウで偉い時間かかった。 説明ないとわからないかもだけどcatalyst(perl)で作っています。禁煙二日目です。まだ灰皿に…