Re: [PERL] parse problem i perl
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]
 |
 |
 |
| |
|
|
 |
| |
|
Henvendelse vedrørende websiderne til <www_admin>.
|
Senest ændret
2005-08-10, klokken 19:52
Denne side vedligeholdes af
MHonArc
.
|
|
|
 |
 |
 |