[MacPerl] Re: [MacPerl-WebCGI] stupid html parser

[Nicholas.G.Thornton@directory.reed.edu (Nicholas G. Thornton)]

there's a buch of info out there about regex stuff (what you're trying to do, even if you don't know that). But here's a little to help getr you started...


#!perl -w
open(IN, 'orange:README')
     or die 'Could not open README';
while (<IN>) {
     if ($_ =~ /<TBODY>/) {
          $i += 1;
          print $_;
     }
}
close(IN);
print "$i\n";
__END__


--Nick

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org