Re: Getting issue in inserting a line in between a file

[Jim Gibson]

At 11:29 PM -0800 1/20/10, harish behl wrote:

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 -->";

You need a newline character (\n) at the end of this string.

            if ($flag==0)
            {
            print WRITEFILE1 $line1;
            print WRITEFILE1 $dbdrv;

print "WRITEFILE1 \n"; $flag=1;

            }
            else
            {
            print WRITEFILE1 $line1;
             }
              }

--
Jim Gibson
j...@gibson.org

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/