Loading ...
Sorry, an error occurred while loading the content.
 

[PBML] Re: Using a list in HTML

Expand Messages
  • Tomas Lauridsen
    On 20-Jun-99 dave@mag-sol.com wrote: If i paste this program to a file and run it, then I just get: No comma allowed after filehandle at ./form.pl line 9. why
    Message 1 of 7 , Jun 20, 1999
      On 20-Jun-99 dave@... wrote:

      If i paste this program to a file and run it, then I just get:

      No comma allowed after filehandle at ./form.pl line 9.

      why and what to do?

      > use CGI;
      >
      > my %list = ('ethernet'=>'Ethernet',
      > 'token16'=>'Token Ring - 16MB',
      > 'token4'=>'Token Ring - 4MB');
      >
      > print header,
      > start_html,
      > start_form,
      > scrolling_list(-name=>'network',
      > -multiple=>'true',
      > -values=>[keys @list],
      > -labels=>\%list),
      > end_form,
      > end_html;

      ----------------------------------
      E-Mail: Tomas Lauridsen <trol@...>

      Love thy neighbor, tune thy piano.

      ----------------------------------

      ------------------------------------------------------------------------

      eGroups.com home: http://www.egroups.com/group/perl-beginner
      http://www.egroups.com - Simplifying group communications
    • dave@mag-sol.com
      wrote: original article:http://www.egroups.com/group/perl-beginner/?start=65 ... Sorry about that. The corrected code is
      Message 2 of 7 , Jul 15, 1999
        <xfmail.990620200020.tro-@...> wrote:
        original article:http://www.egroups.com/group/perl-beginner/?start=65
        >
        > On 20-Jun-99 dave@... wrote:
        >
        > If i paste this program to a file and run it, then I just get:
        >
        > No comma allowed after filehandle at ./form.pl line 9.
        >
        > why and what to do?

        Sorry about that. The corrected code is below...


        > > use CGI qw/:standard/;
        > >
        > > my %list = ('ethernet'=>'Ethernet',
        > > 'token16'=>'Token Ring - 16MB',
        > > 'token4'=>'Token Ring - 4MB');
        > >
        > > print header,
        > > start_html,
        > > start_form,
        > > scrolling_list(-name=>'network',
        > > -multiple=>'true',
        > > -values=>[keys %;list],
        > > -labels=>\%list),
        > > end_form,
        > > end_html;



        ------------------------------------------------------------------------

        eGroups.com home: http://www.egroups.com/group/perl-beginner
        http://www.egroups.com - Simplifying group communications
      Your message has been successfully submitted and would be delivered to recipients shortly.