On Wed, Sep 11, 2002 at 12:26:15PM +0800, william villanueva wrote: > I was able to find a script in perl.com/CPAN which allows one to list and > another to remove the modules. The only problem with this is that it only > sees what you installed via CPAN. It doesn't see those installed via RPMs > for example.
This is the first rpm command I learned from my Boss Ian: rpm -qa | grep ^perl I hope this is what you want. > And there is one program which I know is an older version, but > when I try to get it updated, it says I have the latest but I could get it > to list that the module is installed. I suggest that you learn how to do it in Perl. But if you really insist, here's a code from japhy FROM http://japhy.perlmonk.org/programs/modlist #!/usr/bin/perl -l # modlist -- list Perl modules # web check print "Content-type: text/plain\n\n" if $ENV{REMOTE_ADDR}; use File::Find; @path{@INC} = (); for $base (@INC) { print "$base"; find(\&modules, $base); print ""; } sub modules { $File::Find::prune = 1, return if exists $path{$File::Find::dir} and $File::Find::dir ne $base; my $module = substr $File::Find::name, length $base; return unless $module =~ s/\.pm$//; $module =~ s!^/+!!; $module =~ s!/!::!g; print " $module"; } HTH -- $_=q:; # SHERWIN # 70;72;69;6e;74;20; 27;4a;75;73;74;20; 61;6e;6f;74;68;65; 72;20;50;65;72;6c; 20;6e;6f;76;69;63; 65;27;:;;s=~?(..); ?=pack q$C$,hex$1; ;;;=egg;;;;eval;;; _ Philippine Linux Users Group. Web site and archives at http://plug.linux.org.ph To leave: send "unsubscribe" in the body to [EMAIL PROTECTED] To subscribe to the Linux Newbies' List: send "subscribe" in the body to [EMAIL PROTECTED]
