# yum install jwhoisよし。これで www.s14u.info の whois をみるとするか。（なんで自分のサイト見えないの？） ]]>
]]>Flickr: http://farm1.static.flickr.com/253/461524967_f3551dfeb0.jpg Zooomr: http://static.zooomr.com/images/5217432_7838e9f814.jpg
仕事をしていると自分自身が想定していることを越える何かが発生したりするとフラストレーションがたまるもの。そんなフラストレーションを軽減するメソッドとして最近社内で流行しているのが、「それは恋ですね」という台詞。端を発したのは同僚の「例えばそれは恋愛みたいなものですよ」という名言から。
確かに相手を思えば思う程、自分の欲求は募り、大きな期待をしてしまうもの。なんか似ているところがありますよね。おそらくフラストレーションの原因とあなたは恋をしているのです。仕事でたまったフラストレーションを恋に例えてみると案外笑って一蹴できてしまい、ストレスフリーな状態になれたりします。
今仕事でストレスを抱えている方、恋に例えてみてはいかがでしょうか？]]>
Perl extension for minifying JavaScript codeということで、javascriptファイル中の不要なスペースや改行などを取り除いてくれます。 ある時点での jQuery の core.js に JavaScript::Minifier をあててみました。 45%くらい小さくなりました。
# ls -al core* -rw-r--r-- 1 root wheel 21346 Jun 10 01:21 core-min.js -rw-r--r-- 1 root wheel 38087 Jun 10 01:18 core.js小さいことではありますが、でもファイルサイズはウェブページ閲覧のパフォーマンスに影響する部分ですので、こういうツールはありがたいですね。]]>
#!/usr/local/bin/perl
use strict;
use warnings;
use XML::LibXML;
use Perl6::Say;
use Benchmark;
my $xp = XML::LibXML->new;
my $doc = $xp->parse_string(<<"XML");
<?xml version="1.0"?>
<doc attr="please">
please ignore.this is a test.
</doc>
XML
my $xml = $doc->documentElement;
timethese (10000, {
'accessor' => sub { $xml->getAttribute('attr') },
'xpath' => sub { $xml->findvalue('@attr') },
});
追記
さらに、Devel::Profile を用いて、上記の timethese の中の accessor と xpath のそれぞれ片方だけを実行した結果の上位10位です。（上記のコードを baz.pl として保存して、perl -d:Profile baz.pl と実行）
'accessor'のみ実行（#'xpath'の行をコメントアウト）
time elapsed (wall): 0.7500 time running program: 0.5730 (76.40%) time profiling (est.): 0.1770 (23.60%) number of calls: 41183 %Time Sec. #calls sec/call F name 34.91 0.2000 20000 0.000010'xpath'のみ実行（#'accessor'の行をコメントアウト）:.../Perl/5.8.6/Benchmark.pm:651 18.27 0.1047 10000 0.000010 XML::LibXML::Element::getAttribute 10.43 0.0598 1 0.059758 :.../Perl/5.8.6/Benchmark.pm:675 10.41 0.0597 10000 0.000006 XML::LibXML::Element::_getAttribute 10.30 0.0590 1 0.059044 :.../Perl/5.8.6/Benchmark.pm:682 3.16 0.0181 1 0.018114 :baz.pl:6 1.23 0.0071 383 0.000018 Benchmark::new 1.17 0.0067 0 0.006728 * 1.15 0.0066 1 0.006588 :baz.pl:9 1.10 0.0063 1 0.006291 :baz.pl:8
time elapsed (wall): 2.2250 time running program: 1.7546 (78.86%) time profiling (est.): 0.4705 (21.14%) number of calls: 111103 %Time Sec. #calls sec/call F name 21.90 0.3842 10000 0.000038 XML::LibXML::Node::_find 17.64 0.3096 10000 0.000031 XML::LibXML::Node::findvalue 11.83 0.2076 10000 0.000021 XML::LibXML::NodeList::to_literal 11.63 0.2041 20000 0.000010]]>:.../Perl/5.8.6/Benchmark.pm:651 11.26 0.1976 10000 0.000020 XML::LibXML::Node::find 3.90 0.0684 10000 0.000007 XML::LibXML::Node::string_value 3.56 0.0625 1 0.062548 :.../Perl/5.8.6/Benchmark.pm:682 3.44 0.0604 1 0.060442 :.../Perl/5.8.6/Benchmark.pm:675 3.36 0.0590 10000 0.000006 XML::LibXML::Literal::new 3.23 0.0566 10000 0.000006 XML::LibXML::NodeList::new
主な業務内容 * 毎日の坐禅において社員にカツを入れる * 週1回の全社ミーティングで法話を語る * 年に2回のお盆イベントを主催する * 定期的に読経を行う * shakyou-a-thonを主催する]]>
use Hash::Merge qw( merge );
my %a = (
'foo' => 1,
'bar' => [ qw( a b e ) ],
'querty' => { 'bob' => 'alice' },
);
my %b = (
'foo' => 2,
'bar' => [ qw(c d) ],
'querty' => { 'ted' => 'margeret' },
);
my %c = %{ merge( \%a, \%b ) };
とすると、デフォルトでは %a から %b に上書きする感じになって結果は次のようになります。
$VAR1 = 'bar';
$VAR2 = [
'a',
'b',
'e',
'c',
'd'
];
$VAR3 = 'querty';
$VAR4 = {
'bob' => 'alice',
'ted' => 'margeret'
};
$VAR5 = 'foo';
$VAR6 = 1;
ARRAYは結合してくれているし、SCALARは上書きしてくれているし、HASHはマージしてくれている。
で merge メソッドの第二引数を第一引数にかぶせたい場合もあるでしょう。そんなときには Hash::Merge::set_behavior メソッドを使います。
先ほどの上記のコードは以下のようになります。
use Hash::Merge qw( merge );
my %a = (
'foo' => 1,
'bar' => [ qw( a b e ) ],
'querty' => { 'bob' => 'alice' },
);
my %b = (
'foo' => 2,
'bar' => [ qw(c d) ],
'querty' => { 'ted' => 'margeret' },
);
Hash::Merge::set_behavior( 'RIGHT_PRECEDENT' );
my %c = %{ merge( \%a, \%b ) };
とすると結果は次の通りです。
$VAR1 = 'bar';
$VAR2 = [
'a',
'b',
'e',
'c',
'd'
];
$VAR3 = 'querty';
$VAR4 = {
'bob' => 'alice',
'ted' => 'margeret'
};
$VAR5 = 'foo';
$VAR6 = 2;
SCALAR である foo が %b の方を採用して 2 になっているのがわかりますね。
merge メソッドの引数の書き方を見れば分かるようにハッシュのリファレンスを渡していますし、merge メソッドの戻り値もハッシュのリファレンスなので次のように書く事もできます。
my $a = {
'foo' => 1,
};
my $b = {
'foo' => 2,
};
my $c = merge( $a, $b );
そうすれば結果は以下のようにになりますね。
$VAR1 = {
'bar' => [
'a',
'b',
'e',
'c',
'd'
],
'querty' => {
'bob' => 'alice',
'ted' => 'margeret'
},
'foo' => 2
};
これはいい。Hash::Mergeを採用してみることに決めました。
]]>
<xs:choice minOccurs="0">
<xs:element name="foo" />
<xs:element name="bar" />
<xs:element name="baz" />
</xs:choice>
foo, bar, baz のうちの1つあるかないかってことですね。
で、当初悩んでいたのが、次の例です。
<xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="foo" />
<xs:element name="bar" />
<xs:element name="baz" />
</xs:choice>
unbounded は無制限の意味になります。ではこのときfoo, bar, baz はいくつ選ぶことができるか？
foo, bar, baz の 3 つでも OK ですし、それこそ foo, foo, bar, bar, bar, baz でも OK らしいです。もう choice の意味がないんじゃないか？と思う程。むしろ、xs:choice をやめて以下のようにしてもいいんじゃないか？と思ったり。（おそらく xs:choice にする意味がどこかにあるからこそ、xs:choice を使っているのだと思いますが。。。）
<xs:element name="foo" minOccurs="0" maxOccurs="unbounded" />
<xs:element name="bar" minOccurs="0" maxOccurs="unbounded" />
<xs:element name="baz" minOccurs="0" maxOccurs="unbounded" />
ま、私は今のところ XML Schema を書くのではなく読む側なので、<xs:choice minOccurs="0" maxOccurs="unbounded"> の意味さえ分かればそれで OK なのですが、それにしても XML Schema は自由すぎて不自由な感じがしました。
ちなみに RelaxNG で書くと以下になります。
( foo | bar | baz )*ところで、W3C の XML Schema の和訳ってなにげに少ないんですね。。。 参考 ]]>
#!/usr/local/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;
use Net::Google::AuthSub;
use XML::LibXML;
use Data::Dumper;
my $user = 'YOUR_EMAIL_ADDRESS';
my $password = 'YOUR_PASSWORD';
my $authsub = Net::Google::AuthSub->new(service => 'cp');
my $auth_res = $authsub->login($user, $password);
unless ($auth_res->is_success) {
die 'google login is failed.'
}
my $url = "http://www.google.com/m8/feeds/contacts/$user/base";
my $req = HTTP::Request->new(GET => $url);
$req->header($authsub->auth_params);
my $res = LWP::UserAgent->new->request($req);
my $xp = XML::LibXML->new;
my $xml = $xp->parse_string($res->content);
my @emails = $xml->findnodes("/*[local-name()='feed']/*[local-name()='entry']/*[local-name()='email']");
for my $mail (@emails) {
print $mail->findvalue('@address') . "\n";
}
]]>
[root@colinux ~]# perl -v This is perl, v5.8.8 built for i386-linux-thread-multiで
[root@colinux ~]# uname -a Linux colinux 2.6.22-co-0.8.0 #1 PREEMPT Tue Nov 6 00:02:11 CET 2007 i686 i686 i386 GNU/Linuxです。 ]]>
<link rel="openid.server" href="http://www.livejournal.com/openid/server.bml"/> <link rel="openid.delegate" href="http://comewalk.livejournal.com/"/>これが大きく変わります。OpenID 2.0 の仕様の 7.3 Discovery が参考になります。
1. If the identifier is an XRI, [XRI_Resolution_2.0] (Wachob, G., Reed, D., Chasen, L., Tan, W., and S. Churchill, "Extensible Resource Identifier (XRI) Resolution V2.0 - Committee Draft 02," .) will yield an XRDS document that contains the necessary information. It should also be noted that Relying Parties can take advantage of XRI Proxy Resolvers, such as the one provided by XDI.org at http://www.xri.net. This will remove the need for the RPs to perform XRI Resolution locally. 2. If it is a URL, the Yadis protocol (Miller, J., "Yadis Specification 1.0," .) [Yadis] SHALL be first attempted. If it succeeds, the result is again an XRDS document. 3. If the Yadis protocol fails and no valid XRDS document is retrieved, or no Service Elements (OpenID Service Elements) are found in the XRDS document, the URL is retrieved and HTML-Based discovery (HTML-Based Discovery) SHALL be attempted.意訳すると、 1.XRIが入力されたならばXRI Resolutionに従ってXRDS文書を探します。 2.URLが入力されたならばYadisプロトコルでXRDS文書を探します。 3.Yadisもダメ、XRDS文書もinvalidで、サービス要素である<xsd:Service>もない。ならば、HTMLのlink要素をみてみます。 という具合です。 さらに以下の記述も変わります。
<link rel="openid.server" href="http://www.livejournal.com/openid/server.bml" /> <link rel="openid.delegate" href="http://comewalk.livejournal.com/" />OpenID 2.0 対応では次のようになります。サンプルが仕様書にあります。
<link rel="openid2.provider" href="http://www.livejournal.com/openid/server.bml" > <link rel="openid2.local_id" href="http://comewalk.livejournal.com/" />OpenID 1.1 と OpenID 2.0 を共存させるには、rel属性に両方を書きます。
<link rel="openid2.provider openid.server" href="http://www.livejournal.com/openid/server.bml" /> <link rel="openid2.local_id openid.delegate" href="http://comewalk.livejournal.com/" />ところで、www.yahoo.com の HTML を見ても、OpenID の Discovery らしきものは見当たりません。Yadis の仕様書を見たらこんな記述がありました。
6.2.4 Initiation The Yadis Protocol is initiated by the Relying Party Agent with an initial HTTP request using the Yadis URL. This request MUST be either a GET or a HEAD request. A GET or HEAD request MAY include an HTTP Accept request-header (HTTP 14.1) specifying MIME media type, application/xrds+xml.GETかHEADで取ると。必要であれば Accept: application/xrds+xml を付けようと。 で試してみました。
comewalk:~ takatsugu$ telnet www.yahoo.com 80 Trying 209.131.36.158... Connected to www.yahoo-ht3.akadns.net. Escape character is '^]'. HEAD / HTTP/1.1 Host: www.yahoo.com Accept: applilcation/xrds+xml HTTP/1.1 200 OK Date: Tue, 04 Mar 2008 15:31:02 GMT P3P: policyref="http://p3p.yahoo.com/w3c/p3p.xml", CP="CAO DSP COR CUR ADM DEV TAI PSA PSD IVAi IVDi CONi TELo OTPi OUR DELi SAMi OTRi UNRi PUBi IND PHY ONL UNI PUR FIN COM NAV INT DEM CNT STA POL HEA PRE GOV" Cache-Control: private Vary: User-Agent X-XRDS-Location: http://open.login.yahooapis.com/openid20/www.yahoo.com/xrds Last-Modified: Tue, 04 Mar 2008 15:22:48 GMT Accept-Ranges: bytes Content-Length: 9533 Connection: close Content-Type: text/html; charset=utf-8お
X-XRDS-Location: http://open.login.yahooapis.com/openid20/www.yahoo.com/xrdsというのがかえってきました。 yahoo.com は HEAD で取得できるようですね。 で、http://open.login.yahooapis.com/openid20/www.yahoo.com/xrds というファイルが XRDS文書なのです。 見ると
<xrds:XRDS xmlns:xrds="xri://$xrds" xmlns:openid="http://openid.net/xmlns/1.0" xmlns="xri://$xrd*($v*2.0)">
<xrd>
<Service priority="0">
<Type>http://specs.openid.net/auth/2.0/server</Type>
<Type>http://specs.openid.net/extensions/pape/1.0</Type>
<uri>https://open.login.yahooapis.com/openid/op/auth</uri>
</Service>
</xrd>
</xrds:XRDS>
となっていて XPath でいうと /XRD/Service/URIなところにURLがありますね。そこが OpenID Provider の URL なのです。HTML の link要素から取得しないあたりがもう全然違っていて、面白いですね。
これでやっと OpenID 2.0 の Discovery が理解できてきたのでアレをああしてこうできそうです。
svn co http://code.sixapart.com/svn/openid/branches/openid2/perl/ openid2OpenIDの入力が簡単になった。Yahoo! など大手が OpenID Provider になった。あとは開発者の皆さんがご自分のプロダクトで OpenID 対応をすすめることが OpenID が広まるポイントだと思います。 さあ、OpenID 2.0 対応をすすめていきましょう。 ]]>
