Sono agli inizi con il perl, ed ecco il mio primo problema: vorrei costruire un array di stringhe, e non sapendo a priori la dimensione, ho pensato di farlo con un ciclo while, ma, dopo l'inserimento del primo elemento il programma termina.
Vi posto il codice:
codice:
#!/usr/bin/perl
#creazione e manipolazione di un array di stringhe
$risposta = "s";
while($risposta eq "s"){
print("Inserire nome: ");
$nome = <STDIN>;
push @nomi, $nome;
print("Vuoi continuare? (s-n): ");
$risposta = <STDIN>;
if($risposta ne "s"){
last;
}
}
#visualizzazione output
$num_elementi = scalar(@nomi);
#restituisce numero elementi array
for($i = 0; $i < $num_elementi; $i++){
print("Hai inserito $nomi[$i]\n");
}
Mi sapete dire dov'è che sbaglio?
Ciao e grazie!