Date: Sun, 7 Jun 2009 16:52:10 -0400 (EDT) From: vogelke+unix@pobox.com (Karl Vogel) To: freebsd-questions@FreeBSD.ORG Subject: Re: enclose code and testfile. Message-ID: <20090607205210.5A2AFBED4@kev.msw.wpafb.af.mil> In-Reply-To: <20090607012158.GA14286@thought.org> (message from Gary Kline on Sat, 6 Jun 2009 18:22:00 -0700) References: <20090607012158.GA14286@thought.org>
next in thread | previous in thread | raw e-mail | index | archive | help
>> On Sat, 6 Jun 2009 18:22:00 -0700,
>> Gary Kline <kline@thought.org> said:
G> I'm encloseing a brief C program that skips over php delimiters and a
G> 74-byte test file. Am wondering if there is a better way.
#!/usr/bin/perl -w
# skip PHP stuff in a file
use strict;
my ($prev, $match);
# slurp up the entire file.
undef $/;
$_ = <>;
while (s/
(.*?) # get text that doesn't include delimiters...
(<\?.*?\?>) # ... plus text in ONE set of delimiters...
//xsm) # ... matching across multiple lines
{
$prev = $1; # text before <?
$match = $2; # text inside <?...?>
print "$prev";
}
print "$_\n"; # whatever's left over.
exit(0);
--
Karl Vogel I don't speak for the USAF or my company
Programming is like sex: one mistake and you have to
support for a lifetime. --unknown
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20090607205210.5A2AFBED4>