昨日リリースしました。 何をやるモジュールか 一応汎用的なSVGからのconvertモジュールと言う位置づけにしたいと考えていますが、現時点ではXAMLへの変換しか出来ません。 元ネタ Having fun with XAML (Silverlight) and SVG 使い方 use SVG::Convert; my …

全然気づかなかったんだけど、MogileFS-Utils-2.12にて下記の機能がいつの間にやら使えるようになっていました。ｗ stas MogileFSの状態表示 slave Slaveデータベースの管理 fsck File systemの監視workerの管理 settings 動的な設定値管理 それとdeviceにmo…

Module-Starter-1.75 - a simple starter kit for any module - metacpan.orgって今のバージョンは1.42で、2005年にリリースされた物です。DEVELOPER RELEASEとして1.43_01が出ている物の、一向に更新が無いままです。1.43_01では確かModule::Install対応し…

僕です。orz... $ perl -MDateTime::Format::W3CDTF -MDateTime -e 'print DateTime::Format::W3CDTF->format_datetime(DateTime->now->set_time_zone("Asia/Tokyo")) . "\n";' 2007-08-24T19:46:41+09:00DateTime::Format::W3CDTFで出来るお！

d:id:ZIGOROu:20070824:1187943710の続き。ちなみにそのブクマコメントで、個人情報もネタにするハム一さん事、id:nipotanさんが答えを書いてました。 調べちゃったお！！！＞＜ URIモジュールの場合 httpと言うschemeの場合は、あれこれ経てURI::httpオブジ…

ソース #!/usr/bin/perl use strict; use warnings; use URI; use URI::Escape qw(); local $\ = "\n"; my $uri = URI->new("http://d.hatena.ne.jp/ZIGOROu/"); $uri->query_form("key=a b c d e"); print $uri->query; print URI::Escape::uri_escape("key…

UnixタイムスタンプをDateTimeオブジェクトにする方法。 そういえばやったこと無かった。 DateTime->from_epoch() 今日初めて知った（ぇ $ date +%s | xargs perl -MDateTime -e 'print DateTime->from_epoch(epoch => $ARGV[0], time_zone => "Asia/Tokyo")…

タイトル通り、LEGO::Colorsと言うモジュールがCPANにあったので使ってみました。 ソース #!/usr/bin/perl use strict; use warnings; use LEGO::Colors; use HTML::Template; my $template = HTML::Template->new(filehandle => *DATA, option => 'value');…

id:tokuhiromさんとかid:precuredaisukiさんとか既知だろうけども。。。 CREATE SERVICE balancer SET listen = 0.0.0.0:81 SET role = reverse_proxy SET pool = myclusters SET persist_client = on SET persist_backend = on SET verify_backend = on SET…

昨日から激しく悩んでいた内容で、id:kazuhookuさんとnishioさんに色々教わったので、その内容のまとめ。 やりたい事 my $entries = { A => [0..5], B => ["A".."D"], C => ["a".."c"] }; みたいな集合A, B, Cってのがあるとして、A, B, Cから一個ずつ値を抽…

試してみた。あと追記・修正した。 追記(2007-09-11T11:20:32+09:00) 激しく既出だった。(d:id:spiritloose:20060909:1157767723) id:spiritlooseさんとやりたい方向性がかなり被ってるなぁ。wあと、 新しいbinary protocol使えばもっと差が出るかも むむ！…

こんな感じかなー。 #!/usr/bin/perl use strict; use warnings; use Getopt::Long; use MogileFS::Client; my ($domain, $host); GetOptions( "domain=s" => \$domain, "host=s@" => \$host ); die("host or domain is not valid") unless ($domain && $hos…

例えば、 use URI; my $uri = URI->new("http://d.hatena.ne.jp/ZIGOROu/?foo=bar#hoge"); のようにURIオブジェクトがある場合、 URI::http locationオブジェクト scheme protocol host host host hostname fragments hash query search path path port port…

もう何度これでハマったか分からん位、DBD::mysqlってcpanで入れられない時にハマる率が高いんですけども、とりあえず僕の環境での話。 OSX 10.4.9 Perl 5.8.6 MySQL 5.0.41 (dmg形式の奴) で結論ですけど、d:id:nskj77:20070527:1180276582 に書いてありま…

