From owner-freebsd-questions@FreeBSD.ORG  Fri Jun  5 20:49:55 2009
Return-Path: <owner-freebsd-questions@FreeBSD.ORG>
Delivered-To: freebsd-questions@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:4f8:fff6::34])
	by hub.freebsd.org (Postfix) with ESMTP id 9D0FD106566C
	for <freebsd-questions@freebsd.org>;
	Fri,  5 Jun 2009 20:49:55 +0000 (UTC)
	(envelope-from gpeel@thenetnow.com)
Received: from thenetnow.com (constellation.thenetnow.com [65.39.193.155])
	by mx1.freebsd.org (Postfix) with ESMTP id 761888FC1E
	for <freebsd-questions@freebsd.org>;
	Fri,  5 Jun 2009 20:49:55 +0000 (UTC)
	(envelope-from gpeel@thenetnow.com)
Received: from hpeel.ody.ca ([216.240.12.2] helo=GRANT)
	by constellation.thenetnow.com with esmtpa (Exim 4.63 (FreeBSD))
	(envelope-from <gpeel@thenetnow.com>) id 1MCgMM-000LRu-2S
	for freebsd-questions@freebsd.org; Fri, 05 Jun 2009 16:49:54 -0400
Message-ID: <512055A7FA6F44DCB287AB729AED7351@GRANT>
From: "Grant Peel" <gpeel@thenetnow.com>
To: <freebsd-questions@freebsd.org>
Date: Fri, 5 Jun 2009 16:49:47 -0400
MIME-Version: 1.0
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2900.5512
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.5579
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
X-Content-Filtered-By: Mailman/MimeDel 2.1.5
Subject: RegEx
X-BeenThere: freebsd-questions@freebsd.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: User questions <freebsd-questions.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>, 
	<mailto:freebsd-questions-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-questions>
List-Post: <mailto:freebsd-questions@freebsd.org>
List-Help: <mailto:freebsd-questions-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>, 
	<mailto:freebsd-questions-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Fri, 05 Jun 2009 20:49:56 -0000

Hi all,

Does anyone know of a current mailing list that discusses regular =
expressions?

I have Googled a number of time, but everything I find is old.

Specifically, I am looking for a modification to this per code:

#!/usr/local/bin/perl
...
my $iframeexp=3D"[\<IFRAMEiframe =
]+.+$ifdomainname+.+[\/\<\>IFRAMEiframe]";
...
                foreach (@readin){
...
                        if( $_ =3D~ /$iframeexp/) {
                                print "Found Match in (HTML?) =
$fullname\n";
                                        $_ =3D~ s/$iframeexp/$replace/g;
                                        $matched =3D 1;
                    if ($logfiles =3D=3D 1) {
                        open(LOG, ">>$logpath") or warn "cannot open =
$logpath";
                            print LOG "IFRAME (HTML?) found in =
$fullname\n";
                        close(LOG);
...
exit;

That does not strip out the <BODY...> part of a line that in an html =
file (if the <iframe ...> exists on the same line as the body tag).

-Grant