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 );
If the $istring is longer than the $cutoff_length, then the string will be truncated to $cutoff_length characters, including the $continued_symbol (which defaults to ``...'' if none is specified).
$istring
$cutoff_length
$continued_symbol
The default $continued_symbol can be changed in $Text::Truncate::DEFAULT_MARKER.
$Text::Truncate::DEFAULT_MARKER
L<String::Truncate>, L<Text::Elide>
https://github.com/ileiva/Text-Truncate
Robert Rothenberg <rrwo at cpan.org> This is now being mantained by Israel Leiva <ilv@cpan.org>
Unrestricted. This module is in the public domain. No copyright is claimed.
To install Text::Truncate, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Text::Truncate
CPAN shell
perl -MCPAN -e shell install Text::Truncate
For more information on module installation, please visit the detailed CPAN module installation guide.