Perl and using commands within it

Hey all,

I have a perl script I am creating. Simple enough, just adds a user and assigned group and permissions.

I keep getting an error when using the -G in adduser

this is my code so far. Also any ideas on how to end the program when done. I was playing with some until conditionals and if else but nothing that I have mastered.

Thanks

#!/usr/bin/perl
#user add script

print "Welcome to AddUser Script\n\n";
print "To end this program, please enter end as the username\n\n";
print "User Name:";
$userinput =  <STDIN>;
chomp ($userinput);
useradd -G emails $userinput;

I keep getting an error when using the -G in adduser

Well what kind of error are you getting? Just saying "an error" could mean many things. Also, are you running that as root?

Can't locate object method "G" via package "emails" (perhaps you forgot to load "emails"?) at adduser.perl line 9, <STDIN> line 1.

Hi,

replace

useradd -G emails $userinput;

by

system("useradd -G emails $userinput");

good luck to finish this work.

Originally Posted by Chirel Hi, replace by good luck to finish this work.

Wonderful help, Thank you