On Wed, 20 Nov 2002 12:30:46 -0600
Steven Lembark <[EMAIL PROTECTED]> wrote:
>
>
> -- [EMAIL PROTECTED]
>
> > join ', ', grep{ ($b.=$_) !~ /.{91}/ || ?.? && ($_ = 'etc.') } @names
>
> Problem: the length does not include separators.
>
> This will lead to over-length strings.
ack.
assuming:
@names > 1; ($joined =~ /, /)
!/^.{90}(,|$)/
in other words completely useless:
$_ = join ', ', @a; s/[^,]*(?<=^.{90}).*/ etc./;
i just found a perl minigolf:
http://terje.dev.webon.net/wsp/pgas/score.pl?func=rules&hole=14
