kivitendo/scripts/find-use.pl @ d6fad186
| d6fad186 | Udo Spallek | #!/usr/bin/perl -w
|
|
=head1 NAME
|
|||
find-use
|
|||
=head1 EXAMPLE
|
|||
~/ledgersmb # utils/devel/find-use
|
|||
0.000000 : HTML::Entities
|
|||
0.000000 : Locale::Maketext::Lexicon
|
|||
0.000000 : Module::Build
|
|||
...
|
|||
=head1 EXPLINATION
|
|||
This util is useful for package builders to identify all the CPAN dependencies we've made. It required Module::CoreList (which is core, but is not yet in any stable
|
|||
release of perl) to determine if a module is distributed with perl or not. The output reports which version of perl the module is in. If it reports 0.000000, then the
|
|||
module is not in core perl, and needs to be installed before Lx-Office will operate.
|
|||
=head1 AUTHOR
|
|||
http://www.ledgersmb.org/ - The LedgerSMB team
|
|||
=head1 LICENSE
|
|||
Distributed under the terms of the LedgerSMB code.
|
|||
=cut
|
|||
use strict;
|
|||
use warnings;
|
|||
open GREP, "grep -r '^use ' . |";
|
|||
use Module::CoreList;
|
|||
my %uselines;
|
|||
while(<GREP>) {
|
|||
next if /SL::/;
|
|||
next if /LX::/;
|
|||
next if /use warnings/;
|
|||
next if /use strict/;
|
|||
next if /use vars/;
|
|||
chomp;
|
|||
my ($file, $useline) = m/^([^:]+):use\s(.*?)$/;
|
|||
$uselines{$useline}||=[];
|
|||
push @{$uselines{$useline}}, $file;
|
|||
}
|
|||
my %modules;
|
|||
foreach my $useline (keys %uselines) {
|
|||
my ($module) = grep { $_ } $useline =~ /(?:base ['"]([a-z:]+)|([a-z:]+)(?:\s|;))/i;
|
|||
my $version = Module::CoreList->first_release($module);
|
|||
$modules{$module} = $version||0;
|
|||
}
|
|||
foreach my $mod (sort { $modules{$a} == 0 ? -1 : $modules{$b} == 0 ? 1 : 0 or $a cmp $b } keys %modules) {
|
|||
printf "%2.6f : %s\n", $modules{$mod}, $mod;
|
|||
}
|