といってもまだCPANには反映されてないと思いますが、一応cspageってコマンドを付けてみました。0.02から使えます。 機能としては、 HDFファイルの生成 HDFファイル化する際の文字列ダンプ HDFファイルとCSファイルからレンダリング 指定した変数群からCSフ…

昨日の夜にリリースしました。 ちと手抜きしちゃったのでPODが適当*1なんですが、とりあえず使い方としては、 use strict; use warnings; use ClearSilver; use Data::ClearSilver::HDF; my ClearSilver::HDF $hdf = Data::ClearSilver::HDF->hdf({ foo => 1…

はじめに MogileFS::Client::FilePathsのドキュメントですが、激しく適当に書かれているのと、使い方だとかセットアップの仕方とかは笑えるくらい情報が無いので、ソース嫁しか手段が無い事を予めお断りしておきます。 FilePathsプラグインとは？ MogileFSで…

以前もインストールして使おうとしてちょびっとハマったのでメモ。 共にmime-info databaseを使います。http://www.freedesktop.org/wiki/Software/shared-mime-infoでこいつはRed Hat系ならrpmで入れられるしMacPortsにもありますので、インストールする訳…

雑多なメモです。とりあえずCatalystにおけるデプロイってどーよって辺りからごニョゴニョしてた内容です。 Module::Install + Module::Install::Catalyst catalyst.plでgenerateされたMakefile.PLは、 use inc::Module::Install; name 'MyApp'; all_from 'l…

すみません、今までずっと知りませんでした。orz... 前々から人のソースに良く出て来るのでなんでかなーと思ったんですけども、ふと気になって調べてみました。 carp, croakの違い 論より証拠 #!/usr/bin/perl use strict; use warnings; package Pack::C; u…

ちょっと考えた事なんですけど、 Testersがどれほど評価したか(PASS & FAIL両方) CPANTSのdist評価 RATING Google Code Searchとか使って、どれほど他から使われているか などを組み合わせたら結構参考になる数値が出てきそうな気がします。少なくとも最近、…

cat foo.js | perl -MJavaScript::Minifier -e 'jsmin(*STDIN, *STDOUT);' 終了。

先ほど反映されたようです。リリースしました。 今回は真面目にドキュメントを書いたつもりなんで、詳細はドキュメント見て頂けたらと。podより抜粋すれば、 use strict; use warnings; use MozRepl; my $repl = MozRepl->new; $repl->setup; ### You must w…

DBI::Changes - List of significant changes to the DBI - metacpan.orgによれば、 今回は結構意欲的なバージョンアップのようですね。 パフォーマンス面 Changed some handle creation code from perl to C code, to reduce handle creation cost by ~20%.…

URIモジュールですが、良く使われるモジュールではあるのですが、 schemeを指定しないでURIモジュールでインスタンス化してから、改めてschemeを指定すると酷い結果になります。 use strict; use warnings; use Data::Dump qw(dump); use URI; local $\ = "\…

App::Ackをいれてる人は下記のコマンドを打ってみましょう。 $ ack --thppptで結果ですけども、 _ /| \'o.O' =(___)= U ack --thpppt!ワロスw

pirlと共に使ってみました。淡々と紹介します。w Data::JavaScript pirl @> use Data::JavaScript; jsdump('hoge', 1); "var hoge = 1;" pirl @> use Data::JavaScript; jsdump('hoge', "hogehoge"); "var hoge = \"hogehoge\";" pirl @> use Data::JavaScri…

そもそも論ですけど Similar to C but instantiates plugins as soon as they're found, useful for code generators like C. ってあるように、Module::Pluggableと同じインターフェースな訳じゃなくて似てるモジュールです。 似てる 速い すぐインスタンス…

Module::Pluggable import() まずModule::Pluggableってのはuse時に各種パラメータを指定して使うモジュールなんで、 まずはimportメソッドから。 sub import { my $class = shift; my %opts = @_; my ($pkg, $file) = caller; # the default name for the m…

物凄いネタっぽぃモジュールですが昨日リリースしました。 肝心の機能ですけども、 mii binaryをparse mii dataの操作 mii binary出力 mii dataのxml出力 が出来ます。将来的にはBluetooth経由でWiimote(Wiiリモコン)にアクセスして直接データ交換出来るよう…