All pastes #470179 Raw Edit

Unnamed

public text v1 · immutable
·published 2007-05-04 03:41 UTC
rendered paste body
  use HTML::TokeParser;
  $p = HTML::TokeParser->new(shift||"index.html");
  if ($p->get_tag("meta => description, content")) {
      my $tag = $p->get_trimmed_text;
      print "Title: $tag\n";

  }