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/