On 7 5 , 11 42 , [EMAIL PROTECTED] (T Baetzler) wrote:
Thanks...
The following loop is used to format the contents:
for my $key (keys %station)
{ $sta[$k].="<Placemark>\n <visibility>0</visibility><name>$key</
name><description><![CDATA[<hr><center><h3>a href=http://
globec.whoi.edu>U.S.GLOBEC</a> </h3><img src=\"http://mapservice-
xu.whoi.edu/globec.gif\"><br><P>
<a href=http://mapservice-xu.whoi.edu/maps-bin/globec-xu/map4>GEORGES
BANK MAPSERVER</a></center>
<p><hr><a href=http://globec.whoi.edu/jg/serv/globec/gb/
inventory.html1?project%20eq%20$cruise[$k]>$cruise[$k]</a>
<p>".$key."<center><table border=1><tr><th>instrument</th><th>cast</
th><th>date_time</th><th>se_flag</th><th>lat</th><th>lon</
th><th>depth_w</th><th>depth</th><th>comments</th></tr>";
my @[EMAIL PROTECTED];
for (my $p=0;$p<=$#tmp_lev0;$p++)
{ my @[EMAIL PROTECTED];
$sta[$k].="<tr><td>".join("</td><td>",@sta_tmp)."</td></tr>";
}
$sta[$k].="</table></center><p><hr><center>$date</center>]]></
description>\n"."<Point>\n<coordinates>".$tmp_lev0[0][5].','.
$tmp_lev0[0][4].",0</coordinates>\n </Point></Placemark>\n";
}
}
And, this is used to finish the whole file content:
for (my $i=0;$i<=$#data;$i++)
{ $kml.="<Folder><open>0</open><name>station</name>".
$sta[$i]."</Folder>";}
At this point, if I use following script, I can work as I wish:
print "Content-type: text/html\n\n";
print $kml;
if I use "print FID $kml;", the trouble is coming...
What happened?
BR,
xu
> herostar1981 <[EMAIL PROTECTED]> asked:
>
> > I have a big question.....
> > why are the contents different between what I write to file
> > and what print in screen?
>
> Obviously you are doing something wrong ;-)
>
> If you want us to help you, please send a minimal code sample
> that demonstrates your problem.
>
> TIA,
> Thomas
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
