Help for this page

Select Code to Download

Select or download this

sub trimTo {
    my( $str, $n ) = @_;    
...

    ## Tack on the '...'
}

Select or download this

sub trimTo {
    my( $str, $n ) = @_;    
...

    return substr( $str, 0, $truncLen ) . ' ...';
}