Re: [PERL] parse problem i perl

[Kim Schulz <sslug@sslug>]

Ole Tange skriver:
> 
> On Thu, 25 May 2000, Kim Schulz wrote:
> 
> > Ole Tange skriver:
> 
> 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
jeg klarede det uden, ved at putter æøåÆØÅ ind det rette sted i koden! 
 $in{$key} =~ s/[^A-Z0-9ÆØÅæøå\.!?\$ ,'"<>@\/~:+=\-()\*\n]//gio;
                       ^^^^^^^^



-- 
-
 MVH
   Kim schulz
========================================================================
|                 ADICT Kode Slave - www.adict.net                     |
|            Dansk Linux Link Database - www.LinuXia.dk                |
========================================================================
              Sleep is just a cheap substitute for coffee     
     Fast, reliable, cheap - pick any two - [Microsoft in a Nutshell]