A couple of fixes and a couple of suggestions. First, the
mkdir thing has a precedence problem, as
tye suggests. Use parenthesis or
or to fix it:
mkdir("$dir", 0777) || die "Could not mkdir \"$dir\": $!\n";
Second, the
chop bothers me, 'cuz it's easy to grab something you don't want. (In this case, it's right, but I prefer
chomp).
Third, there are a couple of other ways for doing your menu stuff. Some people prefer this:
($menu eq 1) && addwant();
($menu eq 2) && addhave();
When I have to do something like this, I usually use a data structure of references:
my @actions = qw( \&addwant \&addhave ); # and so forth
# get input
if (defined (my $action = $actions[$menu])) {
$action->();
} else {
print "\n\n\nGoodbye!\n";
exit;
}
Finally, if you want to clear the screen, there's a bit in
perlfaq8 that might help. Not a big deal, though.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.