perl - 需要使用批处理文件复制特定字符串之前的行

Question

我有一个这样的文件：

Executing resource: D:\waste2\SPC\depks_rtl_teller_custom.spc   
Executing resource: D:\waste2\SPC\ifpks_msg_incoming_cluster.spc  
Failed to execute:   
Executing resource: D:\waste2\SQL\casapks_batch.sql  
Failed to execute:  
Executing resource: D:\waste2\SQL\depks_decbatop_kernel.sql  
Executing resource: D:\waste2\SQL\depks_services.sql  
Failed to execute:    

我需要一个批处理文件或 perl 脚本或 ANT 脚本来选择字符串“执行失败：”前面的所有行并复制到一个新文件中。只是我在新文件中需要的失败文件列表。请协助。

Answer 1

惊喜！本机 Windows FINDSTR 命令可以很好地处理这个问题 :-) 不需要 perl 或任何其他非本机实用程序。

@echo off
setlocal
::Define LF variable containing a linefeed (0x0A)
set LF=^


::Above 2 blank lines are critical - do not remove

::Define CR variable containing a carriage return (0x0D)
for /f %%a in ('copy /Z "%~dpf0" nul') do set "CR=%%a"

setlocal enableDelayedExpansion
::regex "!CR!*!LF!" will match both Unix and Windows style End-Of-Line
findstr /rc:"!CR!*!LF!Failed to execute:" "test.txt" >"failed.txt"
type failed.txt

请参阅Windows FINDSTR 命令有哪些未记录的功能和限制？了解更多信息。

Answer 2

使用 perl，您可以执行以下操作：

while(<>) {
  print $prev if /^Failed to execute:/;
  $prev = $_;
}

要直接从 shell 执行，可以使用以下命令

perl -ne 'print $prev if /^Failed to execute:/; $prev=$_' path/to/your/file

Answer 3

使用 tac 和 sed：

tac file | sed -n '/Failed to execute/{n;p;}'  | tac

Answer 4

您也可以使用两个 grep 调用，尽管这更像是一种 hack（假设您只有以“失败”或“执行”开头的行）：

grep -B1 '^Failed to execute' your/file | grep '^Executing'

或者

grep -B1 '^Failed to execute' your/file | grep -v '^--' | grep -v '^Failed to execute'

Answer 5

使用 PowerShell：

PS II> Select-String "Failed to execute:" c:\file.txt -co 1 | % { $_.context.Precontext }

Answer 6

或者简单地说：

for /f "delims=" %%a in (c:\test.txt) do (
  echo(%%a| find /i "Failed to execute:" >Nul && (
    setlocal enableDelayedExpansion
    echo !msg!
    endlocal
  )
  set "msg=%%a"
)