Hm, so I am still at a roadblock here. I guess I do not understand how I would do it... Here is what I have, but as you can see I still have to evaluate what comes in... The problem is, this: "my ($user,$uid,$group,$home,$create,$shell)=@_;" is not doing anything at all. It is never evaluated, and I am unsure a nice clean way of doing that.
sub buildCommand {
my ($user,$uid,$group,$home,$create,$shell)=@_;
my %flag;
while (1) {
print qq {
1. User: $user
2. UID: $uid
3. Group: $group
4. Home Dir: $home
5. Comment: $comment
6. Shell: $shell
D. Done
};
print "Please Choose An Option From Above: "
chomp(my $ans=<STDIN>);
if ($ans == 1) {
$flag{'user'} = getInput("Enter Username: ");
}
elsif ($ans == 2) {
$flag{'uid'} = getInput("Enter UID: ");
}
elsif ($ans == 3) {
$flag{'group'} = getInput("Enter Group: ");
}
elsif ($ans == 4) {
$flag{'home'} = getInput("Enter Home: ");
}
elsif ($ans == 5) {
$flag{'comment'} = getInput("Enter Comment: ");
}
elsif ($ans == 6) {
$flag{'shell'} = getInput("Enter Shell: ");
}
elsif ($ans =~ /d/i && defined($user)) {
last;
}
else {
print "INVALID OPTION!\n";
}
}
while (($key, $value) = each(%flag)){
$flag .= "-$key $value ";
}
return(%flag);
}
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.