#!/usr/bin/perl
use DBI;
my $username=undef;
my $dbh=DBI->connect("dbi:Oracle:sid",system,password);
while ($username=<STDIN>) {
chomp($username);
$dbh->do("create user $username identified by $username
default tablespace syastem
temporary tablespace system");
$dbh->do("grant connect,resource, dba to $username");
}
print "You got yourself a few new usernames!\n";On 2003.09.03 01:34, setiady wrote:
MessageHi All,
I wonder if it is possible for me to execute a script file to create user
while I have another file (a text file) consisting the names of the users I
want to create. Assuming that all the users are having the same privileges,
what is the procedure to read the names from the other file? Thank you.
-- Mladen Gogala Oracle DBA -- Please see the official ORACLE-L FAQ: http://www.orafaq.net -- Author: Mladen Gogala INET: [EMAIL PROTECTED]
Fat City Network Services -- 858-538-5051 http://www.fatcity.com San Diego, California -- Mailing list and web hosting services --------------------------------------------------------------------- To REMOVE yourself from this mailing list, send an E-Mail message to: [EMAIL PROTECTED] (note EXACT spelling of 'ListGuru') and in the message BODY, include a line containing: UNSUB ORACLE-L (or the name of mailing list you want to be removed from). You may also send the HELP command for other information (like subscribing).
