最速インターフェース研究会 :: PerlでIEの履歴にアクセスする方法
こんなんで出来た。 use strict; use Win32::OLE; use Data::Dumper; my $wshell = Win32::OLE->new('Shell.Application') or die "oops\n"; my $HISTORY_FOLDER = 0x22; my $history_dir = $wshell->Namespace($HISTORY_FOLDER); my $url_list = scan_folder($history_dir, []); print Dumper $url_list; sub scan_folder{ my ($folder, $ref) = @_; my $items = $folder->items; for(my $i = 0;$i < $items->count; $i++){ my $item = $it
naoyaのはてなダイアリー - coLinux 上の Emacs の kill-ring の内容をWindowsのクリップボードと同期する by Perl
Emacs を Meadow をやめて coLinux 上のものを PuTTY 経由で使うようにしたんですが、Emacs で killing にいれたものを Windows でペーストしたい、と思ったときに Meadow ですんなりできたそれができずにちょっとストレスになってました。そんな折、 http://d.hatena.ne.jp/odz/20061125/1164433815 http://d.hatena.ne.jp/odz/20061125/1164437987 Great Job! こういうのを Hack っていうんでしょうなあ。しかし、Python ! ここはいっちょ Perl で。 まず Windows 側に立てるサーバーを実装する。 ActivePerl + ppm で POE と PoCo::Server::IKC がすんなり入ったのでこれを使う。 クリップボードへの
被favとコメント数に関係はあるのか。 - あそことは別のはらっぱ
さて、SBM論とかを読んでいると、「面白いコメントをつけてる人をお気に入りに」なんて話もあるので、被favの多い人がどのくらいコメントを付けているか見てみました。 被fav順位 id コメント数 被fav ave. 1 b:id:naoya 30 1038 2 b:id:umedamochio 2 703 3 b:id:jkondo 2 690 4 b:id:kanose 8 497 5 b:id:finalvent 3 426 6 b:id:miyagawa 2 335 7 b:id:laiso 0 315 8 b:id:otsune 4 314 9 b:id:Hamachiya2 15 225 10 b:id:lovelovedog 30 212 9.6 11 b:id:gotanda6 22 202 12 b:id:netafull 20 197 13 b:id:higepon 19
perl - Livedoor Reader と はてブのmashup : 404 Blog Not Found
2006年10月04日22:15 カテゴリBlogosphereLightweight Languages perl - Livedoor Reader と はてブのmashup + というわけで、こさえちゃいました。 はてなブックマーク - 404 Blog Not Found:perl+javascript - ブックマーク数の合計値をJSONPで medtoolz 絶対誰かランキングとか作りそう Hatena Bookmark Ranking by Livedoor Reader Ranking 要は、Livedoor Reader の登録数ランキングをはてブ登録数でsortしなおしたものです。 CGIとかではなく、crontabで一定時間ごと呼び出すタイプです。現時点では一時間ごとの更新。 [N] サイトの被ブックマーク数を表示する「はてなブックマークカウンター」 試しにトップペー
ITmedia エンタープライズ：LAMP vs. LAMP──mod_perlとmod_phpのパフォーマンス比較
MySQLテストでは、5000件のレコードを含むテーブルを読んで更新するHTTPリクエストを1つ実行した。MySQLとのやり取りには、標準PHPインタフェースとPerl DBIを使った。テストに使ったテーブルの構造は次のとおり。 +----------+----------+------+-----+--------+----------------+ |フィールド| タイプ | Null |キー | 既定値 | そのほかの特性 | +----------+----------+------+-----+--------+----------------+ | id | int(11) | | PRI | NULL | auto_increment | | junktext | char(30) | 可 | | NULL | | +----------+----------+------+
Rabin Karp アルゴリズムでコード重複の検出 blog.bulknews.net
Rabin Karp アルゴリズムでコード重複の検出 YAPC::NA で会った Fotango の Norman Nunley がつくってる Algorithm::RabinKarp モジュールが面白げです。 Rabin Karp 文字列探索アルゴリズム (wikipedia) を使って文字列のハッシュ（ダイジェスト）をチェックし、同一の値を示す部分を重複しているとみなしてレポートしてくれます。つまり、プロジェクト内のコードのコピーペーストを検出するツールとして使えるというわけ。 ためしに Plagger で試してみた結果は rabin.txt のようになりました。プラグインの register_hook や CustomFeed での Feed オブジェクトの生成など、イディオム的に使う部分が大半になってしまっていますが、いくつか実際コピペで再利用しているコードが検出できています。 c
Test::Class - naoyaのはてなダイアリー
最近 Perl でテストを書くときに Test::Class を使ってます。(もしかして常識?) これまでは *.t で Test::More をそのまま使ってたけど、テストが大きくなってくるとコードが分かりにくくなったり、自分であれこれしなきゃいけないことが多くてめんどくさい。 Test::Class は xUnit スタイルで Perl のテストを書けるフレームワークです。xUnit な Perl 実装といえば Test::Unit もあるんですが、テスト用の関数も Test::Unit の流儀に従う必要があってちょっと嫌。Test::Class は Test::More と Test::Harness とか、普段使い慣れてる Perl らしいテストスタイルを使いつつ xUnit できるという点が良いです。 使い方ですが、 Test::Class を継承したテストクラスを作り テスト用
ActivePerl で PerlScript と Google Maps: blog.bulknews.net
ActivePerl で PerlScript と Google Maps Google Maps を ThinkPad 加速度センサーで操作 というナイスなハックをやってみたわけですが、ちょっと技術的な部分を解説。 まず ThinkPad の加速度を読む部分は、Google で検索すると、 http://www.hirax.net/misc/AccelerometerThinkpad/AccelerometerThinkpad.h http://blog.netswitch.jp/files/leap-frog.zip あたりのコードが見つかります。C で書くと、 if( !DeviceIoControl( hFile, 0x733fc, NULL, 0, // via IOCTL(0x733fc) (void *)&AccelerometerData, 0x24, &ulRead, N
Control Google Maps via ThinkPad tilt
bulknews.typepad.com Tatsuhiko Miyagawa's blog to discuss mostly tech and nerdy stuff. Another day, another hack. Here's a demo that controls Google Maps using ThinkPad Hard Drive Active Protection sensor. You tilt your ThinkPad and Google Maps roll over. Pretty cool. というわけで ThinkPad ハックづいてるこの頃（といっても2日ですが）、また面白いハックを1つ。Google Maps の地図を、ThinkPad を傾けてナビゲートします。まずはデモをどうぞ。 My recommendation is to choose
Plaggerをインストールしてみてわかったこと - はこべにっき ♨
やっとこPlaggerを使えるところまでたどり着けた。livedoor Readerの更新FeedがGmailにどさっと届いたよ。おもしろい。 さて、Plaggerにたどり着くまでには、いくつものモジュールインストールとそのテストの失敗、たくさんの妥協、汗、涙、睡眠不足などの困難が伴ったわけだ*1。そのおかげでCPANやPerlについてわかったことをあげてみることにした。 CPANは便利でおもしろい WWW::YouTubeとかHatena::FormatterとかMac::Glueとか。もっとセンセーショナルなモジュールもたくさんあるよね。CPAN漁ったりPlaggerの依存で入るモジュールを眺めていると、こんなのもモジュール化されてるのか！っておどろくことが多い。もうほんと自分でコード書く必要あるのかというほどの充実ぶり。 CPAN漁りにはモジュールに関するいろんな情報があつまったCP
最速インターフェース研究会 :: CPAN最速検索
作りました。 http://cpan.ma.la/ Firefox用パネル。ブックマークしてプロパティ→サイドバーに読み込む。 http://cpan.ma.la/panel.html 全モジュールのリストを改行で区切ったテキストファイルを受信してクライアントサイドで検索させています。クライアントサイドで検索させているのでサーバー負荷は全くかかりません。 仕組み省メモリ、高速に動作するように工夫してあります。 - 配列に変換せずに一つの巨大な文字列から検索 → 切り出し。 - クロージャで次の検索結果を取得する関数を保持しておいて、描画が必要になった時点で検索を実行。 -- その代わりにトータルのヒット件数がわかりません。 今の所の機能- 上下で選択、エンターでperldoc表示、マウスクリックでもperldoc表示。 - 正規表現がおかしくなければ、そのまま使えます。 -- 例えば \d
Perl モジュールの一括更新 - Ceekz Logs (Move to y.ceek.jp)
Perl を使っているので CPAN には、日々お世話になっています。しかしながら、自動的にアップデートする方法を知らなかったので、そのへんが怠りがちでした。暇なの時に CPAN を巡回する有様です。 Perl モジュールをもっと簡単に管理できないかと思って調べていたら、案の定、一括でアップグレードできるみたい。 $ perl -MCPAN -e "CPAN::Shell->r" このコマンドで古くなっているモジュールを確認できます。ポイントは、コアモジュールや CPAN Shell を利用せずにインストールしたモジュール（CPAN にあるもの）も確認できる点です。これは非常にありがたい。 $ perl -MCPAN -e "CPAN::Shell->install(CPAN::Shell->r)" このコマンドで古くなっているモジュールを一括で更新できます。 もちろん、バージョンの違いで
plagger - otsune FreeStyleWiki
Plagger 注意 このページは単なるインストール手順のメモです。Plaggerは開発が活発なので、ここの情報は古くなっていることが多いです。 Plaggerについての正確な説明は Plagger公式サイト Shibuya.Plaggers Plagger Plugin はてなブックマーク - タグ plagger などを参照してください。 概要を知りたい場合は公式サイトのPresentationsにある「YAPC::Asia 2006 Tokyo」「Plagger Conference 1 Keynote」のスライドを参照するとよいでしょう。代表的なデモとしてElementary, ... Googleで「はらへった」と検索するとピザが届くようにするまでがあります。 解説 Plaggerは、mixiやBloglinesやWebサイトなど様々なところからデータを取って来て、いろいろなフィ
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Amazon.co.jp： Perlベストプラクティス: 本: Damian Conway,クイープ
[観] Windows 環境に plagger をインストールする場合の注意点
The CPAN Search Site - search.cpan.org
perlに関する玄人向けTIPS集【1】 - SatoWiki
Perl.com: Catalyst の翻訳
続・初めてのPerl - Perlオブジェクト、リファレンス、モジュール
Amazon.co.jp： 初めてのPerl: ランダル・L. シュワルツ,トム フェニックス,Randal L. Schwartz,Tom Phoenix,近藤 嘉雪
