This is my html page:

#!/usr/bin/perl -W
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI;

print "Content-type: text/html\n\n";
print <<ENDHTML;

<html>

<head>

<title>Title</title>

<script language='Javascript'>

function validate_required(field,alerttxt)
        {
        with (field)
                {
                if (value==null || value==\"\")
                        {
                        alert(alerttxt);
                        return false;
                        }
                else
                        {
                        return true;
                        }
                }
        }

function validate_form(thisform)
        {
        with (thisform)
                {
                if (validate_required(rundir,\"Runpath must be filled 
+out!\")==false)
                        {
                        rundir.focus();
                        return false;}
                        }
                }
        }
</script>

</head>

<body ><form name='form1' action='XXXXXX' method='POST' onsubmit=\"ret
+urn validate_form(
this)\">

<div align=\"center\">

<table cellpadding=\"10\">
        <tr>
                <td>
                        <font color='CC3300'><b>Enter rundir path</b>:
+</font>
                </td>

                <td>
                        <input type=text name=rundir size=50 onChange=
+\"valid_data(this.name)\">
                </td>
        </tr>

        <tr>
                <td>
                        <font color='CC3300'><b>Select Version</b>:</f
+ont>
                </td>

                <td>
                        <form name=options action=\"XXXXX\" method='GE
+T'>
                                <select name=version Version>
                                        <option selected value=\"$ver1
+\">$ver1</option>
                                        <option value=\"$ver2\">$ver2<
+/option>
                                        <option value=\"$ver3\">$ver3<
+/option>
                                </select>
                        </form>
                </td>
        </tr>


                                                                     <
+tr>
                <td></td>

                <td>
                         <input type=\"submit\" value=\"Submit\" />
                </td>
        <tr>
                <td></td>

                <td>
                         <form name=user_log action=\"XXXXX\" method=P
+OST>
                                <input type=submit name=submit value=\
+"User Log\">
                        </form>
                </td>
        </tr>
</table>

</div>

</body>

</html>

ENDHTML

[download]

And this is my perl script that gives me my options:

#!/usr/bin/perl -W
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI;

#------------------------------------------------------------
#Get date
#------------------------------------------------------------

my $dt = `date`;
my (@dtar) = split /[ :]/, $dt;

#------------------------------------------------------------
#Get data
#------------------------------------------------------------

$FILEPATH = "/PATH";
$valar = `ls $FILEPATH`;

#------------------------------------------------------------
#Get 3 versions
#------------------------------------------------------------


@valar1 = split(/[\s+\n]/, $valar);

foreach (@valar1)
        {
        if ($_ =~ /$dtar[1]/)
                {
                my ($ver1) = $_ =~ m/(v09.11-[a-z]\d{3})/;
                print "$ver1\n";
                last;
                }
        }

foreach (@valar1)
        {
        if (my ($ver2) = $_ =~ m/(v09.10-[a-z]\d{3})/)
                {
                print "$ver2\n";
                last;
                }
        }

foreach (@valar1)
        {
        if (my ($ver3) = $_ =~ m/(v08.\d{2}-[a-z]\d{3})/)
                {
                print "$ver3\n";
                last;
                }
        }

[download]

But the options in the list dont show!!

In reply to Re^4: missing outputs by blackgoat
in thread missing outputs by blackgoat

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.