Hi,
I have to insert a line in the file.
Issue after running the script: It's inserting line like
<?xml version = '1.0' encoding = 'UTF-8'?>
<!-- dbdrv: exec java oracle/jrad/tools/xml/importer XMLImporter.class java
&phase=dat+24 checkfile:~PROD:~PATH:~FILE &fullpath:~PROD:~PATH:~FILE -username
&un_apps -password &pw_apps -dbconnection &jdbc_db_addr -userId "1"
-rootPackage /oracle/apps/~PROD -rootdir &fullpath:~PROD:mds:directory -->
<content>
<content> is also coming in the same line instead of coming in the separate
line.
Present file :
<?xml version = '1.0' encoding = 'UTF-8'?>
<content>
It should be after updation like
<?xml version = '1.0' encoding = 'UTF-8'?>
<!-- dbdrv: exec java oracle/jrad/tools/xml/importer XMLImporter.class java
&phase=dat+24 checkfile:~PROD:~PATH:~FILE &fullpath:~PROD:~PATH:~FILE -username
&un_apps -password &pw_apps -dbconnection &jdbc_db_addr -userId "1"
-rootPackage /oracle/apps/~PROD -rootdir &fullpath:~PROD:mds:directory -->
<content>
I have written the below code
open(READFILE1, "<$filename");
my @lines1 = <READFILE1>;
close READFILE;
open(WRITEFILE1, ">$filename");
my $flag=0;
foreach my $line1 (@lines1)
{
my $dbdrv="<!-- dbdrv: exec java oracle/jrad/tools/xml/importer
XMLImporter.class java &phase=dat+24 checkfile:~PROD:~PATH:~FILE
&fullpath:~PROD:~PATH:~FILE -username &un_apps -password &pw_apps -dbconnection
&jdbc_db_addr -userId \"1\" -rootPackage /oracle/apps/~PROD -rootdir
&fullpath:~PROD:mds:directory -->";
if ($flag==0)
{
print WRITEFILE1 $line1;
print WRITEFILE1 $dbdrv;
print "WRITEFILE1 \n";
$flag=1;
}
else
{
print WRITEFILE1 $line1;
}
}
Please let me know your valuable suggestion.
Thanks,
Harish
The INTERNET now has a personality. YOURS! See your Yahoo! Homepage.
http://in.yahoo.com/
