Hey all, taking a class on UNIX Programming and going through a Perl phase at the moment. I have made the following script, but I am unable to get the add group and delete group sections to work. Can anyone provide some guidance for me? It is greatly appreciated.

#!/usr/bin/perl

use warnings;
use strict;

my $user_grp = read_doc("/etc/passwd");

my %admin_menu = (
    1 => sub {
        my $username = get_input("Enter username: ");
        if ( exists $user_grp->{$username} ) {
            print "\nUser ", $username, " exist!";
            return;
        }

        system( "useradd", "-u $$", "-g", "users", "$username" );
    },
    2 => sub {
        my $username = get_input("Enter username: ");
        if ( exists $user_grp->{$username} ) {

            system( "userdel", "$username" )
              if get_input("Do you really want to remove the $username
?: ") =~
              /\by\b/i;
        }
    },

    3 => sub {
        my $group_name = get_input("Enter Group Name: ");
        if ( exists $group_name->{$group_name} ) {
            print "\nUser ", $group_name, " exist!";
            return;
        }

        system( "groupadd -g $group_id $group_name" );
    },
    4 => sub {
        my $group_name = get_input("Enter Group Name: ");
        if ( exists $group_name->{$group_name} ) {

            system( "delgroup", "$group_name" )
              if get_input("Do you really want to remove the $group_na
+me
?: ") =~
              /\by\b/i;
        }
    },

    5 => sub { get_input("Exiting the Program\n"); exit(); },
);

do {
    admin_menu();
    $choice = get_input("Enter your choice: ");
    if ( $choice < 1 or $choice > 5 ) {
        admin_menu();
    }
    else { $admin_menu{$choice}->(); }

} while (1);

sub get_input {
    my $prompt = shift;
    print $prompt;

    chomp( my $value = <> );
    return $value;
}

sub read_doc {
    my $file = shift;
    my %user;
    open my $fh, '<', $file or die $!;
    while (<$fh>) {
        my ( $name, $grp ) = ( split /:/ )[ 0, 4 ];
        $user{$name} = $grp;
    }

    return \%user;
}

sub admin_menu {
    print << "UNIX_ADMIN";

Admin Menu

To Add a User,     press 1:
To Delete a User,  press 2:
To Add a group,    press 3:
To Delete a group, press 4:
To Exit this Menu, press 5:

UNIX_ADMIN

}
[download]

Update: Everything is fixed now. Thanks so much!

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.