Home/ Questions/Q 685355
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-14T01:54:50+00:00

I am looking to replace a nasty shell script that uses awk to trim

  • 0

I am looking to replace a nasty shell script that uses awk to trim down some HTML. The problem is I cannot find anything in Perl that does the aforementioned function

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

How can I do this in Perl?

the expected output would be

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

The Perl flipflop operator gives me WAY more. (Everything between the asterisks is junk)

*<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>
Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    I think this will work:

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

    expr1 .. expr2 will be false until it encounters a line where expr1 is true.
    Then it will be true until it encounters a line where expr2 is true.

    Update: if you need to trim the non-matching text from the front of the first matching line, this will work

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

    or

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

    if TEXT is a long string that you only want to type once. The change will edit the line while it does the pattern match.

    • 0