Your question was already answered, but I would like to
suggest an alternative way to do your main loop:
{
local $_;
print "> ";
chomp ($_ = <STDIN>);
redo unless /\S/;
next if "FALSE" eq cmd_select split ' ';
}
(If you don't like a bare block, you could put a
while (1)
in front of it and change the
next if to
a
last unless).
My version of the loop doesn't use goto to break
out of the loop and re-enter it, it doesn't use an explicite
variable $exit, which is compared to the true
value "FALSE", it uses chomp in
favour of chop and it will try to execute the
command 0 which your version skips, but it won't
try to execute a line consisting of a space like yours. I also
have eliminated to need for the variables $key
and @param. I would prefer cmd_select
to return a true/false value instead of "FALSE" and something
else.
-- Abigail
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
|
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.