Creating a user in Perl -


i trying create script these options, create user, drop user, create group, drop group. how stop running commands @ once?

#!/usr/bin/perl  $opt = 0; &disp_menu;  $opt = <>; print "you selected option "; print $opt;  $user = `sudo adduser mjensen`; $group = `sudo groupadd group1`; $dgroup = `sudo groupdel group1  `; $duser = `sudo userdel mjensen`;  sub disp_menu { print "main menu\n"; print "option 1 create group\n"; print "option 2 drop group\n"; print "option 3 create user\n"; print "option 4 drop user\n"; print "option 5 exit menu\n"; print "enter option => "; return;}  if ($opt == 3) {print "$user"; }  elsif ($opt == 1) {print "$group\n"; } elsif ($opt == 2) {print "$dgroup\n"; } elsif ($opt == 4) {print "$duser\n"; } elsif ($opt == 5) {print "you have exited program";       } 

#!/usr/bin/perl  $opt = 0; &disp_menu;  $opt = <>; print "you selected option "; print $opt;  if ($opt == 3) {     $user = `sudo adduser mjensen`;     if ( $? != -1 ) {         print "user mjensen has been created\n";     }         } elsif ($opt == 1) {     $group = `sudo groupadd group1`;     if ( $? != -1 ) {         print "group group1 has been created\n";     } } elsif ($opt == 2) {     $dgroup = `sudo groupdel group1`;     if ( $? != -1 ) {         print "group group1 has been dropped\n";     } } elsif ($opt == 4) {     $duser = `sudo userdel mjensen`;     if ( $? != -1 ) {         print "user mjensen has been dropped\n";     } } elsif ($opt == 5) {     print "you have exited program"; }  sub disp_menu {     print "main menu\n";     print "option 1 create group\n";     print "option 2 drop group\n";     print "option 3 create user\n";     print "option 4 drop user\n";     print "option 5 exit menu\n";     print "enter option => ";     return; } 

Comments

Popular posts from this blog

node.js - Mongoose: Cast to ObjectId failed for value on newly created object after setting the value -

[C++][SFML 2.2] Strange Performance Issues - Moving Mouse Lowers CPU Usage -

ios - Possible to get UIButton sizeThatFits to work? -