Formatter::HTML::HTML - Formatter to clean existing HTML


  use Formatter::HTML::HTML;
  my $formatter = Formatter::HTML::HTML->format($data);
  print $formatter->document;
  print $formatter->title;
  my $links = $text->links;
  print ${$links}[0]->{url};


This module will clean the document using HTML::Tidy. It also inherits from that module, so you can use methods of that class. It can also parse and return links and the title (using HTML::TokeParser).


This module conforms with the Formatter API specification, version 0.95:

format($string [, {config_file => 'path/to/tidy.cfg'} )

The format function that you call to initialise the formatter. It takes the plain text as a string argument and returns an object of this class.

Optionally, you may give a hashref with the full file name of the tidy config. This enables you to have this Formatter return valid XHTML, just set it correctly in the config. Note also that you may break the Formatter by e.g. returning configuring tidy to return just a fragment, and it is your own resonsibility to make sure you don't.


Will return a full, cleaned and valid HTML document. You may specify an optional $charset parameter. This will include a HTML meta element with the chosen character set. It will still be your responsibility to ensure that the document served is encoded with this character set.


This will return only the contents of the body element.

Will return all links found the input plain text string as an arrayref. The arrayref will for each element keys url and title, the former containing the URL, the latter the text of the link.


Will return the title of the document as seen in the HTML title element or undef if none can be found.


Formatter, HTML::Tidy, HTML::TokeParser


Both the fragment and document methods use naive regular expressions to strip off elements and add a meta element respectively. This is clearly not very reliable, and should be done with a proper parser.


This module is currently maintained in a Subversion repository. The trunk can be checked out anonymously using e.g.:

  svn checkout Formatter-HTML-HTML


Kjetil Kjernsmo, <>


Copyright (C) 2005 by Kjetil Kjernsmo

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.4 or, at your option, any later version of Perl 5 you may have available.