Perl extrahieren und analysieren

Question

Ich bin neu in Perl und versuche, das Problem mit dem Skript herauszufinden.

2.Was kann ich ändern, um mehrere XML nacheinander über die Befehlszeile zu akzeptieren?

3. Wie man o/p der Funktion auf Textdatei richtet?

4.Wie man o/p der Funktion auf i/p zu anderer Funktion als Argument richtet?

Answer 1

Zuallererst sollten Ihre Moduldatei, die package-Anweisung und die use-Anweisung alle gleich geschrieben sein und sollten alle mit einem Großbuchstaben beginnen. Es sieht aus wie sollten Sie Ihre Moduldatei NVD.pm

1. Sie haben @vuln, nicht %vuln

2. Sie können durch das Schreiben dieses

   my %vuln; 
   
   for (@ARGV) { 
       %vuln = (%vuln, NVD::extract($_)); 
   } 
   

   Das wird zu einem Hash hinzufügen Werte deklariert aufgerufen werden Aggregieren Sie die Ergebnisse für alle in der Befehlszeile genannten Dateien

3. Es hängt davon ab, was Sie wollen. Das Ergebnis von extract ist eine Hash-Struktur, daher müssen Sie die Daten irgendwie formatieren. Im Allgemeinen können Sie

   open my $fh, '>', 'output.txt' or die $!; 
   
   print ... extracting data from `%vuln` as required 
   
   close $fh; 
   

4. Durch das Schreiben einfach

   other_function(NVD::extract($_)) 
   

   oder möglicherweise

   my %vuln = NVD::extract($_); 
   other_function(%vuln);