Re: Limiting String Length

[Jos I. Boumans]

hahah, sure, why dont we do this then:

my $coolstring;
my @foo = split '', $str;
for (0..4095) { $coolstring .= $foo[$_] }

or how about this one:
my $foo = reverse $str;
while (length $foo > 4096) { $foo =~ s/.(.+)/$1/seg; }
$str = reverse $foo;

and no, i wont be held accountable for any loss of performance in your
script =)
TMTOWTDI ;-)

Jos

>  @str = $str =~ /(.)/;
>  $#str = 4095;
>  $str = join '', @str;
>
> Hey, TMTOWTDI, though you shouldn't overDO it.... =o)
>