Form:
Expand|Select|Wrap|Line Numbers
- <form name="myForm" method="post" action="regScript.pl"><br />
- Nome:
- <input type="text" name="Nome"><br />
- Cognome:
- <input type="text" name="Cognome"><br />
- Matricola:
- <input type="text" name="Matricola"><br />
- Password:
- <input type="text" name="Password"><br />
- <input type="submit" name="subbtn" value="Submit">
- </form>
Expand|Select|Wrap|Line Numbers
- #!/usr/bin/perl
- print "Content-type: text/html\n\n";
- read(STDIN, $FormData, $ENV{'CONTENT_LENGTH'});
- @dati = split(/&/, $FormData);
- foreach $el (@dati) {
- ($name, $value) = split(/=/, $el);
- $value =~ tr/+/ /;
- $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
- $FORM{$name} = $value;
- }
- print $FORM{'Name'};
Someone can help me please?
Sorry form my english :)