表題のとおりです。これは正式でも良かったような気がするのですが、0.2.1_01 で 「Carp を use し忘れる」、という「お前何のためにこのモジュール書いたんだよ」って突っ込まれたら何もいえないような信じられないミスをやらかしたので、もう一度デベロッ…

表題のとおりです。以前、いろいろ「やることやら無いこと」書いた割には、全然違う対応をしてしまいました。「そういえば META ファイルって、YAML だけじゃなくて、たまに JSON 使ってるのもあるよなぁ」とか思って調べてみたら、こんな話(META.ymlの件)と…

昔の記事、Time::Fake もいいけど、これからは Test::MockTime だねになぜか急にブクマがついていた(しかもすごい Perl Monger の人達から)ので、ちょっと追記してみました。(「追記。。。的なもの(2010/11/20)」の部分です。)

実ファイルにアクセスできる場合: File::MMagic or File::MMagic::XS できない場合: File::MimeInfo の globs() File::MimeInfo の場合はこんな感じ。 use strict; use warnings; use File::MimeInfo qw(globs); my $type; $type = globs("a.txt"); warn $ty…

これからも、がんばろう。

楽しかったけど、さすがに疲れたー。昨日・今日のまとめは、そのうち書きます。(多分。hirataraさんがすげーしっかりまとめてるので、モチベーションが微妙ですが。。。)見つけたスライドは随時ブクマしてます。 はてなブックマーク - tsucchi1022のブックマ…

今年で2度目の参加となりました。見てきたセッションのまとめ的な話は後で書く(と思う。書けなかったら申し訳ない)のでとりあえずメモ。 バッテリーの壊れたノートPCはただのゴミですね。持ってかなきゃよかったorz 去年より話を理解できてる気がする。素直…

YAPC::Asia も近いので、久々に Perl の話を書こうと思います。僕が作った Test::Module::Used の話。とはいえ、新しい話は特に無いので、今までのまとめをしようと思います。 これは何？ CPAN モジュールを書く際、Makefile.pm に、依存するモジュールを re…

久々に Perl モジュールを書いてみました。tsucchi's p5-Test-Mock-ExternalCommand at master - GitHub外部コマンドの「ふり」をする物体をでっち上げるためのモジュールです。Synopsis も書きましたが、ここにも載せときましょう。こんな感じです。 use Te…

mixi でも使われているという噂*1のActivePerl。モダンなActivePerl スクリプトでは、先頭の shebang に #!/usr/local/bin/activeperl と書くのはもはや常識ですよね！しかしながら、Unix 系 OS など、ActivePerl がインストールされていない環境が多いのも…

今月は本当に忙しくて、死ぬかと思いましたが一応生きています。 Twitter / Official Tsubame2.0: 今日TSUBAME1.0 のお疲れ様会を内輪でします ... 今日TSUBAME1.0 のお疲れ様会を内輪でします。来週月曜からは、徐々に解体撤去が始まるので、フル構成はもう…

CentOS のパッケージに git が無いので、色々ググってみたら、yum を使う方法とかあるんだけど、なんかめんどくさい。つーかうまく行かなかった。「こういうときはソースからコンパイルするべ」と思って適当にやったら、意外とあっさりできた。こんな感じ。 …

うーん、イマイチ理解できて無い気がしますが、とりあえず「プログラミング Haskell」を第2章まで読んでしまいました。(Real World Haskell はかなりきつかったので入門書を買ったのです)。演習問題の回答が本に無かったので、ここにさらしておきます。読み…

会社では、NTEmacs の 23.2 を使ってます。下記の gnupack のビルドです gnupack (Cygwin + NTEmacs Package) プロジェクト日本語トップページ - SourceForge.JPですが、23.2 にしてから、なぜかフレームのサイズが良く分からんサイズになってしまう。defaul…

