UNIVERSAL::which で。 $ pmwhich() { echo -n "$1#$2 = " perl -MUNIVERSAL::which -M$1 \ -e "print join('#',UNIVERSAL::which('$1','$2')).qq{\n}" } $ pmwhich 'Net::XMPP::Client' 'Connect' Net::XMPP::Client#Connect = Net::XMPP::Connection#Conne…

jabbin サーバ側はそのままなんもいじらんで、Google TalkみたいにVoIPができるjabberクライアント。音声データってどやってやりとりしてるんだろ。れっつぱけっとだんぷ。エンコードしてXMLで送ってたりしたら、Notify::XMPPで「ktkr!」いわせられるかも。…