David wrote:
>
> Darren Wanner wrote:
>
> > Simple add user script:
> >
> > #!/usr/bin/perl
> >
> > open(FILE,"users.log");
> > @users=<FILE>;
> > foreach $users (@users) {
> > `useradd -g 201 -d /userhome/$users -m $users`;
> > }
> > print "done.\n";
>
> change:
>
> @users = <FILE>;
>
> to:
>
> chop(@users = <FILE>);
You should use chomp unless you are stuck in Perl4.
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
