perl登录oracle的sqlplus

http://biancheng.dnbcw.info/perl/240377.html

my @output = `sqlplus / as sysdba << END
select * from v\\\$database;
exit
END
`;
print "@output\n";