从带有 2 个条目的 windows 命令行执行 Perl 脚本答案

【问题标题】：Executing Perl script from windows-command line with 2 entry从带有 2 个条目的 windows 命令行执行 Perl 脚本
【发布时间】：2019-03-07 18:33:08
【问题描述】：

这是我的 Perl 脚本

use strict;
use warnings;
use XML::Twig;
use Data::Dumper;

sub xml2array{
my $path = shift; 
my $twig = XML::Twig->new->parsefile($path); 
return map { $_ -> att('VirtualPath') } $twig -> get_xpath('//Signals');
} 

sub compareMappingToArray {
my $mapping = shift;
my $signalsRef = shift; 
my $i = 1;

print "In file : $mapping\n";

open(my $fh, $mapping);
while (my $r = <$fh>) {
    chomp $r; 


    if ($r =~ /\'(ModelSpecific.*)\'/) {
        my $s = $1;


        my @matches = grep { /^$s$/ } @{$signalsRef};

        print "line $i : not found - $s\n" if scalar @matches ==0;
        print "line $i : multiple $s\n" if scalar @matches > 1;
    }

    $i = $i + 1 # keep line index
 }
}

my $mapping = "C:/Users/HOR1DY/Desktop/Global/TA_Mapping/CAN/CAN_ESP_002_mapping.pm";      
my @virtualpath = xml2array("SignalModel.xml");
compareMappingToArray($mapping,  \@virtualpath);

该脚本运行良好，其目的是比较文件“SignalModel.xml”和“CAN_ESP_002_mapping.pm”，并将不匹配的行放入 .TXT 文件中。下面是 .TXT 文件的样子：

In file : C:/Users/HOR1DY/Desktop/Global/TA_Mapping/CAN/CAN_ESP_002_mapping.pm
line 331 : not found - ModelSpecific.EID.NET.CAN_Engine.VCU.Transmit.VCU_202.R2B_VCU_202__byte_3
line 348 : not found - ModelSpecific.EID.NET.CAN_Engine.CMM_WX.Transmit.CMM_HYB_208.R2B_CMM_HYB_208__byte_2
line 368 : not found - ModelSpecific.EID.NET.CAN_Engine.VCU.Transmit.VCU_222.R2B_VCU_222__byte_0

但是对于这个脚本，我将需要比较的两个文件放在代码中，而不是这样做，我想在 windows cmd 行中运行脚本并具有类似的内容：

C:\Users>perl CANMappingChecker.pl -'file 1' 'file 2'

所有文件都在 .zip 文件中，所以如果我可以执行他进入的脚本并获取我需要的 2 个文件进行比较，那应该是完美的。我真的不知道该怎么做以及在我的脚本中放入什么以在 cmd 窗口中进行操作。感谢您的帮助！

【问题讨论】：

标签： windows bash perl command-line cmd

【解决方案1】：

程序（或脚本）参数存储在@ARGV 数组中。 shift 和 pop 不带任何参数将在 @ARGV 上使用时在 sub 之外使用，在 sub 中它们在 @_ 上运行。

请参阅Archive::Zip 了解 zip 文件处理。

【讨论】：