TIMTOWTDI
#!/usr/bin/perl -w # die on input eq <CR> ("Enter") # [id://733443] while (<STDIN>) { $in = $_; chomp ($in); unless (length($in)) { print "Enter is a command to quit" ; exit; } else { print "\$in is $in\n"; } }
In reply to Re: die on carriage return
by ww
in thread die on carriage return
by muizelaar
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |