Re: limit the list

[Michael G Schwern]

On Tue, Nov 19, 2002 at 06:50:36PM -0500, Selector, Lev Y wrote:
> Is there a more elegant way to express this:
>   an array of names is converted into a comma-separated list.
>   if the list gets to long - limit it and add ", etc." at the end.
> 
>       $str = join ', ', @names;
>       if (length($str)>90) {
>         ($str = substr($str,0,90)) =~ s/,[^,]*$/, etc./;
>       }

        $str = substr(join(', ', @names), 0, 90);
        $str =~ s/,[^,]*$/, etc.../ if length $str >= 90;

which is basicaly what you've got, just restructured a bit.


-- 

Michael G. Schwern   <[EMAIL PROTECTED]>    http://www.pobox.com/~schwern/
Perl Quality Assurance      <[EMAIL PROTECTED]>         Kwalitee Is Job One
local $variable for local @people;