On Tue, Apr 05, 2011 at 04:25:12PM -0500, Matt wrote:
> I am looking for a perl function or easy way to shorten a long string
> if its over X characters.
> 
> Say I have:
> 
> "Doe, John; 56943 Walnut Drive; SomeCity, NY"
> 
> It messes up the display of my html form.  So I would like it changed to:
> 
> "Doe, John; ..... meCity, NY"
> 
> Keep first 10 and last 10 characters and abbreviate all else.

The function you are looking for is substr.

  $ perldoc -f substr

You probably want something like:

  substr $x, 10, -10, " ... " if length $x > 25;

-- 
Paul Johnson - p...@pjcj.net
http://www.pjcj.net

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/


Reply via email to