Markus Benning
and 1 contributors

NAME

String::ShortenHostname - tries to shorten hostnames while keeping them meaningful

VERSION

version 0.006

SYNOPSIS

  use String::ShortenHostname;

  my $sh = String::ShortenHostname->new( length => 20 );
  $sh->shorten('zumsel.haushaltswarenabteilung.einzelhandel.de');
  # zumsel.hau~g.ein~l~>

  $sh->cut_middle(0);
  $sh->shorten('zumsel.haushaltswarenabteilung.einzelhandel.de');
  # zumsel.haus~.einz~~>

  $sh->force(0);
  $sh->shorten('zumsel.haushaltswarenabteilung.einzelhandel.de');
  # zumsel.haus~.einz~.de

  $sh->domain_edge(undef);
  $sh->shorten('zumsel.haushaltswarenabteilung.einzelhandel.de');
  # zumsel.haush.einze.de

DESCRIPTION

String::ShortenHostname will try to shorten the hostname string to the length specified. It will cut each domain part to a given length from right to left till the string is short enough or the end of the domain has been reached.

Options:

length (required)

The desired maximum length of the hostname string.

keep_digits_per_domain (default: 5)

Cut each domain part at this length.

domain_edge (default: '~')

If defined this string will be used to replace the end of each domain truncated to indicate that it was truncated.

cut_middle (default: 1)

Will do the cut one character before the last.

force (default: 1)

If specified the module will force the length by cutting the result string.

force_edge (default: '~>')

If defined this string will be used to replace the end of the string to indicate that it was truncated.

AUTHOR

Markus Benning <me@w3r3wolf.de>

COPYRIGHT AND LICENSE

This software is copyright (c) 2014 by Markus Benning.

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