that code looks like it shouldn't even run. Several syntax errors. Like what are these two lines doing?
<param name=\"progressbar\" value=\"true\">
<param name=\"bgcolor\" value=\"black\">";
and the print line inside the foreach loop is missing the terminating double-quote on the end of the string. Maybe it should be:
-
print "<applet name=\"jmol\" code=\"JmolApplet\" archive=\"../../jmol-10.2.0/JmolApplet.jar\"
-
width=\"500\" height=\"500\">";
-
print "<param name=\"load\" value=\"../../jmol-10.2.0/$pdbidsiva;\">";
-
foreach(@value)
-
{
-
print "<param name=\"script\" value=\"spacefill off;wireframe off;select $_;select not (nucleic or protein or hoh);color white;cpk 0.5;wireframe 0.2;rotate x 180;\">";
-
}
-
print "<param name=\"progressbar\" value=\"true\">";
-
print "<param name=\"bgcolor\" value=\"black\">";
-
print "</applet>";
-
look into using the qq operator for printing your double-quoted strings. Makes all that messy escaping of embedded double-quotes unecessary.