Free2Code
 
Time: 2008-12-04, 07:56pm
perl script help
Subject: perl script help  ·  Posted: 2006-06-22, 10:05pm
Rank: ? (1)
Member #: 27863
I have written a shell script to add users. I want to write a perl script which run this shell script. some what like this


/usr/bin/perl
print "user id:\n";
$userid=<STDIN>;

print "Ticketno:\n";
$ticktno=<STDIN>;

print "Location:\n";
$location=<STDIN>;

print "Username:\n";
$username=<STDIN>;

exec (!/usr/sbin/adduser -g users -c "$ticktno-$locatio-$username" $userid);

print "Add user..\n";

/usr/sbin/adduser is my shell script.
How do I run this shell script in above script it is giving me error


 
  Reply to this ·  Post link ·  Top
Subject: Re: perl script help  ·  Posted: 2006-09-28, 02:24am
Rank: ? (119)
Member #: 28292
You have some errors in you code. Try this:
Code:
  1. #!/usr/local/bin/perl
  2. print "user id:\n";
  3. $userid=<STDIN>;
  4. print "Ticketno:\n";
  5. $ticktno=<STDIN>;
  6. print "Location:\n";
  7. $location=<STDIN>;
  8. print "Username:\n";
  9. $username=<STDIN>;
  10. exec ('/usr/sbin/adduser -g users -c', "$ticktno-$locatio-$username", $userid);
  11. print "Add user..\n";


 
  Reply to this ·  Post link ·  Top

Pages: 1

Please login or register to post a reply.

icons