Text::Truncate - Perl module with simple string truncating routine.
use Text::Truncate; my $long_string = "This is a very long string"; # outputs "This is..." print truncstr( $long_string, 10); # outputs "This is a-" print truncstr( $long_string, 10, "-"); # outputs "This is a " print truncstr( $long_string, 10, ""); # outputs "This is---" $Text::Truncate::DEFAULT_MARKER = "---"; print truncstr( $long_string, 10);
This is a simple, no-brainer subroutine to truncate a string and add an optional cutoff marker (defaults to ``...'').
(Yes, this is a really brain-dead sort of thing to make a module out of, but then again, I use it so often that it might as well be in a module.)
The synopsis gives examples of how to use it.
The following functions are exported:
$rstring = truncstr( $istring, $cutoff_length ); $rstring = truncstr( $istring, $cutoff_length, $continued_symbol );
$istringis longer than the
$cutoff_length, then the string will be truncated to
$cutoff_lengthcharacters, including the
$continued_symbol(which defaults to ``...'' if none is specified).
$continued_symbolcan be changed in
Robert Rothenberg <rrwo at cpan.org> This is now being mantained by Israel Leiva <email@example.com>
Unrestricted. This module is in the public domain. No copyright is claimed.