Hi All:
I've run into a bit of a bump in one of the perl programs that I'm writing
and I need the expertise of real perl gurus. I'm using perl 5.0 on Windows
98 Second Edition.
I'm writing $calar variables to an array using:
push (@outmenuarray,$outline); I'm then writing @outmenuarray to the a file
using:
open (MENUFILE,">$outmenufile") or die "Can't open outmenufile $outmenufile\n";
&pagetop;
print MENUFILE @outmenuarray;
&pagebottom;
close (MENUFILE);
undef @outmenuarray;
This is working fine on 166 of 168 files but on two files it drops the
first line consistantly. All other files are written correctly. The content
of the scalar $outline is almost identical (cut and pasted) from one file
to the next. i.e.
$outline = "\t\t".'<span class="alpha2"><img src="indent.gif" height="0"
width="26"><a href="/CoreA/A'."$tagname\.htm\#$evnlink\"\t".'target="right">'.
"$evnname </a></span><br>\n";
and, yes, all of the quotes are constructed correctly. It works on 166
files remember ;-)
The two files it isn't working on are the <blink> and another that I can't
remember at the moment. I've checked with debug and the $outline is written
correctly. The @outmenuarray is also written correctly and once the file is
written it is still correct. After the file is written I:
undef @outmenuarray;
so I'm not carrying baggage from one file-write to the next.
The <blink> file is being written but the first line is being thrown away.
I've checked the content of @outmenuarray to be sure there's nothing
volitile in there. Other files with the same content <xred> etc. are
written properly under the same circumstances.
Any suggestions?
Thanks for all your help.
Ron
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
