use v5.12; use warnings; STDOUT->autoflush; STDERR->autoflush; STDIN->autoflush; say "Give me a cookie: "; my $thing = readline(STDIN); $thing =~ /^(a )?cookie$/ or warn "That was no cookie."; say "Thanks and goodbye!"; die "exiting here";
expected output in pre/tt
Give me a cookie: # waits for input croock # manual input That was no cookie. at emacs_input.pl line 10, <STDIN> line 1. # jumps to line 10 Thanks and goodbye! exiting here at emacs_input.pl line 14, <STDIN> line 1. # jumps to line 14
For better understanding I manually added meta info
- STDOUT in black
- STDIN in red
- STDERR resp. clickable cross-refs as hrefs
- additional comments in grey
I've stumbled over a SO discussion which made this (half) work.
> C-u M-x compile and ... compilation buffer will be in comint mode, i.e. interactive.
(the C-u means prefix arg, a very e-lisp-ish annoyance)
I still have to find a way to make this work inside mode-compile
(addicted to the 𐍀𐌴𐍂𐌻 Programming Language :)
Wikisyntax for the Monastery