perldoc -m Module をよく使うけど、たまにpodを除いたソースを読みたい時がある。
そんな時は Pod::Stripperが便利。
こういうスクリプトをperlcodeというファイル名でパスが通るところに置いておいて
perlcode Module で読めるようにしています。単純だけど便利だよ。
#!/usr/bin/perl use strict; use warnings; use Pod::Stripper; use IO::Pager; my $stripper = Pod::Stripper->new; my $file = `perldoc -l $ARGV[0]`; { local $STDOUT = IO::Pager->new(*STDOUT); $stripper->parse_from_file($file); }