subtechグループ - Bulknews::Subtech - Test::Base でテストコードとデータの分離
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
はこべにっき# - Flickrから素敵な壁紙を自動で収集
ネタフルのFliclkrで壁紙を探そう！を読んで、このWallpaperグループからずるずると壁紙をひっぱってきて使えたら素敵じゃないかと思ったので、そんなPerlスクリプトを書いた。 $ perl flickr_collect ~/Desktop/flickr_wallpapersとかやると、指定したディレクトリにFlickrの Wallpapers (1024x768 minimum)グループの最新壁紙30件をダウンロードしてくれる。 画像サイズは、だいたい指定した壁紙サイズに近いやつを落とすようになってるので、とんでもなく大きかったり小さかったりする画像は落ちてこないようになっている。ダウンロードする壁紙の枚数やサイズは、スクリプト内のの定数を変更すればできる。 あとは、煮るなりやくなり。Cronでまわせばどんどん新しいのがおちてくるようにできるし、Mac OS Xではディレクトリを
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
Test::More - babie, you're my home
Catalyst の採用しているテスティングフレームワークが Test::More で吃驚した。Test::Unit がメジャーだと思っていて、今までこっちしか使ってなかったんですよ。Perl リテラシーが足りない。 んで、勉強したんだが、ここに書こうと思っていた BDD と絡めた絶賛メモを保存前に吹っ飛ばしてしまった。カナシス。 ちょっとだけ： is_deeply, eq_array, eq_hash, eq_set が便利。 use_ok や require_ok メタ機能素敵。 TODO ブロック面白。(←これを BDD と絡めてた) 細かい点を言えばまぁ色々あるが多機能でとてもよい。JUnit の系譜じゃないので新鮮で面白かった。これからはこっちを使うかも。いや、ルーチンを分けずにプレーンにテストを書いていくのがちょっと気持ち悪いな。1ルーチンだけのテストもできなさそうだし。保留。
Test::More - プログラミング中に湧くアイデアを書き留める - babie, you're my home
「Test::More - LazyLoadLife」について、角谷さんに「詳しく」と希望されたのだがうまく書けない。ので、まずいまま書く。ここらへんを突き詰め体系化すれば、プログラミングスタイルに小さい変革を起こすことができると思うのだが、私には荷が重い。まぁ、交響チラシの裏に書いておけばミームはいつか誰かが咲かせてくれるだろう。 Perl のテスティング・フレームワーク Test::More の機能・特に SKIP, TODO ブロックが、TDD(BDD) や 過去はまつもとさん、昨日は西本さんが漏らしていた「TDD でアイデアが失われていく」というハッカーの悩みの一助になるのではないか？ と考えたのだ。 まずは、Test::More の リファレンスの SKIP, TODO の項を読んで欲しい。……読んだ？ この機能が揮発性のアイデアを書き留めておくのに丁度良いのでは？ ということだ
PlaggerとSubscription::BrowserHistoryで自分のWebブラウジングをトラッキング - はこべにっき ♨
Plaggerのプラグインである、Subscription::BrowserHistoryを作成した。これを使うと、ブラウザの履歴をPlaggerで読み込めるようになる。いまはMozilla系のブラウザにしか対応していないけど、サブクラスかけば良いようになってるので、IEやSafari向けもすぐかけるかも。 実はこれは、すでにid:sfujiwaraさんが酒日記 はてな支店 - Morkの文字コードおよび、酒日記 はてな支店 - CustomFeed::Mork頓挫で触れられていて、Plaggerのチケットの#377 (Subscription::BrowserHistory)にもなっていたネタ。参考にさせていただきました。 で、このSubscription::BrowserHistoryを使うとなにができるかというと。たとえば以下のようなYAMLが書ける。 plugins: - modu
Test::Base - データドリブンのテストフレームワーク - perldoc.jp
名前¶ Test::Base - データドリブンのテストフレームワーク 概要¶ A new test module: 新しいテストモジュール: # lib/MyProject/Test.pm package MyProject::Test; use Test::Base -Base; use MyProject; package MyProject::Test::Filter; use Test::Base::Filter -base; sub my_filter { return MyProject->do_something(shift); } A sample test: テストの例: # t/sample.t use MyProject::Test; plan tests => 1 * blocks; run_is input => 'expected'; sub local_fi
Imagerを使おう - 第2回「画像を加工する」
さて、前回の予告したように、今回はImagerを使って読み込んだ画像をいろいろな方法で加工する方法をご紹介しようと思います。画像の加工といっても色々な方法があると思いますが、まずは拡大縮小、回転、切り抜き、反転、他の画像を貼り付けあたりから説明していきます。 なお、今回でてくる$imgというのは前回紹介した画像を読み込んだImagerのインスタンスだと思ってください。 今回サンプルとして加工に使う画像は下記になります。 拡大縮小 まずはオーソドックスな拡大縮小です。コードは以下。 $new_img = $img->scale(scalefactor => 0.5); # 縦横を元画像の半分にする(scale01.jpg) $new_img = $img->scale(scalefactor => 1.5); # 縦横を元画像の2倍にする(scale02.jpg) $new_img = $i
Planet Catalyst - Japanese Edition
優秀なハカーの皆さんならすでにご検討されたようなことなんでしょうけど、思いついたので一応書いておきますね。 DBIC って、redhat 系由来の遅くなるパッチの当たってる環境では、DBIC_NO_WARN_BAD_PERL=1 をつけないと STDERR にうざいメッセージを吐く機構が DBIx::Class::StartupCheck にあります。 それみたく、Catalyst では使っていいプラグインのホワイトリストを持っておいて、うざいメッセージを吐くだけじゃなくて CATALYST_ENABLE_BACKWARD_COMPATIBLE_PLUGIN=1 (英語適当) みたいなのをつけないと起動しない仕組みとか入れればいいんじゃないのかなと思いました。
Imagerを使おう - 第1回「画像の読み書き」
今仕事で激しくImagerを使っていて、ImageMagickなどにも劣らない機能を持っているなあと感じている今日この頃なのですが、せっかく使っていて覚えたテクニックを自分の中で終らせるのはもったいないし、日本語でのドキュメントもあまりないみたいなのでまとめてみようと思いました。ということで、これから数回に渡ってImagerでできることを紹介していきたいと思います。(まぁ、podを読めという話なんですけど、Imagerはドキュメントも多いし、よく使う機能だけまとめておいてもいいかなと思い今回こういうのを始めてみました) まず第1回目は、とりあえず画像を読み書きの方法から。 Imagerで画像を読み込むには、read()というメソッドを使用します。 my $img = Imager->new->read(file => 'foo.jpg', type => 'jpg'); このようにfile
subtechグループ - ℃-uteさんの日記 - 続・UNIVERSAL::to_json
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
HTTP::MobileAgentのIPアドレス判定プラグイン - spiritlooseのはてなダイアリー
プラグイン機構がついて、こんなことがキレイに出来たらいいな。 勝手サイトとかでUA偽装されてる可能性があるときに、本当にそのキャリア使ってんのか判定できる。かなりの信頼性で。 別にプラグインじゃなくても Net::CIDR::MobileJP を普通に使えばいいんだけど。 package HTTP::MobileAgent::Plugin::ValidIPAddr; use strict; use warnings; { package HTTP::MobileAgent; use Net::CIDR::MobileJP; sub is_valid_ipaddr { my $self = shift; my $cidr = Net::CIDR::MobileJP->new('net-cidr-mobile-jp.yaml'); my $carrier = $cidr->get_carrie
携帯キャリア各社のIPアドレス帯域を取ってくるスクリプト - spiritlooseのはてなダイアリー
前に作ったやつをsoftbankに対応させてみた。 HTML::Selector::XPath を使ってみたかったのだけど、HTMLが微妙なため挫折。 #!/usr/local/bin/perl use strict; use warnings; use utf8; use Jcode; use LWP::Simple; docomo(); au(); softbank(); willcom(); sub docomo { print "docomo\n"; my $url = 'http://www.nttdocomo.co.jp/service/imode/make/content/ip/about/'; my $content = get($url); while ($content =~ m!<FONT COLOR="\#009900"><B>(.*?)</B></FONT>!g)
suVeneのあれ: [Perl]CGI::Session・Hatena::API::Auth・Zer0Reader
2006年10月13日 [Perl]CGI::Session・Hatena::API::Auth・Zer0Reader Perlの勉強がてらと、次のステップの為にZer0ReaderにHatena認証組み込んでみた。 認証自体は Hatena::API::Auth が CPAN にあるから、簡単だったんだけど、Session管理がめんどくせえええええええぇええぇええええええ！ ってか、CGI::Session 使えば簡単にできるんだが、Windows＋AnHTTPd と Linux + Apatche で動作が違うんだよなぁ。 $session->close(); して $session->delete(); してるのに、ファイル消えないし。 ッつー訳で、ごちゃごちゃ触ってるからログインしてたのにログアウトになってたり、ログインできなかったりするかもしれないけど、ゴメンネ！ 一番困るのは、
ケータイキャリヤのIP帯域ゲットするスクリプト
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
HTML::TreeBuilder + CSSセレクタがいい感じな件
先日 PerlでCSSセレクタ で HTML::Selector::XPath がいい感じであると思ったわけですが、CSS セレクタだけじゃなく何気に HTML::TreeBuilder::XPath とのコンボがすげーイイ!ということにいまさら気づきました。 HTML::TreeBuilder::XPath で findnodes するとツリー状に連なった HTML::Element なデータ構造が返ってくるんですが、HTML::Element は API をかなりいろいろ持ってて、これをうまく使ってやるとスクレイピングを自然な感じで書けます。 例えばはてなダイアリーの任意のページから、本文部分だけをスクレイピングしたいと思ったときにキーワードリンクが邪魔だったりするわけですが、とりあえず HTML::Selector::XPath で div.section をぶっこ抜いて取れた HT
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://blog.nowherenear.net/2006/10/shibuyapm_teck_talk_7.html
http://e8y.net/blog/2006/02/18/p104.html
[sledge-users] content-type を指定して出力したい
http://www.godtomato.net/works/download/lib/perl/Sledge/Sledge-Plugin-Validator/