Pourquoi ai-je des problèmes pour comparer les lignes d'entrée dans Perl?

Question

Je ne sais pas ce que je pourrais faire mal avec cette opération simple, mais il ne fonctionne pas:

print "OK? (y or n)\n"; 
$ans = <>; 
print "\n"; 
if($ans eq "y"){print $ans;} 

Je veux essentiellement savoir comment tester l'entrée utilisateur. Ce petit bout de code ne marchera pas pour moi. J'essaie juste d'imprimer $ans si y est entré par l'utilisateur.

Des suggestions?

EDIT: - J'ai aussi essayé des guillemets simples

Answer 1

Vous faites quelque chose de mal. (1) N'utilisez pas l'opérateur diamant (<>) si vous voulez <STDIN>. L'opérateur de diamant lira également les fichiers de @ARGV, que vous ne voulez probablement pas. (2) $ ans ne sera jamais égal à "y" à moins que vous ne l'écrasiez en premier. Il aura une nouvelle ligne à la fin.

Answer 2

Avez-vous essayé:

if($ans eq 'y'){print $ans;} 

?

Answer 3

Bien que votre question directe a répondu, vous pouvez regarder des alternatives comme

Answer 4

Une panacée pour les variables de contenu mystérieux:

use Data::Dumper; 
$Data::Dumper::Useqq = 1; # show newlines, tabs, etc in visible form 
$Data::Dumper::Terse = 1; 
print '$ans is really: ', Dumper($ans);