>I am having trouble figuring out how to grab the contents of a text file up
>until the first "<p>" and then exit the operation and am needing some advice
Untested, and insanely overcomplicated ;)
use strict; my $line;
open(FILE, "yourfile");
while (<FILE>) {
if (/(.*)<p>.*/) { $line .= $1; }
else { $line .= $_; }
}
exit;
Kevin Hemenway
-- -----------------------------------------------------------------
Total Net NH, LLC EMAIL: <[EMAIL PROTECTED]>
15 Pleasant St., Suite 11 WEBSITE: <http://www.totalnetnh.net/>
Concord, NH 03301 PHONE: (603) 225-8422
--------------------------------------------------------------------
--
To unsubscribe: mail [EMAIL PROTECTED] with "unsubscribe"
as the Subject.
