Re: How to optimise slow perl scripts?

[Richard Clamp]

On Tue, Feb 19, 2002 at 03:31:17PM +0000, Nicholas Clark wrote:
>                              However perlbench went slower because I'd made
> /(.{1,76})/ slower (used in string/base64.t). How many people use {} in real
> regexps?  IIRC There are almost none in any script used to build perl.

I think I used {} for the first time in anger yesterday.  I'm
currently finding it hard to grep for regexes, but I'm fairly certain
I've not used it before.

This is worrying code, but not for the usual reasons:

    my $store = pack 'u', freeze $data;

    # two magic numbers, 4+8 == 12 and 128. constraints of the XXX table
    my $i;
    for my $value ( $store =~ m/.{1,128}/g ) {
        my $variable = sprintf('perm%08d', $i++);

        $set_sth->execute($userid, $variable, $value)
          or die $set_sth->errstr;
        $set_sth->finish();
    }

I hate not being able to just create database tables that fit the
needs of the application.

> There must be easier ways than this :-)

I think I said that too :)

-- 
Richard Clamp <[EMAIL PROTECTED]>