如何從一個perl腳本調用多個perl腳本並生成輸出？

Question

我已經寫了一個多腳本，它以xml的形式返回輸出。我有xsl文件，它將從xml爲每個腳本打印出一張漂亮的表格。但是我需要編寫一個腳本，在其中我調用所有這些多個腳本並創建一個輸出。

可以這樣做嗎？如果有的話，請給我一個例子，說明如何做到這一點。

#Example Script 1 

use strict; 
use warnings; 
use Data::Dumper; 
use XML::Simple; 
use Getopt::Long; 

my $output = ''; 
my $debug = 0; 
my $path; 
GetOptions('path=s' => \$path,'output=s' => \$output, 'debug=i' => \$d 
+ebug); 

if($output eq ''){ 
    die ("parameter --output=s is missing"); 
}  
open my $xmloutput, ">", $outputFile or die "can not open $outputFile 
+"; 
print $xmloutput "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<?xml-s 
+tylesheet type=\"text/xsl\" href=\"book.xsl\"?>\n<Books>\n"; 

my $parser = new XML::Simple; 
my $data = $parser->XMLin("$path"); 
print $xmloutput " <bookDetails> \n"; 
print $xmloutput " <bookName>$data</bookName> \n"; 
print $xmloutput " </bookDetails> \n"; 
print $xmloutput " </Books> \n"; 
close $xmloutput; 

實施例2

EXAMPLE 2 
use strict; 
use warnings; 
use Data::Dumper; 
use XML::Simple; 
use Getopt::Long; 

my $output = ''; 
my $debug = 0; 
my $path; 
GetOptions('path=s' => \$path,'output=s' => \$output, 'debug=i' => \$d 
+ebug); 

if($output eq ''){ 
    die ("parameter --output=s is missing"); 
}  
open my $xmloutput, ">", $outputFile or die "can not open $outputFile 
+"; 
print $xmloutput "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<?xml-s 
+tylesheet type=\"text/xsl\" href=\"Piano.xsl\"?>\n<Piano>\n"; 

my $parser = new XML::Simple; 
my $data = $parser->XMLin("$path"); 
print $xmloutput " <PianoDetails> \n"; 
print $xmloutput " <PianoName>$data</PianoName> \n"; 
print $xmloutput " </PianoDetails> \n"; 
print $xmloutput " </Piano> \n"; 
close $xmloutput; 

Answer 1

聽起來你需要使用反引號（'）。

my $xmlout1 = `perl xmlscript1.pl`; 
my $xmlout2 = `perl xmlscript2.pl`; 
my $xmlout3 = `perl xmlscript3.pl`; 

等

Answer 2

寫每個運行您的其他工具，以一個控制腳本。

如果子工具將其XML重新格式化輸出寫入STDOUT，則可以使用pipe open語法在控制腳本中捕獲並重新格式化它。如果他們保存文件，你需要收集每個文件，按摩併合並它然後清理。

Answer 3

您可以按照require的順序運行幾個perl腳本，不需要使用系統調用。它可以做到這樣的事情：

my @scripts_to_run = ('first.pl', 'second.pl', 'third.pl'); 
for my $script (@scripts_to_run) { 
    require $script; 
} 

...雖然東西告訴我，這應該實際上完成一個腳本，只是調用不同的參數。 ）該腳本可以保存爲模塊，在編譯時僅包含一次和use，然後用任何參數（可能爲），作爲模塊方法調用。