任意のモジュールが@INC内に存在するか調べる(Perl)

昨日のコマンドの応用編ということで↓

@INCに、任意のモジュールが存在するか調べるコマンド。

pi@raspberrypi:~ $ find `perl -e 'print join("\n",@INC)'` -name "*.pm" | grep CGI | sort
/usr/lib/arm-linux-gnueabihf/perl5/5.20/FCGI.pm
/usr/share/perl5/CGI.pm
/usr/share/perl5/CGI/Carp.pm
/usr/share/perl5/CGI/Cookie.pm
/usr/share/perl5/CGI/Fast.pm
/usr/share/perl5/CGI/File/Temp.pm
/usr/share/perl5/CGI/Pretty.pm
/usr/share/perl5/CGI/Push.pm
/usr/share/perl5/CGI/Util.pm
pi@raspberrypi:~ $