prendere riga nriga

[keratox]

Io leggo un determinato file.
E' possibile prendere, ad esempio, la riga 10, senza andare in ordine?

[Mich_]

Non mi pare, se il file e` aperto in ASCII e/o le linee hanno lunghezza diversa.

Se invece e` binario, o comunque ha una struttura fissa, puoi usare fseek()

[keratox]

ok, meglio caricare le linee in un array :quipy:

grazie

ciao

[keratox]

come faccio a sezionare la stringa carattere per carattere???
qualcosa tipo
explode("", $stringa)
di php

[keratox]

e perchè così

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

si blocca e non mi stampa nulla ???

[Mich_]

Per spezzare la stringa, ritengo puoi usare la funzione split, con il primo argomento vuoto (vedi comunque il manuale).

Nel tuo script, c'e` un errore (il Perl non sa che con [i] tu intendi [$i] ).

Comunque si puo` scrivere:

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

Ora sono un po' arrugginito con il Perl (magari qualcun altro mi correggera`), ma credo sia equivalente a:

open(parole, "<parole.txt");
@words = <parole>;

$nword = int(rand $words);
print @words[$nword];

[keratox]

Non mi stampa nessuna parola con nessuno dei 2 codici

[Mich_]

Ma il print ti stampa qualcosa?

Il programma Perl e` un CGI? In tal caso il print va a finire nella pagina Web (sempre che sia inizializzata correttamente).

Prova con una cosa del tipo:
print "prova di stampa\n";

[keratox]

no è solo Perl
se provo a stampare stampa a video (dos)

[Mich_]

Hai provato a scrivere:
print "@words[$nword]\n";