新潟市水族館マリンピア日本海（中央区）で平成１８年６月に生まれ、６年近く名前がなかった雌のトドに「ルビー」と愛称が付いた。。昨年７月に生まれた妹は「パール」に決まった。 ２頭の両親は同館におり、父親はタケ、母親はナーシー。ルビーは出生後に体重が増えず栄養失調状態に。呼吸音も荒く、循環器系に先天的な疾患のある可能性があり、短命に終わるとみられていた。 このため、ルビーには他のトドやラッコなどには付けている愛称を「せっかく名前を付けてもすぐに死んでは申し訳ない」と見送り、職員らは「子トド」と呼んで世話を続けてきた。 ルビーは間もなく６歳。繁殖可能になる年齢にまで近づいてきた。体重も昨年１１月に１０５キロ、今年１月に１１０キロと、同年齢の雌に比較すればまだ半分程度だが、徐々に増えている。 生後１年になる妹の愛称募集に合わせて姉も一緒に名前を付けることになり、公募に寄せられた２７０通、３９９種の候
eval eval '"'. ('['^"\.").( ('[')^ '(').('`'|'%'). ('{'^'['). ('['^'(').('['^'/' ).('['^')' ).('`' |')').('`'|'#').('[' ^'/').';'.('!'^'+'). ('['^'.').('['^"\(").( '`'|'%').('{'^"\[").( '['^',').('`'|'!').('[' ^')').('`'|('.')).( '`'|')').('`'|'.').(('`')| "'").('['^'(') .';'.('!'^'+').('!'^'+').('[' ^'+').('['^')' ).('`'|')').('`'|'.').('['^'/'). ('{'^'[').'\\'. '"'.('`'^'(').('`'|'%').('`'|',').
16x16 の履歴画像を GIFアニメにすると面白そうだなぁと思ったので書いてみました。試しにセコンさんのエントリにあるこの画像 を変換すると こんな GIFアニメになります。やってることは簡単で、左上から順に 16x16 の画像を切り出して最後に GIFアニメとして書き出しているだけです。gif_delay とか gif_loop のオプションは perldoc Imager::Files の GIF の項に書いてあります。 追記 いちいち画像保存して変換するのめどいよねということで、履歴画像を表示した時の data:image/png;base64, で始まるデータスキームをフォームにコピペると GIFアニメを出力する CGI も書いてみました。
スターがつくと嬉しいですし速攻で知りたいですよね。そんな時は スター受け取り通知に対応した はてなブックマーク Web Hook と im.kayac.com を使って IM に通知しましょう。と、ここまで書いてから連打されたりするとひどいことになったり、そもそもはてなメッセージと同じじゃないの*1とか気づきました。 #!/usr/bin/env perl use strict; use warnings; use CGI qw/-utf8/; use CGI::Carp qw/fatalsToBrowser/; use DateTime::Format::W3CDTF; use LWP::UserAgent; use HTTP::Request::Common; use utf8; my $q = CGI->new; my $key = 'your-key-goes-here'; die
のを軽く作ってみた。 #!/usr/bin/env perl package Email; use Moose; use Moose::Util::TypeConstraints; use utf8; use Encode; use Email::MIME; use Email::MIME::Creator; use Email::Send; use Email::Valid::Loose; subtype 'MailAddr' => as 'Str' => where { Email::Valid::Loose->address($_) }; has 'from' => (is => 'rw', isa => 'MailAddr', default => 'webhook@hoge.com'); has 'to' => (is => 'rw', isa => 'MailAddr', de
はてなブックマークの Web Hook というのがリリースされましたね！ (開発者さま向け) はてなブックマーク Web Hook 機能を公開しました - はてなブックマーク日記 - 機能変更、お知らせなど はてなブックマーク Web Hookとは - はてなキーワード これを設定しておくと、自分がはてブしたタイミングではてブ側から CGI 等を叩いてくれます。 CGI から様々なプログラムを起動するようにしておけば、あんなことやこんなことが可能になっちゃいますね＞＜ こ、これはすごい！ ということでさっそく、自分がはてブしたページの URL を Twitter に POST する CGI を書いてみた。 ご自由にお使いください #!/usr/bin/env perl use utf8; use strict; use warnings; use CGI; use Net::Twitter
というのを作ったので自己紹介します。 2月頃から、コンピュータでアニメ顔を検出&解析する方法をいろいろ試しつつ作っていて、その成果のひとつとして、無理やり出力したライブラリです。 はじめに はじめにざっとライブラリの紹介を書いて、あとのほうでは詳細な処理の話を僕の考えを超交えつつグダグだと書きたいと思います。 Imager::AnimeFaceでできること Imager::AnimeFaceは、画像に含まれるアニメキャラクター的な人物の顔の位置を検出し、さらに目や口など顔を構成する部品位置や大きさの推定、肌や髪の色の抽出を簡単に行うことができるライブラリです。 これらが可能になると、 画像から自動でいい感じのサムネイルを作成できる 動画から自動でいい感じのサムネイルを作成できる 自動的にぐぬぬ画像が作れる 自動的に全員の顔を○○にできる 顔ベースのローカル画像検索 など、最新鋭のソリューシ
id:lestrratさん期待の新刊『モダンPerl入門』をさっそく読みました。結論からいうととてもいい本で、他の言語はよく知っててイケてるコード書きまくりだけどPerlはよくわからないというひと、もっとPerlのことを知りたいひと、昔やったけど最近の事情はどうも知らないというひと、様々な方にとってマストバイな一品に仕上がっていると思いました。もちろん、僕自身にとってもいろいろ知ることが多くて、とてもためになりました。 以下、自分が実践できてるかどうかをまったく度外視して、あれこれと書いてみました(たまには書評の真似事をしてみたいブーム)。 モダンPerl入門 (CodeZine BOOKS) 作者: 牧大輔出版社/メーカー: 翔泳社発売日: 2009/02/10メディア: 大型本購入: 25人 クリック: 506回この商品を含むブログ (113件) を見る よいコードとは よいコードとひ
Perl › 日付・時刻 祝日というのは人間が決めたものなので非常に扱いにくいものです。春分、秋分という前年の2月に決まる祝日や、振替休日などもあります。 今回のサンプルではGoogleがGoogle Calendar Data APIで提供してくれている日本の祝日のデータを取得することにします。 あくまでGoogleが調べた日本の休日のデータなので絶対的な信頼性はありません。Googleが間違っていれば間違った祝日のデータを取得しますので、日付の間違いが損害を及ぼすようなアプリケーションにそのまま使用してはいけません。かならず他の手段で正しいことを確かめるようにします。 use strict; use warnings; # Web上から情報を取得するのでHTTPクライアントを使用する。 use LWP::UserAgent; #フィードがXMLで与えられるのでXML::Simpleで解
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
2004-08-20 はてダライター hw hatena 結城浩さんが「はてなダイアリーライター」なるはてダアップロードツールを開発中。http://www.hyuki.com/techinfo/hatena_diary_writer.html [id:hyuki:20040819] [id:hyuki:20040820]ひょっとしてこれは僕の求めているものなのでは。。。と思い早速お試し… 2004-08-20 csv2hw.pl (CSV形式→はてダラ形式 変換スクリプト) hw hatena はてなの設定画面から落とせるCSV形式のバックアップファイルからはてなダイアリーライター(略称:はてダラ)*1形式への変換スクリプトを書いてみたのでテスト中。。。一応動いたので公開します。求む人柱。バグ報告はコメント欄でお願いします。http://www.ho… 2004-08-20 はてダラ:
ひさびさに Blog を書いてみる。 UTF-8 フラグがどうもウザいという人向けにこんな CPAN モジュールがあるそうな。 Unicode::RecursiveDowngrade hashref とか、arrayref とか複雑な構造になった変数 (たとえば XML や RSS を XML::Simple や XML::RSS 等で parse した構造) を、構造を変えることなく、値全ての UTF-8 フラグを一括で落としたい場合にﾍﾞﾝｰﾘ。 こんなんして使える模様。 use strict; use XML::Simple; use Unicode::RecursiveDowngrade; use Data::Dumper; my $ref = XMLin('hoge.xml'); # includes flagged UTF-8 my $rd = Unicode::Recursi
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く