The Perl Advent Calendar needs more articles for 2022. Submit your idea today!


SWISH::3::Headers - create document headers for SWISH::3->parse_fh()


  use SWISH::3;
  use SWISH::3::Headers;
  my $f = 'some/file.html';
  my $buf = SWISH::3->slurp( $f ):
  my $headers = SWISH::3::Headers->new;
  print $headers->head( $buf, { url=>$f } ), $buf;


SWISH::3::Headers generates the correct headers for feeding documents to the indexer.



The $AutoURL package variable is used when no URL is supplied in the head() method. It is incremented each time it is used in head(). You can set it to whatever numerical value you choose. It defaults to $^T.



Returns a new object.


Get/set the API version. Default is 3.


Get/set the debug level. Default is 0.

head( buf [, \%opts ] )

Returns scalar string of proper headers for a document.

The only required parameter is buf, which should be the content of the document as a scalar string.

The following keys are supported in %opts. If not supplied, they will be guessed at based on the contents of buf.


Which version of the headers to use. The possible values are 3 for Swish3.


The URL or file path of the document. If not supplied, a guaranteed unique numeric value will be used, based on the start time of the calling script.


The last modified time of the document in epoch seconds (time() format). If not supplied, the current time() value is used.


The parser type to be used for the document. If not supplied, it will not be included in the header and Swish-e will determine the parser type. See the Swish-e configuration documentation on determining parser type. See also the Dezi::Utils parser() method.


The MIME type of the document. If not supplied, SWISH::3 will guess based on the file extension of the URL.


Currently Not Implemented in SWISH::3

Should the doc be added to, updated in or deleted from the index. The url value is used as the unique identifier of the document in the index. The possible values are:

add (default)

If a document with the same url value already exists, a fatal error is thrown.


If a document with the same url does not already exist in the index, a fatal error is thrown.


Check first if url exists in the index, and then add or update as appropriate. Since this requires additional processing overhead for every document, it is not the default. It is, however, the safest action to take.


Remove the document from the index. If url does not exist, a fatal error is thrown.

Headers API

For SWISH::3 Headers API see


Peter Karman, <>


Please report any bugs or feature requests to bug-swish-3 at, or through the web interface at I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.


You can find documentation for this module with the perldoc command.

    perldoc SWISH::3::Headers

You can also look for information at:


Copyright 2008-2014 by Peter Karman

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.