Re: existing PERL modules?


Come for the quick hacks, stay for the epiphanies.
	PerlMonks

Re: existing PERL modules?

by strat (Canon)

on Apr 17, 2005 at 09:20 UTC ( [id://448609]=note: print w/replies, xml )

Need Help??

in reply to existing PERL modules?

Well, you could filter the files in the subdirectories in @INC with the extension .pm...

use File::Find;
foreach my $dir (@INC) {
  find( sub {
    if (-f $_ and /\.pm/) {
      my $module = $File::Find::name;
      $module =~ s|\Q$dir\E/||; # remove part of @INC
      $module =~ s|\.pm$||; # remove extension .pm
      $module =~ s|/|::|g; # translate / to ::
      print "$module\n";
    } # if
  }, $dir);
} # foreach
[download]

Best regards,
perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v8.8.8.32.11.32"

Comment on Re: existing PERL modules? Download Code

Replies are listed 'Best First'.

Re^2: existing PERL modules?
by MarkusLaker (Beadle) on Apr 17, 2005 at 12:00 UTC

[~]$ cat `which pmwhich`
#!/usr/bin/perl
use warnings;
use strict;

die "pmwhich module-name\n" unless @ARGV == 1;

my $module = $ARGV[0];
$module =~ s!::!/!g;

for my $dir (@INC) {
    my $fqn = "$dir/$module.pm";
    if (-e $fqn) {
        print $fqn, "\n";
        last;
    }
}

[~]$ pmwhich bigint
/usr/lib/perl5/5.8.5/bigint.pm
[~]$
[download]

Markus

[reply]
[d/l]

In Section Seekers of Perl Wisdom