perl equivalent to awk /text/,/END/

Posted by kSiR on Stack Overflow See other posts from Stack Overflow or by kSiR
Published on 2010-03-26T19:31:18Z Indexed on 2010/03/26 19:33 UTC
Read the original article Hit count: 422

Filed under:
|

I am looking to replace a nasty shell script that uses awk to trim down some html, 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?

© Stack Overflow or respective owner

Related posts about awk

Related posts about perl