Nome:

Cognome :

< input type = " submit " >

< /form >

< /body>

< /html >
2 < p > Utilizzare l'editor di testo per creare un nuovo file di nome process_php.php . Questo file viene chiamato quando l' utente compila e invia il modulo in process_php.html . Lo script prende i valori dal nome e gli ultimi campi di nome e li stampa in formato HTML. Salva process_php.php al server Web

< php

$ first_name = $ _POST [' first_name '] ; . ?

$ Cognome = $ _POST [' cognome '] ;

echo " Il primo nome è" . $ first_name ;

echo " Il cognome è" . $ cognome ;

>
3

Modifica process_php.html ? . Assegnare l'azione sul form per process_php.php . Utilizzare l'attributo metodo per specificare che deve essere presentato con il metodo POST e salvare il file .

< Form action = metodo " process_php.php " = "post " >

nome:

Cognome : < nome di input = tipo di " cognome " = " text " >

< /form >

< /body>

< /html >
4

Utilizzando un browser Web per accedere dal server Web , process_php.html aperto. Compila il modulo e fai clic su " Invia" per elaborare i dati .
Scrittura di uno script PERL per i dati Post Processing
5

Aprire un editor di testo e creare una pagina Web con una forma scritta in HTML . Questa forma ha due campi di input : uno per nome via dell'utente e una per l'utente CAP . Aggiungere un pulsante di invio di sotto dei due campi di input . Assegnare un nome al file di process_perl.html e salvarlo in un server web .

Via Nome :

CAP :

< input type = " submit " >

< /form >

< /body>

< /html >
6 < p > Utilizzare l'editor di testo per creare un nuovo file di nome process_perl.pl . Questo file viene chiamato quando l' utente compila e invia il modulo in process_perl.html . Lo script prende i valori dal nome della strada ei campi di codice di avviamento postale e li stampa in formato HTML. La prima riga dello script è il percorso PERL sul server web . Salva process_perl.pl ad un Web server.

# ! Path_to_perl

if ( $ ENV { ' ​​REQUEST_METHOD '} 'POST' eq ) {

lettura ( stdin, $ tampone , $ ENV { ' ​​CONTENT_LENGTH ' });

@ Kvs = split ( /& /, $ tampone ) ;

foreach $ Kvs ( @ Kvs ) {

= split ( /= /, $ Kvs ) ( $ name , $ value);

$ FORM { $ nome} = $ valore ; }

} < br

stampa > " Content-type : text /html \\ n \\ n";

stampa "