next up previous contents index practicapracticaPP2moodleLHPmoodlepserratacpanmodulospauseperlgoogleetsiiullpcgull
Sig: Ejecutables Sup: Pruebas en la Construcción Ant: Hallar la Versión de Err: Si hallas una errata ...

Dónde está un Módulo

Si lo que se quiere es saber donde está instalado o donde esta la documentación puede usar un guión como este:
$ cat /usr/local/bin/which.pl
#!/usr/bin/perl -w

my $pattern = shift || '';
$pattern =~ s{::}{/}g; # En unix ...
my @dirs = @INC; 

for (@dirs) {
  my $file = $_."/".$pattern.'.pm';
  print "$file\n" if (-e $file);
  $file = $_."/".$pattern.'.pod';
  print "$file\n" if (-e $file);
  $file = $_."/pod/".$pattern.'.pod';
  print "$file\n" if (-e $file);
}
El guión muestra todos los módulos con nombre dado asi como los PODs:
$ which.pl Test::More
/usr/local/share/perl/5.8.4/Test/More.pm
/usr/share/perl/5.8/Test/More.pm


next up previous contents index practicapracticaPP2moodleLHPmoodlepserratacpanmodulospauseperlgoogleetsiiullpcgull
Sig: Ejecutables Sup: Pruebas en la Construcción Ant: Hallar la Versión de Err: Si hallas una errata ...
Casiano Rodríguez León
2006-02-21