Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
list of letters: quit

C:\Users\xxx\Documents\PerlProjects\Monks>
  2. or download this
    while ( (print "list of letters: ") and defined ($line=<>) and $line !
+~ /\s*quit|exit|q
+\s*$/i)
  3. or download this
    use strict;
use warnings;
...
list of letters: adf
list of letters: 123
list of letters: q