http://www.perlmonks.org?node_id=868840


in reply to printing hash values and keys from user

Hi pinnacle,

Yes, it's because you are using a key that has a newline on it.

Try doing:

my $type = <stdin>; chomp $type;

before using the key.


s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/