del.icio.us から同期してるはてブのタグが変なことに - YAA's personal log (2008-02-27)
_ 日記溜めすぎ なんか忙しかったり、めんどくさかったりで、1ヶ月以上日記書いてなかった。 ローカルにはちょこちょこ書いてたりするので、 そのうち補完していく所存であります。 _ del.icio.us から同期してるはてブのタグが変なことに plagger を使って del.icio.us から同期してるんだが、 はてブのタグが変なことになっているのに気付いた。 「apple mac」みたいに、space で split する前の状態でまるごとタグになっちゃってる。 これは本来、 P::P::Filter::DeliciousFeedTags を使えばよろしく split してくれる。 でも使ってるのになぜかうまくいってない。 調べてみたところ、 http://del.icio.us/rss/ の feed が http://feeds.delicious.com/rss/ にリダイレク
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
hide-k.net#blog: MooseのPODの翻訳始めたよ
YAPCでのMichael Schwernのトーク、"perl is unded"を聞いて、Perlは確かに死んじゃいないけど新しい人材は必要だよねって思ったわけです。 で、今年のYAPCには会社の若い子たちを誘って行ったんだけど、口を揃えて言うのが難しい上にさらに英語だからたまらんと。 気持ちは分からんでもないんですよ。僕もあまり得意な方じゃないし。 で、未熟な僕でも何かできないかなーと思ったのがpod(マニュアルね)の翻訳。 しかもMooseなら、敬遠されがちなPerlのややこしいオブジェクト指向プログラミングを分かりやすく書けるので、他の言語の人にも受け入れられやすいかなーと。 まぁ単に今はやりだってだけだけどね(Yapooさん曰く来年にはないらしいけど)。 で、やったもん勝ちってことで、つたない翻訳だけどとっとと始めちゃいました。 とりあえず、日本人が多いってことでcod
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
hide-k.net#blog: CatalystCon#1
CatalystCon#1に行って来たよ。 一応スピーカーとして話してきたよ。 で、感想。 MVC論 - dann とってもJava的で懐かしかった。 Controller::Resouces - ikasam_a 出て意外と早く触ってたけど、やっぱ便利 ROAって妙に説得力がある $c Catalystの歴史の話が面白かった Pluginはなるべく作らない方向で やっぱり時間足りなくて途中で加速装置が働いてた コピペをしないための10の方法 - typester catalyst.plを最初に否定した人なので説得力あった 最後のほうは苦しかった Model::Apadtor - hide-k ここにあげておいた Catalyst☆Complex - tokuhirom Sledge::Request::Catalyst どっちがウケか結論が出てなかったので気持ち悪い HTTP::Se
ゆーすけべー日記: 日本のAV女優一覧を取得するPerlモジュール「Acme::JapaneseAvActress」をCodeReposに
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
リストの要素数を取得する - Unknown::Programming
配列ではなくてリストの要素数を取得するのにはどうすればよいか？というお話。 まず配列の場合はスカラコンテキストで評価するだけなんでとても楽。 my @data = qw/ a b c d /; my $count = @data; # 4 ではリストの場合はどうなるか？ 配列と同じように書くなら my $count = qw/ a b c d /; こうなるが、これは大間違いである。 リストをスカラコンテキストで評価すると最後の要素が返ってくるのでこの場合$countには「d」が入る。 とするならば一度配列で受け取り、その後にスカラコンテキストで評価するのが一番スマートなのかもしれない。 my $count = my @tmp = qw/ a b c d /; # 4 しかしながら要素数を取得するだけなのに@tmpを広いスコープに置くのが嫌なのであればdoを使って囲ってしまうのが吉であろう
ブログの画像から顔写真だけを抜き出してRSSにする
このエントリにあるように、大好きなグラビアアイドルのブログをスクレイピングして画像だけダウンロードしてそれをRSSで配信するようにして以来、非常に快適なおっかけライフを過ごしております。 しかし、ひとつだけ問題が。 ブログには顔写真以外の画像もアップロードされる訳で、そんな画像を見てもあまり面白くないのです。 なので画像を顔認識させて顔写真らしきものだけをRSSにしてみようと思い、ググったらOpenCVというものを見つけたのです。 さらにCPANモジュールまであったので、簡単に顔写真だけRSSを実装できそうだと思ってやってみました。 で、さくらのレンタルサーバーにOpenCVをインストールして実験。 ※インストールはここを参考にしました。 で、プログラムを修正してImage::ObjectDetectが顔と認識したものだけを配信させてみたら、思ったより精度よく動いていて満足です。 これでさ
perl - 配列をハッシュキーとして扱う : 404 Blog Not Found
2007年10月24日20:00 カテゴリLightweight Languages perl - 配列をハッシュキーとして扱う コメント欄にも「教科書解」がなかったので。 Perl勉強中 - YoshioriのBlog #!/usr/bin/perl use strict; use warnings; my @array = qw/1 2 3/; my @array2 = qw/1 2 3/; my %hash; $hash{@array} = 'foo'; # ちょっと変更 print $hash{ @array2 }; # foo みたいなこと出来ないのかな？ 教科書解は、こちら。 $hash{ join($;, @array) } = 'foo'; これは、 $hash{1,2,3} = 'foo'; $hash{qw/1 2 3/} = 'foo'; という、配列リテラルをキーに
hide-k.net#blog: ciscolet
というわけでCatalyst + Web::Scraperを使ってamazletのCISCO RECORDS版ciscoletを作ってみました。Web::Scraper++ ciscolet こんなHTMLを作ってくれます。
)
Perlモジュール/インストール(CPAN) - Walrus,Digit.
いくつか、分かっていることとわかっていないことがあります。 以下に分かっている範囲でのポイントを挙げます。 Timeout for inactivity during Makefile.PL? [0]では0(デフォルト)にする ここでTimeoutを指定してしまうと、完了またはタイムアウトの通知にalarm関数を使います。 alarm関数はActivePerlでは実装されていないため、エラーになります。 makeは、perl -V:makeが返すものを使う makefile.plはperl -V:makeが返すmakeプログラムにあったmakefileを作るようです。 perl -V:makeがnmakeを返す場合、dmakeを使うとエラーが発生します。 これ以外の設定は、実施者の任意で構いません。 私が意識して行った設定は以下のものです。 Select as many URLs as y
find コマンドの -mtime は 1 でも2日前のファイルが対象
日頃より楽天のサービスをご利用いただきましてありがとうございます。 サービスをご利用いただいておりますところ大変申し訳ございませんが、現在、緊急メンテナンスを行わせていただいております。 お客様には、緊急のメンテナンスにより、ご迷惑をおかけしており、誠に申し訳ございません。 メンテナンスが終了次第、サービスを復旧いたしますので、 今しばらくお待ちいただけますよう、お願い申し上げます。
Perl OO におけるオーバーヘッド - naoyaのはてなダイアリー
フレームワークを考えるにあたって、気になる部分のベンチマークを取ってみた。 ポイントは次の３点。 関数の呼び出し方法： Class::func() と Class->func() 形式 クラスを継承した場合のペナルティ： Class->() と SuperClass->() 連想配列への直接アクセスと、アクセサ経由のアクセス Perl における関数型の実装と OO の実装で、関数呼び出し/メソッド呼び出しでどの程度のオーバーヘッドの差があるかをベンチマークした結果。勉強になります。結果としては関数型に対して OO の方が数倍遅い、という結果。 それで、結論の方なのですが 本来なら、アプリケーションより下位にあたるライブラリ関連は、オブジェクト化されて mod_perl 上で共有されるメリットはあるかもしれないが、アプリケーションの上位にあたるフレームワークは、mod_perl 上で共有され
関数呼び出しとクラス継承のベンチマーク - Daio Today
関数呼び出しとクラス継承のベンチマーク フレームワークを考えるにあたって、気になる部分のベンチマークを取ってみた。 ポイントは次の３点。 関数の呼び出し方法： Class::func() と Class->func() 形式 クラスを継承した場合のペナルティ： Class->() と SuperClass->() 連想配列への直接アクセスと、アクセサ経由のアクセス ベンチマーク環境: perl, v5.8.6 built for darwin-thread-multi-2level / Mac OS X 10.4 (Tiger) / Apple Computer, PowerBook G4 12", 867MHz, 640MB RAM まず、コード１。 #!/usr/bin/perl package Parent; use strict; use warnings; sub pid { r
ひげぽん OSとか作っちゃうかMona- - [Perl] XS利用でPerl高速化
（追記：2009/03/25） id:tokuhirom さんからコメントを頂きました。このベンチマークは問題があるそうです。 http://d.hatena.ne.jp/higepon/20050615/1118829090#c （追記：終わり） PerlにはC言語で書かれた関数を呼び出すためにXSという仕組みが存在します。 一部CPANモジュールでも使われているためご存知の方も多いと思いますが、今回はこのXSの簡単な利用方法を紹介したいと思います。 なおXSは、はてなでも使用しています。 さてXSモジュールを使うとうれしい事は C言語で書くことにより、処理が高速になる可能性がある 既存のC言語ライブラリ資産をPerlから利用することができる Perlがあまり得意でない、メモリ内などに存在するビット単位での細かなデータ構造を、あれこれできる などが挙げられると思います。 今回は、高速化に
![ひげぽん OSとか作っちゃうかMona- - [Perl] XS利用でPerl高速化](https://cdn-ak-scissors.b.st-hatena.com/image/square/c8c4bb60cf47745b4128808788a15216f5f5dcdf/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F13208692334729888502%2F17391345971656215022%2F1529549377)
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perl逆引き辞典 - サンプルコードによる Perl 入門
http://antipop.gs/perl/DesignPattern/
Index of /~jkondo/DesignPattern
A single file Wiki -- Wifky! - FrontPage
http://www.lost-season.jp/mt/archives/2005/06/php_oop_catalys_1.html