请教怎么用perl实现bash shell可以实现的下列功能？ sqlplus /as sysdba <

分类: IT文章 • 2024-10-29 13:33:24

请问如何用perl实现bash shell可以实现的下列功能？ sqlplus /as sysdba <<EOF startup open; exit; EOF
sqlplus /as sysdba <<EOF  
startup open; 
exit; 
EOF

换句话说：在控制台里启动了1个命令行程序后，需要再输入一些该程序自己的命令，然后再退出程序。

------解决方案--------------------
可以用open打开文件管道sqlplus没有用过, 可以用其他的命令作实例

open FH, "|grep 'abc' |";

while(<>) {
print FH $_;
}

print "===\n";
while(<FH>) {
print ;
}

close FH;

------解决方案--------------------
open(SQL, "|sqlplus $username/$password@${dbname}_$host") or die "error: $!";
print SQL "$sql_statement;\n";
print SQL "exit";