Problemi in PERL con il ciclo IF

[patrix966]

Ciao...in che senso dovrei fare dei test?
dici che dovri fare un print di quei valori?

[pjfry]

...
$a='s';
$b='n';
if ($conferma eq $b){print"REINSERISCA IL NOME CORRETTO \n"}
...

una cosa del genere, anche se non credo che possa essere questo il problema

[archimede]

Hai provato

Codice: Seleziona tutto

chomp($conferma = <STDIN>);

?

HTH.

Alessandro

[patrix966]

Ciao e praticamente dici che dovrei inserirlo subito dopo conferma=<STDIN>?
oppure mettere il chomp direttamente insieme all'assegnazione?
CASO 1:
$conferma=<STDIN>;
chomp($conferma=<STDIN>;
CASO2:
chomp($conferma=<STDIN>;

[archimede]

a) La seconda che hai detto
b) Ti sei perso una parentesi
c) Se provavi non facevi prima che aspettare la mia risposta?

Alessandro

[patrix966]

Si..iinfatti ho provato..ma non va comunque mi da un errore strano(qualcosa cone stringa scalare non aspettata)..ho chiesto comunque..per vedere se era precisamente in quel modo!(visto che non andava)!

[archimede]

ho provato..ma non va comunque mi da un errore strano

Sigh... e non potevi dirlo subito specificando precisamente l'errore?

Comunque, non essendo un programmatore Perl, temo di non poterti aiutare ulteriormente. Ti dico solo che, in base a sommarie ricerche, mi risulta che:

1) La sintassi chomp($nome = <STDIN>); s'incontra comunemente, per cui ritengo sia sintatticamente corretta
2) Sembra buona prassi utilizzare use strict; e use warnings; all'inizio dei propri script
3) Secondo me il problema sta nel fatto che $conferma è terminata dal carattere di new line (come qualcun altro mi pare abbia già ipotizzato). In alternativa a chomp puoi forse provare if ($conferma eq "n\n")...
4) Pare che Perl abbia un buon debugger: usalo

HTH.

Alessandro