Perlメモ
複数のプロセスでロック状態が異常であると判断し，そのうちの 1つがロックを解除したことにより，別のプロセスがロックしたにもか かわらず，先ほどロック状態が異常であると判断したプロセスによってこの正常なロッ クを解除されてしまう可能性があります． この方法の問題点は，異常なロック状態を解除する操作が正常なロック状態をも 解除できてしまうことにあります．逆に言えば，異常なロック状態を解除する操作に よって正常なロック状態を解除できなければ問題ないわけです．そのためにはどうす ればよいのか？ 答えはロック状態が常に変化していけば よいということです．そして，これを実現するのに都合がよいのが rename による方法になります． 最初のスクリプトで説明しますと，ロックファイルが lockfile という 名前のときがロックが解除されている状態で，lockfile987654321 のよう に後ろに
ニコニコ動画をスクレイピング & FLV保存するPerlモジュールを作ってみた。 (Re::Monologue)
毎日楽しくニコニコ動画を見ていたら、ランキングデータをテキストデータで取得して自分ランキングを作りたくなりました。そんなときはPerlだなーとかりかり書いていたら、なんだかモジュールっぽいものになりました。折角だから晒してみます。ツッコミ歓迎。 WWW::NicoVideo [pod] 使い方 use WWW::NicoVideo; my $n = new WWW::NicoVideo( 'mail', 'password'); # ランキング情報を取得する my $data = $n->ranking( span => 'weekly', type => 'mylist', all => 1 ); # 任意のタグ一覧情報を取得する my $data = $n->tag( word => '孔明の罠', type => 'view', all => 0, ); # 動画再生ページの情報を取
WWW::NicoVideo - ニコニコ動画を3倍楽しむためのPerlモジュール
NAME SYNOPSIS DESCRIPTION METHOD new() ranking() entry() tag() save_flv() SEE ALSO AUTHOR COPYRIGHT NAME WWW::NicoVideo - ニコニコ動画を3倍楽しむためのPerlモジュール 2007/8/1現在、ニコニコ動画のページ変更によりエラーが発生しています。近日修正予定 SYNOPSIS use WWW::NicoVideo; my $n = new WWW::NicoVideo( 'mail', 'password'); # ランキング情報を取得する my $data = $n->ranking( span => 'weekly', type => 'mylist', all => 1 ); # 任意のタグ一覧情報を取得する my $data = $n->tag( word =
Perl x Cocoa = CamelBones - Hasta Pronto.org
数日前、LimeChat for OSX がリリースされ(LimeChat は Win で有名な IRC クライアント)、それが RubyCocoa で作られたと聞きました。 Cocoa ってのは Mac OS X 用のアプリケーションを構築するためのフレームワークで、普通 Object-C という C を拡張した言語を使って記述します。しかし RubyCocoa を使うとアプリケーションのメインとなる処理を Ruby を使って書く事が出来るようになるわけです。 RubyCocoa いいなぁ、かっこいいなぁって思い僕もチャレンジしようと思ったのですが、新たに Object-C を覚えるだけではなく Ruby も覚えないといけないのはちょっと時間的に大変。Ruby があるなら Perl でもありそうじゃないかっと思い Google 先生に伺ったところ CamelBones っていう物があると
KYO's Tech - Perlでインストール済みのCPANモジュールの一覧を表示する
$ touch perlmodule.pl $ chmod 755 perlmodule.pl $ vim perlmodule.pl #!/usr/bin/env perl use strict; print "Content-Type: text/html;\n\n"; print<<"EOF"; <html> <head> <title>Installed Module List</title> </head> <body> <div style="border: 1px solid #ccc"> <br> ■CPANモジュールインストール方法<br> <br> \$ sudo perl -MCPAN -e shell<br> cpan> install <u>Module-Name</u> </div> EOF print "<ul>\n"; print qq|<li><a hre
Plagger for Mac
Plagger を Mac で使うページ。 Plagger を簡単にインストールする Plagger 本体と、Plagger が依存している CPAN モジュールをまとめました。 コンパイルが必要なものも Universal Binary としてコンパイル済みなので、 tarball を展開するだけで使えます。 対応している環境は Mac OS X 10.4 (Intel, PPC) です。 % tar zxvf plagger-0.7.17-1.tar.gz ... % cd plagger-0.7.11-1/ % ls -F bin/ cpan/ % (config.yaml を書く) % ./bin/plagger -c config.yaml 動作しないプラグイン 以下のプラグインについては、 依存している CPAN モジュールを同梱していないので、 そのままでは動きません。 Ag
CPAN::Mini で CPAN のミラーをローカルに: blog.bulknews.net
CPAN::Mini で CPAN のミラーをローカルに DECON で話してきたネタですがちょっと詳しく。 飛行機やら電車の中やらでオフラインハックするときに（たまに）問題になるのが CPAN モジュールの不足です。「あぁ、このマシンにはあのモジュール入ってねぇ～」とかでハックが滞るのは萎えます。というわけで minicpan。CPAN::Mini というモジュールで、CPAN モジュールの最新版だけを持ってきてミラーをつくることができます。 導入は簡単で、CPAN から install CPAN::Mini すると minicpan というコマンドが付属してきます。コマンドラインから使うには、 > minicpan -r http://ftp.funet.fi/pub/languages/perl/CPAN/ -l ~/minicpan とかすれば finet から HTTP で同期で
CPAN::Mini をインストール - Hasta Pronto.org
時間が出来たんで前々から気になってたモジュール CPAN::Mini をインストールしてみた。年末にかけて外に出かける事が多くなりそうなんで、開発環境が全てローカルにあった方が良さそうだって思ったのが理由だけど、僕自身ヘビーにモジュール使う方ではなかったりするw Perl は今現在10,000個以上のモジュールがあるみたいなんだけど、最新版が全部ローカルで保持出来るモジュールがあって、それがこの CPAN::Mini らしい。miyagawa さんが DECON でしゃべってくれたんで知ることが出来たんですけど、ネットに繋がらない環境にいるときにモジュールが必要になったとかいう場合に役に立つんでしょうね。ネットに繋がる状況にあってもローカルに保持していればインストールも早くなるって利点もありそう。 CPAN::Mini を cpan shell でインストール とりあえず MacOSX で
Net::Amazon のメモ
Net::Amazon のメモ 2006-10-17-2 [Programming] PerlでアマゾンWebサービスをいじるときは、 いつも、LWP で XML 取ってきて正規表現によるパターンマッチや XML::Simple を使ってごにょごにょしているんだけど、 「CPANにあるなら使おうキャンペーン」中なので、 いまさらながら、某アルファギーク氏が昔「一番好きなPerlモジュール」 として挙げていたことで知られる Net::Amazon を試してみる。 Cache::File[2006-10-17-1]と連携できるのが嬉しいね。 Michael Schilli / Net-Amazon-0.35 - search.cpan.org http://search.cpan.org/~mschilli/Net-Amazon-0.35/ ところで、locale を jp にすると、発売日(
mn's log: YAPC::Asiaメモ（その4）
Martyは自分で書いた日本語のプレゼンテーションスライドで講演。日本語を話す「外人」はたくさんいるものの、これだけ読み書きできる外人は貴重であります。 演題はDamian Conwayの著書、Perl Best Practicesのもじり。 私にとってのいいPerlはきれいだ（遠くから見ても） 有用だ 悪いPerlは読むのが難しい 醜い 有用だ（だからなくしたくてもなくせない） もろい（変更するとバグが出る） Javaが好きじゃないバカでも使えるように設計された言語（会場拍手） バカな人でも危険なコードは書きにくいから Perlが好きだ頭がいい人のための言語。制限が少ない。言語の挙動まで変えられる バカでも使えるけど（そういう例がたくさんあるCPANってサイトは知ってる？） Javaは成功しPerlはそれほどでもない。なぜ？Slack's Law＝会う人の95％はバカだ この会場で、頭が
mizzy.org : Catalystでajax - 実践編
Catalystでajax - 実践編 Posted by Gosuke Miyashita Sat, 30 Apr 2005 13:28:59 GMT 概要 前回のエントリに関して、MM/Memoで、「うーん、便利なのかなー。perl（とかのサーバサイド）コード中にjavascriptが混ざるのって嫌な気がするけど。」と書いている方がいらっしゃったのですが、ちょっと勘違いをされているような気がします。自分でJavascriptのコードを一切書かずに済ませるための、HTML::PrototypeならびにCatalyst::Plugin::Prototypeですから。 なので、今回は実践編っつーことで、Javascriptを一切書かずにajaxなウェブアプリ（ってほどのものではないけど）をCatalystで作ってみたいと思います。といっても、けんたろさんのCatalyst で作る簡単 Web
戯れ言 / 2007-04-05
■ YAPC::Asia 2007 Tokyo 2日目 [Perl] いや〜盛り沢山な一日でした。以下、備忘録。 ■ web apiで遊び倒す OpenID + asterisk で VoIP のデモ予定が失敗。あせる発表者 (^-^; それはさておき、Firefoxの拡張に EC2 UI があることを知る。こういう情報ってどこから得てるんだろ？ 世の中には、EC2 をバックエンドに使ったサービスもいくつか出ているそうです。 - muckOS - RightScale 発表資料 http://s3.amazonaws.com/yapcasia2007tokyo/webapi.pdf ■ Patterns in Perl Perl における(デザイン？)パターンについて。ちと関連知識を仕入れてから、再度ストリーミングで復習だな…… 発表資料 http://www.houseabsolute.
Index - LAPISLAZULI HILL#diary
http://d.hatena.ne.jp/lapis25/archive?word=%2a%5b%2301perl%2doo%5d ひとまずここから 内容案列挙 Perlにおけるオブジェクト指向 もっと詳しく 基本の詳細 クラス メソッド オブジェクト その他の機構? コンストラクタ new デストラクタ DESTROY 継承 @ISA use baseプラグマ SUPER 多重継承 UNIVERSAL その他の手法? アクセサ AUTOLOAD カプセル化? _アンダスコアから始まるサブルーチン Perlではオブジェクト指向もTMTOWTDI Hashベース以外のやり方 数々の手法 数々のモジュール いまどきのやり方（ここはかなり自信がないな） 継承 Class::Data::Inheritable NEXT Class::C3 アクセサ Class::Accessor カプセル化 D
顔にエフェクトをかけてプライバシーを守るWebサービスの作り方
最近、OpenCVを使った顔認識が流行っているようです。 顔認識ができるということは、アレができるわけです。 「顔にモザイク！」 Web上で写真を公開するときは、プライバシーを守る必要があるため、顔は隠しておいた方が良い場合があります。 そんな時に、「顔にエフェクトをかけるWebサービス」があれば便利です。 例えば、こんな風に… （spiritlooseのはてなダイアリーさんの写真を使わせてもらいました） というわけで、今回は「顔にエフェクトをかけてプライバシーを守るWebサービスの作り方」をまとめてみます。 1.OpenCVインストール 2.Image::ObjectDetectインストール 3.OpenCV、Image::ObjectDetectのインストールにつまいたとき 4.Imagerを使いこなす 5.顔を塗りつぶすサンプルプログラム 6.顔に特定の画像を貼り付けるサンプルプログ
OpenCVを使って画像の物体認識をするPerlモジュール作った - spiritlooseのはてなダイアリー
作った。 http://search.cpan.org/dist/Image-ObjectDetect/ http://d.hatena.ne.jp/darashi/20070223/1172232765でRubyの拡張ライブラリを公開されていたので、こりゃやらなくちゃ・・・と思った次第です。すみません。 こんな感じで使えます。Imagerで顔を囲んでみた。 #!/usr/local/bin/perl use strict; use warnings; use Imager; use Image::ObjectDetect; my $file = 'picture.jpg'; my $image = Imager->new->read(file => $file); my $cascade = '/usr/local/share/opencv/haarcascades/haarcascad
PerlによるCSVファイルの高速集計 2：CodeZine
open(OUT, '>result.csv'); open(IN1, 'enquate.csv'); # アンケートデータを1行ずつ処理する while(my $line1 = <IN1>){ # 1行を4つに分ける chomp($line1); my ($id, $ans1, $ans2, $ans3) = split(/,/, $line1, 4); # この行にマッチする顧客データを検索する my $name = ''; my $address = ''; open(IN2, 'address.csv'); while(my $line2 = <IN2>){ chomp($line2); my ($tmp_id, $tmp_name, $tmp_address) = split(/,/, $line2, 3); if($tmp_id eq $id){
QR Codeを作るならImager::QRCodeを使おう！
今まで GD::Barcode::QRcode の独壇場だった QR Codeを Perl で作るためのライブラリですが、ここで一つ対抗馬として、Imager::QRCodeを作って、CPAN に上げてみました。 G::B::QRcode と比べて良いところは以下。 出来上がったものはそのままImagerのオブジェクトになっているため、出来た画像に対していろいろできます。 白黒の部分の色を Imager::Color で指定できるようになっていますので、白地に緑とか青とか赤とかの QR code ができちゃったりします。 GDなどのインストールはいりません。libqrencodeという小さなライブラリを入れるだけでさくっと動きます。 ただ、ぶっちゃけちゃうと GD::Barcode::QRcode よりも速度が若干遅いです。 以下ベンチマークになります(ベンチマークプログラムは最後に載せて
ITmedia エンタープライズ：第3回 XML::SimpleであらゆるXML文書を料理する (1/2)
第3回 XML::SimpleであらゆるXML文書を料理する：作って学ぶ、今どきのWebサービス（1/2 ページ） RSSにおけるXML::RSSのように、専用のモジュールがある場合にはそれを使えばよいのですが、そうでない場合は汎用のXMLパーサーモジュールを使ってパースすることになります。今回は、XML::Simpleを使ってあらゆるXML文書を料理できるようにしてみます。 前回まででXML::RSSによるRSSの料理方法は分かったとして、ではRSS以外のXML文書を料理する場合にはどうしたらよいのでしょう？ RSSにおけるXML::RSSのように、専用のモジュールがある場合にはそれを使えばよいのですが、そうでない場合は汎用のXMLパーサーモジュール*を使ってパースすることになります。 XML文書からPerlのデータ構造を作るXML::Simple Perlの代表的なXMLパーサーである
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://www.dowasure.net/imagemagick/ope_adaptivesharpen.html
http://www.tyzoh.jp/modules/weblog/details.php?blog_id=1300