c9s の http://github.com/c9s/cpansearch とかは別に PP でもいいんじゃないの?とおもったので、PP でかいてみた。 #!/usr/bin/perl use strict; use warnings; use File::HomeDir; use File::Spec; use Getopt::Long; our $VERSION = 0.01; my $mirror = 'http://cpan.nctu.edu.tw/'; my $localfile = File::Spec->catfile(File::HomeDir->my_home(), '.cpanspp.gz'); &main;exit; sub main { my $pattern = shift @ARGV || die "Usage: $0 pattern"; GetOptions