For right now I'm doing this on a windows box. It will be done on each machine pulling a script from itself, So its a stand alone computer that only works within itself. It doesn't interact with an outside source. I'm not very experienced with Perl so I'm not sure what other options there are. Here's what I started and the error:
my $test
open (X, "DOS command where I'm pulling from |");
$the_pass = <X>;
close(X);
print $the_pass (for now to verify we got the password)
open $test ,"| lsnrctl "; (starts the listener)
print $test "status\n"; (shows status)
print $test "change_password\n"; (type 'change_passwrd')
print $test "\n"; (prompts for old_pswd)
and errors with SNL-00102: snlpsprom: not a tty connection and we cannot get any further. Its security w/in the oracle listener. The only example I could find on the web was using Expect. Normally (here we would hit enter, to leave it blank)
print $test "$the_pass\n"; (wants new_pswd, it should atke the value from $the_pass which is holding the password and the same for the next line where it wants us to re-enter it)
print $test "$the_pass\n";
print $test "exit";
Thanks.