Cannot open file twice in TPL

Hi,

I m trying to do this in TPL
$logfile="/iwmnt/default/main/haircare/SessionSamples/Master/WORKAREA/workinprogress/templatedata/Session_Samples/Sample6/data/output.xml";
open (FHO,"<$logfile");
@filenamearray=;close(FHO);
open (FH,">$logfile");

But, it does not allow me to do this. Throws PT error in DCT.

How can I overcome this ?

Find more posts tagged with

Comments

prithvi

just to add more information:

1. I tried to run this script as a standalone perl file and it works smoothly.

2. checked log file, but could not find anything useful. It provides me following message:

XML parse error:
not well-formed (invalid token) at line 29, column 13, byte 942 at /apps/iw-home/iw-perl/site/lib/XML/Parser.pm line 187

The file is in following format:

-

How do I trace Teamsite execution line by line ?

nipper

just to add more information:

1. I tried to run this script as a standalone perl file and it works smoothly.

2. checked log file, but could not find anything useful. It provides me following message:

XML parse error:
not well-formed (invalid token) at line 29, column 13, byte 942 at /apps/iw-home/iw-perl/site/lib/XML/Parser.pm line 187

The file is in following format:

-

How do I trace Teamsite execution line by line ?

Post your TPL. I am guessing you are in strict XML mode and the >$log is invalid.

You do not need to be in XML mode anymore and that is an easy change

prithvi

hey nipper...Attached files. TPL as well as the target file.

nipper

Change this
[php]

to

[/php]

Then get rid of the close at the end. You will not need the CDATA tags.

Have it run, then start debugging,

prithvi

thanks nipper. Well, this took a different turn. Please see attached my new tpl file which actually solved the issue. The Perl code part was replaced before the DCR fields, and in CDATA tags. Not sure if this is a Bug.