Re: [PERL] parse problem i perl

[Ole Tange <sslug@sslug>]

On Thu, 25 May 2000, Kim Schulz wrote:

> Ole Tange skriver:
> > 
> > On Thu, 25 May 2000, Kim Schulz wrote:
> > 
> > > hejsa jeg har følgende kode, men jeg ønsker ikke at det skal fjerne
> > > ÆØÅæøå !
> > > hvordan rettes det til så det ikke gør dette?
> > 
> > Brug CGI.pm
> > 
> > /Ole
> 
> kan du ikke give et eksempel?

Fra  man CGI

         use CGI qw/:standard/;
         print header,
               start_html('A Simple Example'),
               h1('A Simple Example'),
               start_form,
               "What's your name? ",textfield('name'),p,
               "What's the combination?", p,
               checkbox_group(-name=>'words',
                              -values=>['eenie','meenie','minie','moe'],
                              -defaults=>['eenie','minie']), p,
               "What's your favorite color? ",
               popup_menu(-name=>'color',
                          -values=>['red','green','blue','chartreuse']),p,
               submit,
               end_form,
               hr;

          if (param()) {
              print "Your name is",em(param('name')),p,
                    "The keywords are: ",em(join(", ",param('words'))),p,
                    "Your favorite color is ",em(param('color')),
                    hr;
          }

Der er mange flere i  man CGI

/Ole