Posso inizializzare una matrice con una determinata dimensione in Perl?

Question

Ho una sezione nel mio codice dove so che avrò bisogno di un array, e so esattamente quanti elementi quell'array dovrà avere. Questa sezione di codice verrà ripetuta molto, quindi potrei ottenere dei grossi risparmi di tempo inizializzando quella matrice alla dimensione che so di aver bisogno e poi riempiendola vs semplicemente spingendo gli elementi in avanti (premendo sarebbe O (n) al contrario di riempire spazi già creati, che sarebbe O (1)).

Detto questo, non riesco a trovare alcun modo elegante di inizializzare un array per una determinata dimensione, e non ho idea del perché. So che posso fare:

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

per ottenere un array di 50 articolo, ma che sembra davvero brutto per me e mi sento come se ci deve essere un modo migliore. Idee?

Answer 1

Per essere onesti, la tua strada è perfettamente a posto, come è esplicitamente la modifica della dimensione della matrice: $#array = 49;;

Answer 2

La tua strada è ottima, così come quella di DVK. Un modo per farlo in un singolo comando potrebbe essere:

@array = (0 .. 49);

Ma non sono sicuro che sia più elegante, dal momento che assegna un valore compreso tra 1 e 49 a ciascun elemento, ma è probabilmente più intuitivo capire per un programmatore non molto nella sintassi di Perl.

Answer 3

Ogni volta che stai pensando di fare questo tipo di ottimizzazione, fai un po 'di profilazione! Il risultato potrebbe non essere quello che ti aspetti. Per esempio, ho usato il seguente script rapido per testare la teoria che pre-assegnazione della matrice è più veloce:

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

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

Che ha preso 2,13 secondi.

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

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

Sono occorsi 2,16 secondi (ho eseguito entrambi i test più volte). Quindi, in realtà, è più veloce lasciare che il comando perl allochi l'array come necessario.

Aggiornamento

Dopo aver apportato le modifiche suggerite dai ysth, i numeri fanno un po 'più senso: 2,27 secondi per il metodo "push", e 2.21 per la pre-assegnazione. Anche così, mi chiedevo se tale ottimizzazione potesse davvero risparmiare in qualsiasi momento (la differenza era solo di 0,06 secondi dopo 100.000 iterazioni).

Answer 4

1. La prima regola di Optimization Club è che non si ottimizza.
2. La seconda regola di Ottimizzazione Club è, si fa non Ottimizza senza misurare.

Misurare, misurare, misurare prima di andare e assumere che è possibile farlo più velocemente eliminando Perl. Perl sta facendo l'ottimizzazione dell'uso comune molto più a lungo di te. Fidati.

Answer 5

Invece di un uso specifico valore indefinito

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

Answer 6

preallocare potrebbe non aiutare molto con la velocità, ma potrebbe aiutare con il ritorno della memoria al sistema, se i pezzi assegnati sono abbastanza grandi