in reply to How could I create a command line quiz?
I feel like I'm getting warmer and that I have to move the foreach loop into the global section. Thanks for the advice thus far. I'm reading the docs prescribed by you all.
#!/usr/bin/perl print "Let's start! \n"; print question(); chomp($input=<STDIN>); print answer(); sub question { @array_q = `cat quiz.txt | grep ?`; foreach(@array_q){print $array_q[0] } } sub answer { $/ = -00; @array_a = `cat quiz.txt | grep -v ?`; foreach(@array_a){print $array_a[0] } } bash-3.2$ ./quiz.pl Let's start! Name 2 shapes? Name 2 shapes? Name 2 shapes? sadf square circle North America Neil Armstrong bash-3.2$
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: How could I create a command line quiz?
by Tux (Canon) on Mar 12, 2020 at 15:55 UTC | |
by yasser (Initiate) on Mar 12, 2020 at 16:06 UTC | |
by soonix (Canon) on Mar 13, 2020 at 07:34 UTC |
In Section
Seekers of Perl Wisdom