What happens if you try quoting with " " the "<<SQLEND" part?
Also, generally, interfacing with anything via external command line tool rather than some API is less reliable and will give you all sorts of problems. Fi. On Mon, Apr 19, 2010 at 2:21 AM, newbie01 perl <newbie01.p...@gmail.com>wrote: > Hi all, > > I need to convert a lot of UNIX scripts into Perl. Most of them uses the > UNIX's EOF/EOL functionality. These scripts are mostly used to connect to > Oracle databases. At the moment, installing a DBI is not an option. The > scripts will be running locally on the servers so technically it should be > able to connect to the database without using a password. > > Example of a very simple test script is as below. If I run the script on > UNIX, it is all good. But on Windows, it gives the error "<< was unexpected > at this time." Can anyone please advise what I needed to change to get both > running for UNIX and Windows? > > Thanks in advance. > > Sample test code below: > > > sub test_01() > { > print "+-------------------------------------+ \n"; > print "Running :: sub test-01 !!! \n"; > print "+-------------------------------------+ \n"; > > print << `EOL`; > sqlplus -S "/as sysdba" <<SQLEND > set pagesize 0 > set heading off > set feedback off > set echo off > > alter session set nls_date_format = 'DD-MON-YYYY HH24:MI:SS' > ; > > select 'Today is : ' || sysdate || ' on Database -> ' || name > from v\\\$database > ; > SQLEND > EOL > } > > ######## > # MAIN # > ######## > > test_01; > > exit 0; > > ########### > # THE END # > ########### >