tokuhirom blog
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
tokuhirom blog
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
参加者の成長を見守る、Shibuya.pm 2代目リーダー － ＠IT自分戦略研究所
第8回 参加者の成長を見守る、Shibuya.pm 2代目リーダー 長谷川玲奈（＠IT自分戦略研究所） 大星直輝（撮影） 2009/3/23 竹迫良範（たけさこよしのり） Shibuya.pm リーダー 1977年3月2日、広島県出身。サイボウズ・ラボ所属。2002年、広島市立大学 情報科学部 知能ロボット講座卒業。在学中の1998年より、コンピュータメーカー子会社にてECサイトの開発に携わる。2001年にはNamazu Projectに参加。Shibuya Perl Mongers（Shibuya.pm）には2003年のスタートアップセミナーから参加し、2006年に2代目リーダーに就任。 ■「バソキヤ2006」でShibuya.pmの新リーダー誕生 Shibuya.pmのリーダーになったのは2006年です。宮川さん（シックス・アパート 宮川達彦氏、Shibuya.pm 初代リーダー）が渡
tokuhirom blog
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
Re: ギークなお姉さんは好きですか 不正なメールアドレスを見抜く正規表現 - ヒルズで働く@robarioの技ログ
ギークなお姉さんに初めてのトラックバック。 DTIブログ サービス終了のお知らせ の最後にあるfubaさんのnegative wordsを見て猛烈に最適化してみたくなった。 use utf8; use Regexp::Assemble; binmode STDOUT=>'utf8'; @words = split /\|/, 'ヘルプ|へるぷ|help|諦め|苦しい|つらい|希望がない|だめ|ダメ|死|しぬ|しにたい|自殺|たすけて|助けて|働きたくない|やだ|むり|やめたい'; print Regexp::Assemble->new->add(@words)->re; (?-xism:(?:(?:(?:働きたく|希望が)な|つら|苦し)い|(?:たす|助)けて|し(?:にたい|ぬ)|や(?:めたい|だ)|[だ諦]め|help|へるぷ|ヘルプ|むり|ダメ|自殺|死)) Regexp::As
fork したくてたまらない貴方に。 - tokuhirom's blog
こんにちは、金曜日の担当、素敵なレディーことtokuhiromです。 最近 Perl Mongers の注目を集めている system call といえば fork(2) ですが、fork ひとつとってもいろいろ方法があるのが TIMTOWTDI をモットーとする perl のいいところです。というわけで、いろいろな fork の方法についてみんなで調べてみました。 数ある fork する方法の中から、あなたの life style にあった fork 術を探すということは、あなたの人生を豊かにします。Enjoy! # ========================================================================= # How do you like fork(2) # # =================================
Dan the API shell 書いた - tokuhirom's blog
http://gist.github.com/77254 Dan さんの perl eval API が便利だとおもった。どんなコードが実行できるのかためしたかったので、shell っぽく eval することにした。 Term::ReadLine で shell っぽく入力させて、URI::Escape でエスケープして、LWP::UserAgent で API になげて JSON.pm で eval させてるだけ。 以下は実行例 dan> use XML::LibXML; Warning: XML::LibXML compiled against libxml2 20703, but runtime libxml2 is older 20702 dan> unpack 'p', 0xdeadbeef; dan> print "$ENV{SERVER_ADMIN}\n"; <ちょ、メアドみ
Ajax - perlを実行するAPI : 404 Blog Not Found
2009年03月10日22:00 カテゴリLightweight Languages Ajax - perlを実行するAPI つくっちゃいました。 「404 Blog Not Found:Ajax - Lightweight Languages を実行するAPI」に置き換えられました。 まずはこれをご覧ください。 use strict; use warnings; use YAML::Syck; use Data::Dumper; my $n=1; print "DATA[",$n++,"]:$_" for <DATA>; print Dumper(\%INC); print YAML::Syck::Dump(\%INC); use Test::More 'no_plan'; is(1,1); is(1,0); __DATA__ use this instead of STDIN like
第2回 mro：次のメソッドはどこ？ | gihyo.jp
モダンなクラス／オブジェクトのあり方は？ Perlではそもそもオブジェクトという考え方自体が、Perl 5（Perl 7歳）ではじめて登場した、後付けのものでした。また、その実装も非常におおらかなものだったため、より「本格的な」オブジェクト機構を備えた言語のユーザからはしばしば批判されてきました。 ただし、転んでもただでは起きないのがPerlハッカーたちのよいところ。そのような批判を糧に、「モダンPerl」の世界でもっとも激しく、多様に進化してきたのがこの分野です。 今回はそのようなクラス／オブジェクトの進化の一例として、クラスの継承とメソッドの解決順序にまつわる話題をまとめていきます。 継承によるクラスの拡張 伝統的なbaseプラグマを使ってクラスを拡張する場合、継承元と継承先に同名のメソッドがあれば継承先のメソッドだけが優先的に実行されます。 use strict; use warn
tokuhirom blog
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
第1回 「モダンPerl」ってなんだろう？ | gihyo.jp
「モダンPerl」という言葉の流行 先日、国内有数のPerlハッカーである牧大輔氏が『モダンPerl入門』という書籍を刊行しました。 日本のPerlユーザーのハブサイトを目指しているperl-users.jpでも「モダンなPerl入門」と題して「古来から親しまれているPerl入門とはひと味違う、今風のPerl入門テキスト」を作ろうという動きがあります。 海の向こうでは、Perl 6の言語仕様の策定にたずさわっているクロマティック（chromatic）氏が「Modern Perl Books」というウェブサイトを開設して、「モダンPerl」についての考察を始めました。氏はその名もModern::Perlというモジュール[1]を公開して「モダンPerl」の啓蒙に努めています。 個人の主義主張に過ぎないのでしょうか？ でも、この「モダンPerl」とはいったい何なのでしょうか。 字面から「今風の
モダンなPerl入門 - モダンなPerl入門
目次 Perlの概要 なにか なにか バージョン ラクダ画像とPerl 環境別インストール 基礎的なperldocコマンド 変数 スカラー（文字列・数値） 配列 ハッシュ リファレンス 条件分岐 if / elsif / else ループ foreach while デバッグ手法 print warn Data::Dumper YAML XXX ファイル操作 open() IO::File Path::Class stat() / -f / -d / -e / -x サブルーチン プロトタイプ 正規表現 メタキャラクター キャラクターセット データ tie Storable Encode 入出力の考え方 ワンライナー データベース DBI mysql PostgreSQL SQLite オブジェクト bless モジュール CPAN 各OSでのCPANのつかいかた WindowsでCPAN
perl - HTMLをXMLとして扱う : 404 Blog Not Found
2009年02月19日08:30 カテゴリLightweight Languages perl - HTMLをXMLとして扱う そのXML::Liberalが test でこけまくっていたところから旅が始まった。 ゆーすけべー日記: 壊れた Premiere (映像編集ソフト) のプロジェクトファイルが XML::Liberal (Perlモジュール) で直った ということは、なんとかして壊れたプロジェクトファイルを「well formed」な XML にすればいいじゃないのか！と思ったわけ。そこで活躍したのが「XML::Liberal」という miyagawa プロダクトな Perl モジュール。 やりたかったのは、XHTMLでないHTMLを、XML::*なモジュールで扱うこと。例えばXML::LibXMLを使えば、JavaScriptみたいな感覚でDOMを操作できるし、XML::Sim
CPANモジュールをスクリプト一発で依存解決しつつrpm化する - とあるはてな社員の日記
少し前にmizzyさんに そういえば、まっさらなサーバを30分で本番投入できるようにする で stanaka さんが「CPANの依存関係を解析してrpm化する手製スクリプトで、CPANモジュールのrpm化が、ほぼ自動化されています」と書いてるんだけど、これって公開してくれないのかなー。 HowToRpmizeCpanModules - mizzy.org - Trac と突かれたので、githubで公開してみます。 http://github.com/stanaka/cpan-dependency/tree/master 突かれたついでにmizzyさんに軽く動作確認してもらったところ、それなりに動いているようです。また、はてなでは、このスクリプトを利用して、日々それなりの数のCPANモジュールのrpm化を行っていますので、だいたいうまく動くのではないかと思います。 CentOSやFedor
DBIx::Class::Storage::DBI::ReplicationにてMasterで参照クエリを発行する方法 - Unknown::Programming
DBIx::Classのちょっとしたメモ、その２。・・・と、思いきや長くなったので一記事に。 Masterで参照クエリを発行する方法なんだけど、ちょこちょこと調べて見たけど情報が殆どないのね。 ただみんな色々考えているようで、例えば use Blog::Schema; my $schema = Test::Blog::Schema->connect("dbi:SQLite:$master"); # set slave data sources. $schema->slave_connections( ["dbi:SQLite:$slave_1"], ["dbi:SQLite:$slave_2"], ); # do something in slave connection. $schema->slave->resultset('Entry')->find(1); DBIx::Classでス
perl - open my $fh, "comand |"; # はモダンじゃない : 404 Blog Not Found
2009年02月10日01:00 カテゴリLightweight Languages perl - open my $fh, "comand |"; # はモダンじゃない モダンPerl入門 牧大輔 「モダンPerl入門」発売記念ということで、同書を補足するentryを。 同書でちょっと残念だったのが、[5.2 外部コマンドの実行]。あまりモダンではないのだ。 P. 141 system("/sbin/wget", "http://example.com"); これはいいのだが、以下がちょっとまずい。 my $output = `/bin/ls tmp`; open(my $fh, '| cat -v'); これ、何がまずいか、というと、コマンド実行の際に/bin/shを使ってしまうのだ。そのおかげでcommand < from > to 2&>1のようなリダイレクトも使えるなどの利点もあ
IntroTestMore - A Perl Testing Tutorial
IntroTestMore - A Perl Testing Tutorial 目次 ■なぜテストするのか ■恐れないで！ ■ベーシックテスト ■Test::Simple とその API ■開発過程にテストを盛り込む ■Test::More の API について A Perl Testing Tutorial chromatic (http://wgz.org/chromatic/) (http://wgz.org/chromatic/perl/IntroTestMore.pdf) 英語がそのまま残ってる部分は意味がわからなかっとこなので、 適当に補完してね。 ■なぜテストするのか コードが仕様どおりの動きをすることを確認する。 o 実装忘れの防止 o アクシデントに対する動き o 全てのテストにパスすれば完成 境界条件のチェック o 不正な入力をどう扱うか o イジワルな操作にどう対処す
PS3、何それおいしいの？ 時代はRemedieだよ。 - はげあたま.org
@miyagawaがPlaggerの延長でRemedieというシステムを作っておられます。簡単に言っちゃえば、ネットのストリーミングで見られる動画を全部ブラウザ上の同一システムで見ちゃおうというものです。 連休前に買ったPS3をメディアサーバーと連携して遊びまくってましたが、気付いたらこれのためにいろんな周りのシステムまで整え始めて、PS3触ってる時間なんてなくなりました。それぐらいすごい。正直、これは体験しないとわからないし、体験するためには自鯖がいるという最初から壁が大きいシステムなので薦めはしません。ただ、その課程で出てきた情報は載せておく。出来たばかりでRemedieの情報少なすぎますからね。まあ、備忘録。注意書き:09年01月10日の22時頃分でUbuntu鯖・Windows視聴環境に関してなので、それ以降で内容は保証できません。すでにこの記事書いている時点でがんがん更新されてま
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
モダンPerlの世界へようこそ 記事一覧 | gihyo.jp
今日のCPANモジュール（跡地） 目次