¿Puedo inicializar una matriz a un tamaño dado en Perl?

Question

Tengo una sección en mi código donde sé que necesitaré una matriz, y sé exactamente cuántos elementos necesitará esa matriz. Esta sección de código se repetirá mucho, por lo que podría obtener un gran ahorro de tiempo inicializando primero ese conjunto al tamaño que sé que necesitará y luego llenándolo solo presionando ítems (presionar sería O (n) en lugar de llenar espacios ya creados, que serían O (1)).

Dicho esto, parece que no puedo encontrar ninguna forma elegante de inicializar una matriz a un tamaño determinado, y no tengo ni idea de por qué. Sé que puedo hacer:

my @array; $array[49] =0;

para obtener una matriz 50 artículo, pero que se ve muy feo para mí y me siento como si tiene que haber una mejor manera. Ideas?

Answer 1

Para ser honesto, su camino está perfectamente bien, ya que está cambiando explícitamente el tamaño de la matriz: $#array = 49;;

Answer 2

Su camino es excelente, al igual que DVK. Una forma de hacerlo en un solo comando podría ser:

@array = (0 .. 49);

Pero no estoy seguro si es más elegante, ya que asigna un valor entre 1 y 49 a cada elemento, pero probablemente sea más intuitivo para un programador que no tenga mucha sintaxis.

Answer 3

Cuando esté pensando en hacer este tipo de optimización, ¡haga algunos perfiles! El resultado puede no ser lo que esperas. Por ejemplo, he utilizado la siguiente secuencia de comandos rápida para probar su teoría de que la pre-asignación de la matriz es más rápido:

for (my $loops = 0; $loops < 100000; $loops++) 
{ 
    my @arr; 

    for (my $foo = 0; $foo < 50; $foo++) { 
     push @arr, 'bar'; 
    } 
} 

Eso tomó 2.13 segundos.

for (my $loops = 0; $loops < 100000; $loops++) 
{ 
    my @arr; 
    $arr[49] = 0; 

    for (my $foo = 0; $foo < 50; $foo++) { 
     $arr[$foo] = 'bar'; 
    } 
} 

Eso demoró 2,16 segundos (realicé ambas pruebas varias veces). Así que en realidad termina siendo más rápido para dejar que Perl maneje la asignación de la matriz según sea necesario.

actualización

Tras realizar los cambios sugeridos por ysth, los números hacen un poco más de sentido: 2,27 segundos para el método de "empuje" y 2.21 de preasignación. Aun así, me pregunto si tal optimización realmente ahorraría algún tiempo (la diferencia fue de solo 0.06 segundos después de 100,000 iteraciones).

Answer 4

1. La primera regla del Club de optimización es que usted no optimiza.
2. La segunda regla del Club de optimización es, usted no Optimizar sin medir.

Mida, mida, mida antes de ir y suponga que puede hacerlo más rápido falsificando Perl. Perl ha estado optimizando el uso común mucho más tiempo que tú. Confía en ello.

Answer 5

En lugar de un uso determinado valor undef

my @array; 
$array[49] = undef; 

Answer 6

La preasignación podría no ayuda mucho con la velocidad, pero podría ayudar a devolver la memoria para el sistema si los trozos asignados son lo suficientemente grandes