日向夏特殊応援部隊

俺様向けメモ

CPAN

SVG::Convertをrelease

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

mogadmコマンドが多機能になってた件

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

Module-StarterをModule-Installに対応させる

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対応し…

ins,del要素のdatetime属性が書けない人の為のワンライナー

僕です。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で出来るお!

URIとURI::Escapeのurlencodeについて (2)

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

URIとURI::Escapeのurlencodeについて (1)

ソース #!/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…

DateTime, DateTime::Format::Epoch::Unix

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

LEGO::Colors

タイトル通り、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');…

X-REPROXY-CACHE-FORを使いたい人向けショートBK

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から一個ずつ値を抽…

Cache::Memcached::GetParserXSを使うと速くなるのか?

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

指定したdomainのファイルを全て消す

こんな感じかなー。 #!/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…

JavaScriptのlocationオブジェクトとURI::httpの対応表

例えば、 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をOSXにインストールする途中でハマったの巻

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

Data::ClearSilver::HDFにcspageコマンドつけた

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

Data::ClearSilver::HDFをリリース

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

MogileFS::Plugin::FilePaths, MogileFS::Client::FilePathsを試してみる

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

File::MMagic, File::MimeInfo::Magic

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

Catalystのデプロイに関するあれこれ

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

Carp::Clanのメリット

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

CPANモジュールの品質評価

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

JavaScript::Minifierを使ったJavaScriptファイルの軽量化ワンライナー

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

MozRepl module released

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

DBI-1.55は結構良さそう

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とURI::fileの挙動

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

ack --thpppt でちょっと息抜き

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

Data::JavaScript, Data::JavaScript::LiteObject, Data::JavaScript::Anon

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…

Module::Pluggable::Fast Source Code Reading

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

Module::Pluggable Source Code Reading

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

Games-Nintendo-Wii-Mii Release

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