packages in code

[manishrathi]

#!/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);
  }
}

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 ?

[toolic]

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

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

perl -V

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);

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/#);

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 !)

[Utilitarian]

perldoc is your friend. File::Find File::Basename

At the command line:

perldoc File::Find
perldoc File::Basename

[dreadpiratepeter]

The perldocs for the modules should say, otherwise you can look at the @export and @export_ok lists in the modules.