Perl Monk, Perl Meditation | |
PerlMonks |
Re: STDIN Enter key not quite workingby choroba (Cardinal) |
on Apr 05, 2021 at 19:59 UTC ( [id://11130859]=note: print w/replies, xml ) | Need Help?? |
By wrapping $cookies into parentheses, you're forcing list context. <STDIN> in list context reads up to the end of file. Ctrl+D sends the end of line. If you just want to read a single line, don't use parentheses.
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
In Section
Seekers of Perl Wisdom
|
|