Comment obtenir le nom du module par nom de fichier?

J'ai utilisé PPI pour analyser (et réécrire) le code Perl. Si je me souviens bien, un peu de courbe d'apprentissage, mais cela a plutôt bien fonctionné. Dans votre cas, il vous suffit de trouver l'instruction package <...> à partir du fichier. Tout ce qui est plus complexe que cela, comme quelqu'un utilisant autopackage , et PPI ne serait probablement pas en mesure de vous aider , non plus.

Il n'est pas nécessaire que les noms de paquet correspondent au nom de fichier depuis lequel il a été chargé, ou pour le premier paquet à . Mais pour tout module correctement écrit que vous pouvez utiliser normalement et même certains modules bizarres, Module :: Metadata peut trouver ces informations. En règle générale, vous devez travailler avec des noms de fichiers absolus quel que soit votre répertoire actuel, ce qui peut vous aider. ( File :: Spec et Path :: Tiny peut vous aider)

use strict;
use warnings;
use Module::Metadata;
my $metadata = Module::Metadata->new_from_file('/path/to/File.pm');
my $package = $metadata->name;

En gros, vous ne pouvez pas, sans analyser vos fichiers. La bonne façon est d'utiliser un module perl standard comme https://perldoc.pl/Module::Metadata a>, mais si vous voulez le faire vous-même, avec l'extrait suivant, vous pouvez extraire tous les espaces de noms de chaque fichier (oui .. un fichier n'est qu'un conteneur, vous pouvez donc avoir plus de paquets à l'intérieur). et sale façon:

 {
   'lib/Bar.pm' => [
                     'Apple::Steve'
                   ],
   'lib/Foo.pm' => [
                     'Banana::Joe',
                     'Papaya::Frank'
                   ]
 };

En supposant que nous ayons deux fichiers:

1) lib / Foo.pm (avec 2 packages à l'intérieur)

package Apple::Steve 0.013 ;

...code...

1 ;

2) lib/Bar.pm

package Banana::Joe 0.003 ;

...code...

package Papaya::Frank 0.001 ;

...code...

1 ;

$ LES PACKAGES seront:

my $PACKAGES ;
my @files = ('lib/Foo.pm','lib/Bar.pm') ;
my $row ;
map {
    open PKGFILE , '<', $_ or die "Got error opening file $_: $!" ;
    while ( $row = <MODULE>){
        if ( $row =~ /\s*package\s+([\S]+)(.*?)[;{]/ ){
            # rx modified on Grinnz review
            push @{$PACKAGES->{ $_ }} , $1 ;
            # last ; # <== uncomment if you are sure each file 
                     #     contains only one package
        } ;
    }
    close PKGFILE ;
} @files ;