develooper Front page | perl.beginners | Postings from February 2002

LISTBOX Problem

Thread Next
From:
Mike
Date:
February 6, 2002 06:48
Subject:
LISTBOX Problem
Message ID:
3C613D71.D4E8B8CB@hotmail.com
I am trying to populate a list box in a form with using the following
script and it works fine doing it this way:

#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "<HTML><HEAD>\n";
print "<TITLE> Current Weather Products</TITLE>\n";
print "</HEAD>\n";
print "<BODY>\n";
#print "<select name=\"select\">\n";
print "<form name=\"form\">\n";
print "<select name=\"radar\"
onChange=\"window.location=document.form.radar.options[document.form.radar.selectedIndex].value\">\n";

print "<option value=\"\">Zone Forecasts</option>\n";
chdir("/var/www/html/members/wx/zfp/") || die "Cannot chdir to
/var/www/html/members/wx/zfp/ ($!)";
while (<*>) {
        print "<option
value=\"http://www.myserver.com/members/wx/zfp/$_\">$_</option> \n";
        }
</select>\n
</BODY>\n
</HTML>\n
END


Here is the problem. If I change it to this:


#!/usr/bin/perl
print "Content-type: text/html\n\n";

print<<END
<HTML><HEAD>
<TITLE> Current Weather Products</TITLE>
</HEAD>
<BODY>
<form name=\"form\">
<select name=\"radar\"
onChange=\"window.location=document.form.radar.options[document.form.radar.selectedIndex].value\">

<option value=\"\">Zone Forecasts</option>
END

chdir("/var/www/html/members/wx/zfp/") || die "Cannot chdir to
/var/www/html/members/wx/zfp/ ($!)";
while (<*>) {
        print "<option
value=\"http://www.myserver.com/members/wx/zfp/$_\">$_</option> \n";
        }

print<<END
</select>\n
</BODY>\n
</HTML>\n
END

It errors out Can someone help me with this?

syntax error at ./listfiles.pl line 13, near "chdir"
  (Might be a runaway multi-line << string starting on line 4)
BEGIN not safe after errors--compilation aborted at ./listfiles.pl line
14.


Thanks Mike

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About