Prova con:
if (substr($risp,0,1) eq 's'){
Oppure (meglio):
if (lc(substr($risp,0,1)) eq 's'){
Infatti una stringa in Perl non puo` essere di un solo carattere: c'e` sempre il \n (oppure \0) che "chiude" la stringa.
Prova con:
if (substr($risp,0,1) eq 's'){
Oppure (meglio):
if (lc(substr($risp,0,1)) eq 's'){
Infatti una stringa in Perl non puo` essere di un solo carattere: c'e` sempre il \n (oppure \0) che "chiude" la stringa.
Nuova politica di maggiore severita` sui titoli delle discussioni: (ri)leggete il regolamento
No domande tecniche in messaggi privati
Permessi di invio
Rispondi quotando