Question

我对Batch和Perl真的很陌生，所以如果我以错误的方式处理我的问题，请原谅。我的任务现在一步一步：

执行将生成批处理文件的Perl脚本。
执行批处理文件时，将使用adddiffs new (...)创建协作者评论，然后使用addfiles (...)

目前的问题是，有时审核创建过程会因任何原因而失败（我没有真正告知原因，只是它确实如此）但是尽管adddiffs命令失败，addfiles last （它当前编码的方式）仍将执行，最终将文件添加到错误的评论中。例如，我试图创建评论10，但评论创建失败，文件最终被添加到评论9，这显然不是我们想要的。

我试图将adddiffs new的输出转储到文本文件中，然后我使用一些perl脚本从中提取评论＃。我当时想要做的是使用提取的评论＃来执行addfiles reviewNum而不是addfiles last，因为看起来addfiles last可能会导致意外行为。

我的批处理文件是什么样的：

@rem= 'PERL for Windows NT
@echo off

ccollab.exe adddiffs new Original_Files Changed_Files > output.txt
C:\Perl\bin\perl GenerateReview.bat%*
goto endofperl
@rem ';

open(TXT, "output.txt") or die; 
$lastLine = "";
while ($line = <TXT>) {
    $lastLine = $line;
}

($revNum) = $lastLine =~ /(\d+)/ig;
close TXT;

__END__
:endofperl
ccollab.exe addfiles $revNum *.txt *.pdf *.html *.doc* *.xls* Info_Only/*
pause

有没有办法从perl脚本中获取$revNum并将其替换为addfiles命令？

Answer 1

可以这样做（未经测试）：

@echo off
ccollab.exe adddiffs new Original_Files Changed_Files > output.txt
set REVNUM=
for /f "delims=" %%a in ('C:\Perl\bin\perl -x "%~f0"') do set REVNUM=%%~a
if defined REVNUM (
  ccollab.exe addfiles %REVNUM% *.txt *.pdf *.html *.doc* *.xls* Info_Only/*
) else (
  echo REVNUM not found! check the contents of output.txt!
)
pause
goto :eof
#!perl
#line 14
use strict;use warnings;
open(TXT, "output.txt") or die; 
my $lastLine = "";
while (my $line = <TXT>) {
    $lastLine = $line;
}
my($revNum) = $lastLine =~ /(\d+)/ig;
close TXT;
print $revNum;

Perl的输出被捕获到REVNUM变量中，后来在运行ccollab.exe时使用。

如果我们将output.txt作为参数传递给perl，脚本可以简化为：

for /f "delims=" %%a in ('C:\Perl\bin\perl -x "%~f0" output.txt') do set REVNUM=%%~a
...
#!perl -w 
print +( map { /(\d+)/ && $1 } <> )[-1];

如果我们将perl代码内联：

，它可以更加紧凑

@echo off
ccollab.exe adddiffs new Original_Files Changed_Files > output.txt
set REVNUM=
for /f "delims=" %%a in ('C:\Perl\bin\perl -e "print +( map { /(\d+)/ && $1 } <> )[-1]" output.txt ') do set REVNUM=%%~a
if defined REVNUM (
  ccollab.exe addfiles %REVNUM% *.txt *.pdf *.html *.doc* *.xls* Info_Only/*
) else (
  echo REVNUM not found! check the contents of output.txt!
)
pause

在Batch中执行Perl，然后在后续Batch命令中使用Perl脚本中的标量

1 个答案: