Perl 的等价于 awk 的 /text/,/END/ 吗？

Question

我正在寻找替换一个令人讨厌的 shell 脚本，该脚本使用 awk 来修剪一些 HTML。问题是我在 Perl 中找不到任何可以实现上述功能的东西

awk '/<TABLE\ WIDTH\=\"100\%\" BORDER\=1\ CELLSPACING\=0><TR\ class\=\"tabhead\"><TH>State<\/TH>/,/END/'

我怎样才能在 Perl 中做到这一点？

预期的输出是

<TABLE WIDTH="100%" BORDER=1 CELLSPACING=0><TR class="tabhead"><TH>State</TH>

Perl 触发器运算符给了我更多。 （星号之间的所有内容都是垃圾）

*<h2>Browse Monitors (1 out of 497)</h2><br><font size="-1" style="font-weight:normal"> Use the <A HREF=/SiteScope/cgi/go.exe/SiteScope?page=monitorSummary&account=login15 >Monitor Description Report</a> to view current monitor configuration settings.</font>*<TABLE WIDTH="100%" BORDER=1 CELLSPACING=0><TR class="tabhead"><TH>State</TH>

Answer 1

我认为这会起作用：

perl -ne 'print if /text/ .. /END/'

expr1 .. expr2 将为 false，直到遇到 expr1 为 true 的行。
然后它将为 true，直到遇到 expr2 为 true 的行。

---

更新：如果您需要从第一个匹配行的前面修剪掉不匹配的文本，

perl -ne 'print if s/.*TEXT/TEXT/ .. s/END.*/END/`

或者

perl -ne 'print if s/.*(TEXT)/$1/ .. s/(END).*/$1/'

如果 TEXT 是您只想键入一次的长字符串，那么这将起作用。更改将在进行模式匹配时编辑该行。

Answer 2

作为一句话（自第一篇文章以来略有变化）：

perl -n -e '$started = 1 if /<TABLE\ WIDTH\=\"100\%\" BORDER\=1\ CELLSPACING\=0><TR\ class\=\"tabhead\"><TH>State<\/TH>/; next unless $started; print; last if /END/;'

来自 perlrun 手册页：

 -n 使 Perl 在程序中假设以下循环，

这使得它迭代文件名
参数有点像 sed -n 或 awk：

<前><代码>行：
而 (<>) {
... # 你的程序放在这里
}

然后主体的核心是等待开始，然后打印每一行直到结束。