What I'm doing is searching in a directory that has about 5000 .html files.
My script grabs the name of each file, but I also need it to display the
first 100 characters or so of text in each file. My snippet below removes
all the html, but the results are not working good. All I want is:
At 04:36 PM 2/17/05 +, steve silvers wrote:
if($file =~ /.html/ig) {
if($file =~ /\.htm[l]{0,1}$/ig) {
while(FILE) {
chomp;
$_ =~ s/[^]*//g;
my $test = $_;
$test = substr($test, 0, 100);
print $test \n;
read FILE, $buffer,