Hi guys/gals. I am somewhat new to PERL and need your help. I am trying to search html files using a proxy filter, insert some code onto the top of each page and then push it to the user's browser. I am using a proxy filter named Privoxy for this. Privoxy uses PERL to match/substitute patterns. The best/cleanest way I have been able to come up with so far is to search for "<body>" and insert a <body>"my stuff"</body> before it. I am using a "forward lookup" for this:
(.*(?=<body)) and assigning this value to $1 and then replacing it with $1<body>"my stuff"</body>. I am able to get this to work for 90% of the pages. It won't work on pages that have no <body>. It is also not working on pages like www.gmail.com. Gmail's page starts with a bunch of scripts and then eventually hs a <body> tag. I don't understand why (.*(?=<body)) won't match this pattern. Is there a problem with my logic?
Thanks in advance.
Sal