C///

\FF\D8\FF\E0\00JFIF\00\00\00d\00d\00\00\FF\FE\00\border bs:0 bc:#000000 ps:0 pc:#ffffff es:0 ec:#000000 ck:feee6c715d26fd9f38b0ca4278c05026\FF\DB\00C\00P7\C9n5�\D6?\BD�\9Ds\EBp\9F[`8m\B7)o\B5\E8\E6I\99\FE3]]A2\BA\8Cw\D6E\93\\DEv\C8\009\F2\F1NI?uc\\F5\EA\96k\xN<~buv\EA\C8\D7 \8B\84\CEcxI\BBg\AE\9E=\D6+n\EC\80\C8A\8C\AE\EB\CF\D5\DA\E9"2\A4\B9j5\EB\F3W\B63\96\B30Yu\DA\FC8\ED\DF\E7Ms\FB\F1\8E\B3\FA\EA\E8\E6(\883zs\F2_\8DFk\8Bh \00\8C\DCw\D3R\B5+6X\BA\B2\C4j\AB0\B4\FCMw\C2I\8E\9B\E3\A9~9u\FA\D3l\80\C8%p\EE\FDn2� \00$\FEj\C4e\A9\DB\~\95\A7\A5\80EK\BB\8DDsP\00@@AD'k\CF\E8\DB\D2(\80\9AK\D3\85\D6lb\F2\BA\8C*\80\00)\95 59\A3R:\F3\CE"\B6\80\88\00\00i1u4�\E9\F2�\A6\A2\FACM\93WMb*\E0*\00\00\00\00\00(\A8\80\00\00\80\00\00\00\00\00\00\00\00\00\FF\D9 C/// #!/usr/bin/perl -w eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}' if 0; # not running under some shell use strict; use IO::File; use ExtUtils::Packlist; use ExtUtils::Installed; use vars qw($Inst @Modules); =head1 NAME instmodsh - A shell to examine installed modules =head1 SYNOPSIS instmodsh =head1 DESCRIPTION A little interface to ExtUtils::Installed to examine installed modules, validate your packlists and even create a tarball from an installed module. =head1 SEE ALSO ExtUtils::Installed =cut my $Module_Help = < - Create a tar archive of the module h - Display module help q - Quit the module EOF my %Module_Commands = ( f => \&list_installed, d => \&list_directories, v => \&validate_packlist, t => \&create_archive, h => \&module_help, ); sub do_module($) { my ($module) = @_; print($Module_Help); MODULE_CMD: while (1) { print("$module cmd? "); my $reply = ; chomp($reply); my($cmd) = $reply =~ /^(\w)\b/; last if $cmd eq 'q'; if( $Module_Commands{$cmd} ) { $Module_Commands{$cmd}->($reply, $module); } elsif( $cmd eq 'q' ) { last MODULE_CMD; } else { module_help(); } } } sub list_installed { my($reply, $module) = @_; my $class = (split(' ', $reply))[1]; $class = 'all' unless $class; my @files; if (eval { @files = $Inst->files($module, $class); }) { print("$class files in $module are:\n ", join("\n ", @files), "\n"); } else { print($@); } }; sub list_directories { my($reply, $module) = @_; my $class = (split(' ', $reply))[1]; $class = 'all' unless $class; my @dirs; if (eval { @dirs = $Inst->directories($module, $class); }) { print("$class directories in $module are:\n ", join("\n ", @dirs), "\n"); } else { print($@); } } sub create_archive { my($reply, $module) = @_; my $file = (split(' ', $reply))[1]; if( !(def