prendere riga nriga

[geiar99]

a me funziona, però stampa sempre solo la prima riga. è da modificare secondo quello che vuoi fare.
cosa vorresti farci di preciso?

[geiar99]

Se vuoi uno script che visualizzi le righe in modo random allora

open(parole, "<parole.txt");
$i=0;
while(!eof(parole)){
$riga = <parole>;
@words[$i]=$riga;
$i++;
}
$nword = int(rand $i);
print @words[$nword];

funziona bene.

[keratox]

O si si si
funziona bene

grazie a tutti x la disponibilità

^__^

[LordSaga640]

Originariamente inviato da geiar99
a me funziona, però stampa sempre solo la prima riga. è da modificare secondo quello che vuoi fare.
cosa vorresti farci di preciso?

open(parole, "<parole.txt"); 
$i=0; 
while(!eof(parole)){ 
$riga = <parole>; 
@words[$i]=$riga; 
$i++; 
} 
$nword = int(rand $i); 
print @words[$nword];

-----

open(PAROLE, "parole.txt"); 
$i=0; 
while (<PAROLE>) {
$words[$i++]=$_; #prima assegna e poi incrementa $i
}
print $words[int(rand($i))];
close(PAROLE);

Una cosa che mi hanno sempre corretto sui newwsgroup del perl è che gli identificatori dei file devono essere scritti sempre in maiuscolo.
Poi l'operazione $i++ e ++$i esiste proprio per applicarla all'interno di altre espressioni, quindi sarebbe uno peccato non usarla come sopra.
Poi, gli array, quando si chiama un valore, non si usa la '@' degli array ma la '$' degli scalari.
Provate a fare i vostri script con il modulo Strict, imparerete molto.

ciao ciao

[geiar99]

in effetti la sintassi che ho riportato non è convenzionale e l'errore sull'array (@->$) è grave. Però confesso di aver riportato il codice senza controllarlo grammaticalmente ma solo nella sua funzionalità.
Comunque grazie per la precisazione

[LordSaga640]

open(PAROLE, "parole.txt"); 
@words=<PAROLE>;
close(PAROLE);
print $words[int(rand(@words))];

Ancora più semplificato.
Forse c'è un modo ancora più criptico per rimpicciolirlo, ma questo è al momento il mio limite.

L'ultima istruzione dovrebbe essere comprensibile. al posto di @words è come avere il numero degli elementi che lo compongono. Un bel rompicapo insomma.