Indsamling af informationer ..

Du laver blot en helt alm. html-side med en form der rummer alle de indtastningsfelter folk skal taste ind.

Du erklærer en <form> hvor action er sat til at pege på dit cgi-program. Eksempel:

<form action=\'/cgi-bin/dataindsamling.cgi\' method=post>

...hvis dit script vel at mærke hedder dataindsamling.cgi og ligger i dit cgi-bin

Dit perl-program kunne så eksempelvis se således ud:

#!/usr/bin/perl

use strict; # Kun hvis du plejer at bruge strict. Den kan fjernes.

###################### main #####################
print \"Content-type: text/html\\n\\n\";
my %form;
%form = &hentCgi();
&skrivTilFil(\"data.txt\");
print \"<html><head><title>Tak for dit input</title></head><body>\\n\";
print \"Mange tak for dit input. Dit indl&aelig;g er registreret\\n\";
print \"</body></html>\\n\";


################## SUB RUTINER ###################
# hent cgi parametre
sub hentCgi {
  my $buffer;
  if ( $ENV = $ENV{\"REQUEST_METHOD\"} =~ m/GET/i ) {
    $buffer = $ENV{\"QUERY_STRING\"};
  }
  elsif ( $ENV{\"REQUEST_METHOD\"} =~ m/POST/i ) {
    read ( STDIN, $buffer, $ENV{\"CONTENT_LENGTH\"} );
  }
  my @pairs = split(/&/, $buffer);
  my %cgiform;
  foreach (@pairs) {
    $_ =~ tr/+/ /;
    $_ =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(\"C\", hex($1))/eg;
#    $_ =~ s/([;<>\\*\\|\\`&\\$!\\#\\(\\)\\[\\]\\{\\}:\\\'\\\"])/\\\\$1/g;
    my ($name, $value) = split(/=/, $_, 2);
    $cgiform{$name} = $value;
  }
  return %cgiform;
}#hentCgi

#################################
# Skriver til den parameterangivne fil
sub skrivTilFil {
  open FIL \">>$_[0]\" || &fejlMeddelelse(\"Skrivefejl\",\"Kunne ikke åbne datafilen $_[0]\");
 
  # Her skriver du alle dine ønskede parametre ned i filen.
  # Her er et par eksempel-linier.

  print FIL $form{\'navn\'} . \"\\n\";
  print FIL $form{\'gadenavn\'} . \" \" . $form{\'husnr\'} . \"\\n\";
  print FIL $form{\'parameter3\'} . \"\\n\";
  print FIL $form{\'parameter4\'} . \"\\n\";
  close (FIL);
}

#####################################
# Udskriver en fejlmeddelelse, og lukker programmet.
sub fejlMeddelelse {
  print \"<html><head><title>Fejl</title></head><body>\\n\";
  print \"<h1>$_[0]</h1>\\n\";
  print \"$_[1]\\n\";
  print \"</body></html>\\n\";
  exit(0);
}


Det burde gøre det. Jeg har ikke lige syntaks-checket det her, da jeg ikke har mulighed for at køre perl på denne maskine. :-)

Du må jo skrive hvis der er problemer.

Blev dit problem løst?

Jeg afprøver det hurtigst muligt når jeg kommer nær serveren.. nok imorgen.. der vender jeg tilbage!

afsluttet.. anden løsning fundet