Re: Want to Create Unix group using perl script

To have the script run as root, you either need to be root when you execute it (or from root's crontab), or use sudo when the script is executed.

As almut said, use system commands for most of the work. Just plan out how you would do it on the command line, then wrap those commands in Perl using one of the many methods (system, exec, backticks)... which one you use depends on various things, like do you want the script to wait for that command to finish before continuing, etc. You can read up on those commands just about everywhere. The easiest way is to google 'perl <command>'.

/\ Sierpinski

Comment on Re: Want to Create Unix group using perl script

Replies are listed 'Best First'.
Re^2: Want to Create Unix group using perl script by abhi.nitk2003 (Initiate) on Mar 18, 2010 at 08:21 UTC
Hi, I got it. but I want my script just take group id (not group name) and if it exists then run chgrp,chmod g+s command as root.Basically my script is running under my cronjob but to run chmod , chgrp I need to become "root" first. so how should I do that `abhishek~/perl ~> cat grp.pl #!/usr/bin/perl $in=<STDIN>; ($name, $passwd, $gid, $members) = getgrgid($in); print "group name: $name \t group id: $gid \n"; if ( $in == $gid ) { print "Success\n"; #how to become "root" here.. exec ("chgrp -R $gid /home/abhishek/cpp") \|\| die "could not do chgrp $ +!"; } else { print "Group id does not exists, you need to give the existing group i +d \n"; } abhishek~/perl ~>` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Want to Create Unix group using perl script
by abhi.nitk2003 (Initiate) on Mar 18, 2010 at 08:21 UTC

abhishek~/perl ~> cat grp.pl
#!/usr/bin/perl
$in=<STDIN>;
($name, $passwd, $gid, $members) = getgrgid($in);
print "group name: $name \t group id: $gid \n";
if ( $in == $gid )
{
print "Success\n";
#how to become "root" here..
exec ("chgrp -R $gid /home/abhishek/cpp") || die "could not do chgrp $
+!";

}
else
{
print "Group id does not exists, you need to give the existing group i
+d \n";
}
abhishek~/perl ~>
[download]

[reply]
[d/l]