http://qs321.pair.com?node_id=787094

manishrathi has asked for the wisdom of the Perl Monks concerning the following question: 

#!/migration/interwoven/teamsite/iw-perl/bin/iwperl
use strict;
use File::Find;
use File::Basename;

my $PATH = "/iwmnt/iwadmin/main/livesite/component/STAGING/";
my @comp = ();
find( \&filterComponent, $PATH );


print "<substitution>\n";
foreach my $component (sort @comp){
  (my $value = $component) =~ s#\.component##;
  my $opt = qq|<option label="$component" value="$value"/>|; 
  print $opt."\n";
}
print "</substitution>\n";

sub filterComponent {
  my @files = $File::Find::name;
  foreach my $file (@files){
     next unless !($file =~ m#\/Interwoven\/#);
     next unless !($file =~ m#\/Debug\/#);
     next unless !($file =~ m#\/LiveSite\/#);
     next unless !($file =~ m#\/Examples\/#);
     next unless !($file =~ m#\/News\/#);
     next unless !($file =~ m#\/Web\/#);
     $file = basename($file);
     next unless ($file =~ m#\.component$#) ;
     push (@comp, $file);
  }
}

[download]
In this code, from where the packages File::Find and File::Basename are imported ? How do I know what functions are available in these packages ?

Replies are listed 'Best First'.
Re: packages in code
by toolic (Bishop) on Aug 08, 2009 at 20:49 UTC
    from where the packages File::Find and File::Basename are imported ?
    If you are asking where the files are located on your system, perldoc will show you the full paths to those files: 
    perldoc -l File/Find File/Basename

    [download]
    The module files (*.pm) are under the directories named in the @INC special variable, which you can inspect with: 
    perl -V

    [download]

    Inside your code, you can also see where each use'd module comes from by inspecting the %INC special variable: 

    use Data::Dumper;
print Dumper(\%INC);

    [download]

    Here is another good resource: Simple Module Tutorial

    next unless !($file =~ m#\/Interwoven\/#);
    This can be more simply written as: 
      next if ($file =~ m#/Interwoven/#);

    [download]

    There is no need to back-whack the slashes since you already used the alternate regex delimiters (#), and there's no need for the double-negative (unless !)

[reply]
[d/l]
[select]
Re: packages in code
by Utilitarian (Vicar) on Aug 08, 2009 at 20:05 UTC
[reply]
[d/l]
Re: packages in code
by dreadpiratepeter (Priest) on Aug 08, 2009 at 20:05 UTC
    The perldocs for the modules should say, otherwise you can look at the @export and @export_ok lists in the modules.


    -pete
    "Worry is like a rocking chair. It gives you something to do, but it doesn't get you anywhere."
[reply]

Back to Seekers of Perl Wisdom