Perl - Comment analyser un répertoire, analyser chaque fichier dans le répertoire et extraire tous les commentaires au fichier html

Question

J'ai besoin d'aide sérieuse, je suis nouveau à Perl et besoin d'aide sur la façon de créer un script Perl qui inciterait le utilisateur pour un répertoire contenant des fichiers perl, analyser chaque fichier dans ce répertoire, puis extraire tous les commentaires de chaque fichier à des fichiers html individuels.

des exemples de code ou des modules existants qui le font déjà serait génial.

Merci!

Answer 1

Une simple recherche cpan avec le mot-clé "dir" a fait apparaître un grand nombre de modules utiles. L'un de ceux que j'utilise beaucoup est:

IO::Dir

Answer 2

PPI peut être utilisé pour analyser les fichiers de code Perl. Cela devrait vous aider à obtenir des fichiers Perl dans un répertoire (en supposant qu'ils ont des extensions .pl) et en saisissant les commentaires. Je ne suis pas sûr de ce que vous voulez dire au sujet de la pièce HTML:

use warnings; 
use strict; 
use PPI; 

my $dir = shift; 
for my $file (glob "$dir/*.pl") { 
    my $doc = PPI::Document->new($file); 
    for my $com (@{ $doc->find('PPI::Token::Comment') }) { 
     print $com->{content}; 
    } 
} 

Mise à jour: Regardez HTML::Template (mais il peut être exagéré).

Answer 3

Si vous avez le choix, voici un script Ruby

#!/usr/bin/env ruby 
print "Enter directory: " 
directory=File.join(gets.chomp,"*.pl") 
directory="/home/yhlee/test/ruby/*.pl" 
c=0 
Dir[directory].each do |file| 
    c+=1 
    o = File.open("file_#{c}.html","w") 
    File.open(file).each do |line| 
     if line[/#/] 
      o.write (line.scan(/;*\s+(#.*)$/)[0].first + "\n") if line[/;*\s+#/] 
      o.write (line.scan(/^\s+(#.*)$/)[0].first + "\n") if line[/^\s+#/] 
     end 
    end 
    o.close 
end