perldoc -lですぐに移動したい。

Unix/Linux bash

perldoc -l で目的のモジュールのパスを探し出した後、そこに移動していろいろと作業したい場合がある。
その時にcdしないといけないけどそれをいちいち打ち込むのが面倒だ。TABで補完したりもするけれど面倒。
一発で移動したいので試しにスクリプトを書いたけれどあまり効率がいいとは言えない。sedの勉強にはなった。
もう少し整理してホームディレクトリのbinに置いとけばいいのかな。

cd `perldoc -l HTML::Selector::XPath | sed -e "s/\(.*\)\/.*\$/\1/g"`

perlのワンライナーでこうなった。

cd `perldoc -l  LWP::Simple | xargs perl -MFile::Basename -e 'print dirname shift'`