#!/store/bin/perl -wT # # Et enkelt CGI-script som returnerer data du har gitt. use strict; use diagnostics; use CGI_Lite; my $cgi = new CGI_Lite; # En annen måte å lage et objekt på $cgi->set_platform("Unix"); $cgi->add_mime_type("text/html"); my %form = $cgi->parse_form_data; # Hente inn data fra browser $/ = undef; # Vi vil ha alt på en gang når vi leser fra en filehandle my $page = ; # Leser fra __DATA__ nedenfor foreach my $data_key (keys %form) { # Bytte ut f.eks. $NAVN med $form{NAVN} $page =~ s/\$$data_key/$form{$data_key}/gm; } $page =~ s/\$\w+/foo/gm; print "Content-type: text/html\r\n\r\n"; print $page; __DATA__ CGI_Lite-test

Hei, $NAVN

Du er $ALDER år gammel, har jeg hørt!