[sf-perl] Opening a pipe to sqlplus

[Loo, Peter # PHX]

Thanks Dan, I am looking into Expect as we don't have it installed here.
 
Peter

-----Original Message-----
From: sanfrancisco-pm-bounces+peter.loo=source.wolterskluwer.com at pm.org
[mailto:sanfrancisco-pm-bounces+peter.loo=source.wolterskluwer.com at pm.or
g] On Behalf Of Dan Sully
Sent: Monday, July 10, 2006 9:55 AM
To: San Francisco Perl Mongers User Group
Subject: Re: [sf-perl] Opening a pipe to sqlplus

* Loo, Peter # PHX shaped the electrons to say...

>I was just wondering if anyone knows how to code an "open" statement to

>"sqlplus" while concealing the userid and password.  The problem that I

>am having is when the pipe is opened, one can view the userid and 
>password using the Unix command "ps -ef".

Something like this:

my $sqlplus = Expect->spawn('sqlplus', join('@', $username, $sid));

$sqlplus->expect(30, ['Enter password: ', sub {
	my $self = shift;
	$self->log_stdout(0);
	$self->send("$password\r");
	$self->expect(0, '-re', "\r\n");
	$self->log_stdout(1);
}]);

$sqlplus->interact;


-D
--
dd if=/dev/sarcasm of=/dev/clue
_______________________________________________
SanFrancisco-pm mailing list
SanFrancisco-pm at pm.org
http://mail.pm.org/mailman/listinfo/sanfrancisco-pm


This E-mail message is for the sole use of the intended recipient(s) and
may contain confidential and privileged information.  Any unauthorized
review, use, disclosure or distribution is prohibited.  If you are not
the intended recipient, please contact the sender by reply E-mail, and
destroy all copies of the original message.