Perchè non entra nell'if??

[Il Pazzo]

print "Attivare la swap Area? (s/n): ";
$risp = <STDIN>;
if ($risp eq 's'){
	print "Dimensione massima della swap area: ";
	$swapArea = <STDIN>;
}

cioè non capisco.... è come se non si verificasse mai la condizione! eppure se stampo $risp mi esce "s".... ho provato anche a mettere " " invece di ' '.... ma nulla...

[Mich_]

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.

[Il Pazzo]

Originariamente inviato da Mich_
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.

ma scusa... anche se io metto ' ' invece di " " ... .e comunque avevo provato anche con "si" e "SI"... ma non è cambiato l'effetto...

[Mich_]

Che c'entra il carattere virgolette o apice?
Quello serve per fare in modo che la stringa venga interpretata oppure no.

Quello che volevo dire e` che non ha senso confrontare (con l'operatore eq) una stringa formata da 's' con quella che e` stata digitata che e` 's\n'.
Devi confrontare due stringhe uguali; lo puoi ottenere con il substr oppure con altri sistemi.

[Il Pazzo]

ok perfetto grazie

[shishii]

print "Attivare la swap Area? (s/n): ";
chomp ($risp = <STDIN>);
if ($risp eq 's'){
print "Dimensione massima della swap area: ";
$swapArea = <STDIN>;
}