[perl] array di stringhe

[MARTEDI]

metti il chop su STDIN altrimenti la variabile contiene anche l'invio (\r)

#!/usr/bin/perl
#creazione e manipolazione di un array di stringhe
$risposta = "s";
while($risposta eq "s"){
print("Inserire nome: ");
$nome = <STDIN>;
chop $nome;
push @nomi, $nome;
print("Vuoi continuare? (s-n): ");
$risposta = <STDIN>;
chop $risposta;
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");
}