Lady_Aleena has asked for the wisdom of the Perl Monks concerning the following question:
As some of you know, I'm doing an audit of my code. Part of that audit is finding what modules my modules use and what modules I have written are used by other modules I have written. If I ever get things nice enough in some of my modules, I might one day put a few up on CPAN. However, I need to know what modules my modules use so I can include them in the install if the user does not already have. Like, if I use Lingua::EN::Inflect in a module (or group of modules), it would need to be installed if the user does not have it already. At least I think so.
I came up with the following code to find the information but there might be a better way.
Update: I put the updated code I used here: Re: Finding what modules use and what uses the modules. Your options looked interesting but did not differentiate things the way I wanted.
#!/usr/bin/perl use strict; use warnings; use File::Find; my @files; sub wanted { my $file = $_ =~/.pm$/ ? $File::Find::name : undef; push @files, $file if $file; } my @directories = ('/home/me/Documents/'); find(\&wanted, @directories); my $module_directory = $directories[0].'www/files/lib/'; my $modules; for my $file (@files) { open my $fh, '<', $file or die "$file: $!"; my $file_convert = $file; $file_convert =~ s/$module_directory(.+)\.pm/$1/; $file_convert =~ s/\//::/g; while (<$fh>) { chomp; if ($_ =~ s/^use ((:|\w)+)(.+)/$1/) { push @{$modules->{$file_convert}{'uses'}}, $1; # what modules + the module uses push @{$modules->{$1}{'used by'}}, $file_convert; # what modules + use this module } } } my $in = shift; use Data::Dumper; print Dumper($modules->{$in});
Here is example output.
me@office:~$ perl Documents/scripts/find_module_use.pl 'RolePlaying::R +andom' $VAR1 = { 'used by' => [ 'RolePlaying::CharacterMutation', 'RolePlaying::Random::Range', 'RolePlaying::Random::Time', 'RolePlaying::Random::SpecialAttack', 'RolePlaying::Random::Title', 'RolePlaying::Random::WildPsionics', 'RolePlaying::Random::Descriptor', 'RolePlaying::Random::Spell', 'RolePlaying::Random::SavingThrow', 'RolePlaying::Random::Color', 'RolePlaying::Random::Monster', 'RolePlaying::Random::GemMetalJewelry', 'RolePlaying::Random::Thing', 'RolePlaying::Random::Weapon', 'RolePlaying::Random::Size', 'RolePlaying::Random::Food', 'RolePlaying::Random::Misc', 'RolePlaying::Random::Event', 'RolePlaying::Random::Water', 'RolePlaying::Random::Class', 'RolePlaying::Random::MagicItem', 'RolePlaying::Random::Color::VisiBone', 'RolePlaying::Random::Body::Function', 'RolePlaying::Random::Body::Modification' ], 'uses' => [ 'strict', 'warnings', 'Exporter', 'List::Util' ] };
If you know of a better way that will give me deeper or more sophisticated results, I am interested.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Finding what modules use and what uses the modules
by Discipulus (Canon) on May 27, 2017 at 12:41 UTC | |
Re: Finding what modules use and what uses the modules
by Tux (Canon) on May 27, 2017 at 13:22 UTC | |
by LanX (Saint) on May 27, 2017 at 13:51 UTC | |
Re: Finding what modules use and what uses the modules
by stevieb (Canon) on May 27, 2017 at 12:40 UTC | |
by hippo (Bishop) on May 28, 2017 at 09:57 UTC | |
Re: Finding what modules use and what uses the modules
by Anonymous Monk on May 27, 2017 at 01:33 UTC | |
by swl (Parson) on May 27, 2017 at 07:13 UTC | |
Re: Finding what modules use and what uses the modules
by Lady_Aleena (Priest) on May 31, 2017 at 09:45 UTC | |
Re: Finding what modules use and what uses the modules
by Anonymous Monk on May 31, 2017 at 08:23 UTC |