in reply to printing hash values and keys from user
Hi pinnacle,
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
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$..$/
|
---|
In Section
Seekers of Perl Wisdom