「こたつたこ」って知ってますか？NHK の「ピタゴラスイッチ」に出てくる歌です。可愛らしい絵と回文で構成された歌詞が特徴的です。僕はこの歌(?)が大好きです。見たこと無い人は、ぐぐってみれば良いと思います。(著作権的に微妙なので、直リンは載せませ…

twitterfeed というものを使って、この日記の投稿を twitter に投げる設定をしてみたのでテスト

Hudson をはじめてみました の続きみたいな話。(なのかな？？？)dannさんが最近、Hudson 導入した記事を書いています。 HudsonでperlプロジェクトのCI - Devel::Coverでcoverage取得 PerlプロジェクトをHudsonで継続的インテグレーション これを読んでたら、…

Archive::Tar で tar.gz を作ろうと思ってぐぐってみたら、 use Archive::Tar; my $tar = Archive::Tar->new; $tar->add_files( 'a.txt', 'b.txt' ); $tar->write("hoge.tar.gz", COMPRESS_GZIP); みたいな感じの、ぶっちゃけ残念な感じのサンプルがヒットし…

最近更新してませんが、一応生きてます。オイラがテストを重視している、ということは 最近のお仕事の話あたりから続く一連の記事を読んでいただければ分かるのではないか、と思います。TDD や自動テストを含めて、テスティングはソフトウェア品質の要だ、と…

社会人7年目が終わりました。前の会社で4年、今の会社で3年になります。自分は一応「3年やってとりあえず一人前」だと思っているので、ちょっと大きな節目なのかもしれません。この7年間は振り返ろうにも、いろいろありすぎてわけわかんない感じです。前の会…

Test-Module-Usedの話。ずいぶん前から分かっている、バグじゃないけど、バグに近い挙動として、サブモジュールの扱いがあります。たとえば、DBIx::Skinny を Makefile.PL に requires 指定して、テスト対象のモジュールの lib で、DBIx::Skinny::Schema を …

Nagios のプラグイン書いたの続きみたいな話。プラグインで使うスクリプト(check_hogehoge みたいなの)を好きな場所にインストールしたいのだけど、Module::Install でそれをどうやったらいいのか分からず悩んでました。たとえば、Makefile.PL で、 install_…

表題のとおりです。Solaris の check_swap プラグインが無かったのでそれと、raildctl を叩いて status が OPTIMAL かどうかをチェックするプラグインです。 Nagios-Plugin-Solaris-CheckRAIDctl Nagios-Plugin-Solaris-CheckSwap CPAN モジュールレイアウト…

mixi の開発者ブログの下記の記事を眺めていたら、 いまからでも間に合う開発者テスト自分がここ1年くらいで迷って試行錯誤してた事とどこか似ている部分があって、ちょっと安心した。いや、mixi のほうがずっとちゃんとできてるし、凝った構成になってるけ…

grep(1)コマンドの使い方 | エンタープライズ | マイコミジャーナル Regular Expressions In grep - nixCraftにおいてGNU grepコマンドの利用例が紹介されている。基本的だが役に立つ例がまとまっており、grep(1)コマンドをあまり使いこなせていない場合には…

表題のとおり。renice コマンドをはじめて使いました。あるサーバにアクセスしてくる、お行儀の悪い FTP クライアントがいて、こいつが数個 FTP のセッションを張ってくる。で、ずっと ls しているらしく、CPU もすごく使ってたりする。(なんでも差分を送ろ…

若干流行には遅れた感がありますが。。。オープンソースの注意点：夜な夜な海外ネット：ITmedia オルタナティブ・ブログ そのために、オープンソースを利用する場合は先ず開発をしている会社を調べる方が無難である。 いやいや、そんなことないと無いと思う…

CSV ファイルの解析 perl で言えば、 my @items = split(/,/, $line); で済んでいるなら幸せ。ダブルクォーテーションの内部だとカンマを見ないとか、その他もろもろの本来の CSV の処理が入るとあっという間に死ねる。Perl なら、Text::CSV 系のモジュール…

最近あんまり更新してない気がしますが、一応生きてます。Test-Module-Used-0.1.9をリリースしました。きっかけはバグリポート。t ディレクトリに入ってるテスト用のモジュールで use してるモジュールのチェックが抜けてました orzレポートしてくれる、って…

仕事メモ。map の使い方で初心者っぽいハマり方をしたので。 my @aaa = qw( key1 key2 key3 ); こんな感じの配列から、「key」を除いて、(1, 2, 3)みたいなリストが欲しいとします。で、 my @aaa = qw( key1 key2 key3 ); @aaa = map { s/^key// } @aaa; #こ…