[Perl][微エロ注意]画像収集のときにいつも同じイディオムを書いているのをやめたい | ブログが続かないわけ
画像収集スクリプトはみんなよく書くスクリプトのひとつだよね。 代表的な例としてこちらを見てもらおう。 ワンライナーで画像収集 とりあえずワンライナーの方はおいといて、下にあるスクリプト(引用)#!/usr/bin/perl use strict; use LWP::Simple; use File::Basename; my $content = get(shift); my @l = $content =~ m{<a.*?href="(http://[^"]+¥.jpg)"}gi; map{mirror($_,basename($_))} @l; 十分シンプルでいいんだけどmirror メソッドの第2引数にファイル名を与えなければいけないのが面倒だと思ったことはない？毎回、File::Basename でファイル名を決めて、それを渡すってことをしてなーい？まあ、慣れればどうってことないん
![[Perl][微エロ注意]画像収集のときにいつも同じイディオムを書いているのをやめたい | ブログが続かないわけ](https://cdn-ak-scissors.b.st-hatena.com/image/square/2302e44c95c7e474fefb218540004f95dc47a4bb/height=288;version=1;width=512/https%3A%2F%2Fimaging.jugem.jp%2Ftemplate%2Fimg%2Fjugem_og-image.png)
[Perl]クラスに同じ誕生日の子供が1組以上いる確率をImager でグラフにする | ブログが続かないわけ
[Perl]クラスに同じ誕生日の子供が1組以上いる確率をImager でグラフにする クラスの中に同じ誕生日の人がいる確率が、想像以上に高いというところはみんなどこかで聞いたことがあると思う。高校の確率の授業等では、計算をさせられたりすることもある。ただ、実際に手で計算してみると、電卓を使ってもかなり面倒な計算になる。これをPerl で書いてしまえばとても簡単に計算できる。 これを求めるために、簡単な計算の方針を示す。 1. クラスに同じ誕生日の子供が1組も存在しない確率を計算する 2. その逆を計算する(上記の確率を1から引く) 1. を求めるのはそんなに難しくない。 クラスの子供をひとりずつ選び出して、その子がそれまでに選んだ子供と同じ誕生日でない確率を掛け合わせていけばよい。 例えば、1人目の子は誕生日がいつでも良いので、365 / 365 となる。 2人目の子供は、1人目の子供と違
![[Perl]クラスに同じ誕生日の子供が1組以上いる確率をImager でグラフにする | ブログが続かないわけ](https://cdn-ak-scissors.b.st-hatena.com/image/square/5cffc4940dd8a6b2271ba21553d4343c7df3494f/height=288;version=1;width=512/https%3A%2F%2Fimg-cdn.jg.jugem.jp%2F679%2F1921645%2F20101130_1429203.png)
DBICとDBIx::Class::Schema::Loader 僕のいろいろな勘違い | ブログが続かないわけ
先日から、DBICに関するエントリをいくつかしているが、そこに大変参考になるトラックバックやコメントを頂いている。何となく理解しているつもりだった、Schema::Loader の仕組みなど、いくつか勘違いしているっぽいことがあったので、ここにまとめておく。 今日のCPANモジュール|use DBIx::Class; 事前に「データベース」に対応したクラス（スキーマクラス）や、「テーブル」に対応したクラスを用意しておき、プログラムではそいつらを通して DB にアクセスします。 そうだね。ここまではいい。スキーマクラスはしっかりと用意している。ただ、このスキーマクラスに対する理解がちょっと違ったみたいだ。 この対応クラスを用意するには手動と自動の2種類あります 自動の場合は、DBIx::Class::Schema::Loader を継承し 手動の場合は、DBIx::Class::Schema
DBIx::Class::Schema::Loader を最新版にアップデートしよう。 | ブログが続かないわけ
DBIx::Class::Schema::Loader についていろいろなことを教えてもらったので、早速試そうとして、コケた。 とりあえず、横着してワンライナでやるのをやめて、今後いろいろな拡張ができるLoaderにすべく、こんなシンプルなコードを書いた（書いたというよりコピった）。use strict; use warnings; use DBIx::Class::Schema::Loader qw( make_schema_at ); make_schema_at( 'MyApp::Schema', {relationships => 1, debug => 1, dump_directory => '/home/junichiro/lib' }, [ 'dbi:mysql:my_dbname', 'junichiro', 'password' ] ); ところがこれがうまくいかない。
ブログが続かないわけ | Web::Scraper 使い方(超入門)
３年前にこの本に出会って、僕はスクレーピングの虜になった。 おかげで正規表現をたくさん書く機会が得られたし、CPANのモジュールともたくさん触れ合うことができたし、さらに自分自身でも構造化されたHTMLを書く習慣も身についた。 ただ、やっぱり、スクレーピングは簡単ではない部分もたくさんあると思う。文字コードについても意識しなければならないし、なにより正規表現で必要な部分を抽出することそのものが結構骨のいる作業だ。HTML::TreeBuilder を使った方がいいのか、それとも正規表現だけでやったほうが楽なのか。そんなことを考慮しながらコーディングして行く。そこがスクレーピングの楽しいところでもあるのだが、そこがスクレーピングの敷居を高いものにしていることも否めない。 そんな、愛らしくもあり憎たらしくもあるスクレーピングを簡単にやってしまうのがこのモジュール、Web::Scraper だ。
DBIC で+select と+as : ああ、今頃気づくなんて... | ブログが続かないわけ
DBIC でデータをSELECT するときに日付型のデータを好きなフォーマットで取得するのに苦労していました。 単純にSQLでto_date関数などを発行すればいいのですが、そのためにはDBICでselect, as を使わなければなりません。 それがすごく面倒なんですよ。 日付のフォーマットさえ気にしなければ、こうやってデータを取れます。$c->model('DBIC::TranDiary')->search($query_ref);ところが、フォーマットをto_date で整えるためには、こーんな風に書かなければなりません。$c->model('DBIC::TranDiary')->search( $query_ref, { select => [ 'me.diary_id', 'me.user_id', 'me.title', 'me.body', 'me.status', 'me.
perl の作法 #5 ディスパッチテーブルの活用 | ブログが続かないわけ
いきなり具体例から行こう。sub coloring { my ($color, $data) = @_; my $ret; if($color eq 'black') { $ret = "<font color=¥"#000000¥">$data</font>"; } elsif ($color eq 'red') { $ret = "<font color=¥"#FF0000¥">$data</font>"; } elsif ($color eq 'green') { $ret = "<font color=¥"#00FF00¥">$data</font>"; } elsif ($color eq 'blue') { $ret = "<font color=¥"#0000FF¥">$data</font>"; } elsif ($color eq 'white') { $ret = "<
Return-Pathをセットする(Catalyst::Plugin::Email::Japanese) | ブログが続かないわけ
先日MIME::LiteをカスタマイズしないとReturn-Pathをセットできないというような内容のエントリを書きましたが、適切な突っ込みを頂き、私が間違っていたことがわかりました。 [参考]下記のコメント欄 Return-Pathをセットする(MIME::Lite) MIME::LiteのFromSenderに下記のように渡せばよかったので、MIME::Liteは問題なく、やっぱり素晴らしいモジュールだったのでした。$msg->send( 'sendmail', FromSender => 'error@example.com', ); さっそくこれを使ってやろうと思います。 無理だ... 私はMIME::Liteを直接使っているのではなく、Catalyst::Plugin::Email::Japaneseから使っているのですが、こいつにFromSenderをセットする機能がないのです
Catalyst モジュールuse する順番が大事 | ブログが続かないわけ
Catalystではモジュールをuse する順番が大事だという話。 use Catalyst qw( -Debug Charsets::Japanese ConfigLoader Dumper FillInForm FormValidator::Simple ); この順番でuse するとFillInFormの結果で化けてしまいます。 入力項目に日本語を入力してValidationに引っかかるとFillしてくれるときに化けてしまっているのです。 ちなみにCharsets::Japanese で in => EUC-JP, out => UTF-8 にしています。 これを下記の順番に変えるとuse Catalyst qw( -Debug FillInForm Charsets::Japanese ConfigLoader Dumper FormValidator::Simple ); 文字化
DBIC で件数順に並び変える(count したものにorder by) | ブログが続かないわけ
count を取ってそれを表示するのは次のコードで問題ないです。まあ、想像どおりですね。my @ranking_posts = $c->model('DBIC::TranMatchTrackBack')->search( $query_ref, { select => [ 'user_id', { count => 'user_id' } ], as => [qw/ user_id posts_count /], group_by => ['user_id'], }, ); foreach(@ranking_posts){ $_->{posts_count} = $_->get_column('posts_count'); } これをposts_countで並び変えたいという要望はよくある話です。というか、並び変えないと意味ないことの方が多い。 ところが、これがなかなか難しい。想像すると、
DBIC でスカラーリファレンスを使え | ブログが続かないわけ
以前のエントリでも紹介しましたが、DBICでSQLの関数を使うときはスカラーリファレンスが活用できます。そのエントリでは、INSERTやUPDATEのときにスカラーリファレンスを使う例を示しましたが、SELECTのときにも同じことがいえます。 前回のSELECT時に複雑な関数を使うということも、このスカラーリファレンスを使えばできるということを教えて頂きました。 [DBIx::Class][DBIC][perl] DBIx::Classで複雑な関数を使う：101号室より愛をこめて 前回のコードの下記部分は{ ' ' => '( YEAR( CURDATE() ) - YEAR( birth ) ) - ( RIGHT( CURDATE(), 5 ) < RIGHT(birth, 5 ) )' }, 下記のように書けます。¥ "(YEAR(CURDATE())-YEAR(birth)) -
DBIC でSELECT時に複雑な関数を使いたい（例、年齢計算） | ブログが続かないわけ
ユーザーのプロフィールとして年齢を持ちたい場合、実際に年齢をユーザーに入れさせてしまうと、データの更新が必要になり大変です。当然、ユーザーには生年月日などを登録してもらうことになるわけですけど、そうなると、年齢を表示するときに、ちょっとした年齢計算が必要になります。うるう年のことなども考えると結構面倒なので、このあたりはSQLの関数でバシッと計算する方がラクにできます。 データベースには生年月日が登録されている場合に、年齢を取得することを考えてみましょう。SQLはちょこっと複雑になりますが、MySQLのサイトに解答が出ていますのでそのまままねてしまうことにします。 【参考】MySQL 4.1 リファレンスマニュアル :: 3.3.4.5 日付計算 birth というカラムに生年月日が入っているとすると、SQLはこんな感じになります。SELECT user_name, birth, (YEA
Catalyst::Model::DBIC::Schema とFormValidatorのUnique チェックでつまづいた方へ | ブログが続かないわけ
先日のエントリでCatalyst::Model::DBICはあまり推奨されていないようですので、Catalyst::Model::DBIC::Schema を使うようにしましょうなんてことを書いたのですが、その後困ったことが起きました。 FormValidator::Simpleを使っていてUniqueチェックがうまくいかないようになってしまったのです。本来であれば、Modelが変わった場合でも、dbic_base_class の設定値を変更すれば問題なくうごくはずです。しかし、それでもUNIQUEチェックのところでエラーがでてしまうようになったのです。Can't locate object method "count" via package "MyApp::Schema::UserTable" at /usr/local/lib/perl5/site_perl/5.8.8/FormVa
FormValidator::Simple で携帯のアドレスをはじく！(Catalyst) | ブログが続かないわけ
以前にFormVlidator::Simple の使い方を説明しましたが、今回はPluginを使って携帯のアドレスをはじく方法を説明します。 Webアプリを作るうえで会員登録という機能は良く出てくると思います。そこでメールアドレスを登録してもらいたいのですが、システムから送るメールなどはPC宛を想定しているため、携帯のアドレスは登録してほしくないなぁという時があると思います。そんなときには僕らの味方FormValidatorで一発チェックです。 まず、CPANにはMail::Address::MobileJpというモジュールがあります（早くもソフトバンク対応です）。これを見ると、このモジュールを使えば簡単に携帯のアドレスかどうかを判断できそうです。 しかし、これだけではFormValidatorからは利用できません。幸い、FormValidatorはPluginで拡張する機能があるので、誰
Catalyst でセッション管理を行うときのTips? | ブログが続かないわけ
本エントリーには間違いが含まれているので注意してください。 Catalystでセッション管理を行うときは下記のページを参考にしてみてください。 [Perl][Catalyst]ユーザ認証とセッション管理のサンプル [Catalyst] Authentication メモ Catalyst で Authentication Catalystでのセッション管理はどれがいいのだろう 今回は、すでにセッション管理を行っている方を対象に、ちょっとしたカスタマイズをご紹介します。 以下のやり方は間違っています。 正常に動作しませんでした。 Catalyst::Plugin::Session::State::Cookie を使ってcookieにセッションを保存するようにしている人は多いと思います。 例えば、cookie の有効期限をブラウザ終了時までとした場合、設定はこんな感じになると思います。sess
CatalystでDBICを使っていてSELECT時にテーブルを結合(JOIN)する | ブログが続かないわけ
前回の間違いを修正しました。 今回はCatalystでDBICを使う際、searchでjoinを実現する方法を説明します。 例アプリケーション名はMyApp。 ユーザー情報を格納しているUser というテーブルがあり、そこには都道府県がコードで格納されている。 都道府県はPref といテーブルにコード(pref_id)と都道府県名(pref_name)が1対1で対応している。 まず、model は下記のヘルパースクリプトで機械的に作っていますよ ね...?script/myapp_create.pl model DBIC DBIC DBI:mysql:mydb user passこれ（Catalyst::Model::DBIC）はあまり推奨されていないようですので、Catalyst::Model::DBIC::Schema を使うようにしましょう。script/myapp_create.p
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
ブログが続かないわけ | ログイン処理が簡単と言い切れるか 〜 フィッシング対策も忘れずに
FormValidator::Simple の使い方（Catalystにて） | ブログが続かないわけ