Aprire un editor di testo e creare un file di nome " , perlTitle.pl " . Aggiungere la riga " baracca " al file sulla prima riga . La " baracca ", specifica la posizione interprete Perl nel caso in cui essa non può essere trovato . La linea " baracca " sarà diversa in base alla specifica installazione di Perl . Un esempio è mostrato sotto : !
# /Usr /local /bin /perl
2
Indicare che perlTitle.pl dovrebbe produrre una pagina web ( "text /html " ) stampando il "Content-Type " "text /html " valore ( includere i caratteri " \\ n \\ n" ) . Per stampare l'output , utilizzare il comando Perl " stampa" e stampare un aperto e un tag di chiusura " " per la pagina Web
print " Content-type : . Text /html \\ n \\ n " ; print " " ; print" < /html > " ;
3
Recupera i valori nella stringa di query . I valori " di query stringa" sono dei valori sottomessi con la pagina web . In questo esempio , il valore nella stringa di query sarà il titolo usato per modificare la barra del titolo . Conservare i valori di stringa di query in una variabile chiamata " $ keyValue " dichiarata tra perlTitle.pl s ' " " e " < /html >" tag :
$ KeyValue = ( $ ENV {' QUERY_STRING ' });
4
Utilizzare la funzione Perl "split" per dividere la stringa di query in due valori ( $ chiave, $ valore ) , ponendo la scissione immediatamente sotto il " $ keyValue " ; dichiarazione. In questo esempio , $ chiave è il nome della stringa del titolo ( " titolo ") e $ value è il valore della stringa del titolo. Utilizzare il carattere "=" per dividere il " $ keyValue " stringa :
( $ name , $ value ) = split ( /= /, $ keyValue ) ;
5
Usa il comando Perl "Stampa" per stampare il " valore di $ " variabile per la pagina web. Racchiudere il valore della variabile tra aperto "
print "
Utilizzare il comando Perl "print" per stampare un tag "
" tag e salvare e chiudere perlTitle.pl . Dopo il punto 7 , perlTitle.pl apparirà come mostrato di seguito :# /usr /local /bin /perlprint " Content-type : text /html \\ n \\ n"; print " ! , " ; $ keyValue = ( $ ENV { ' QUERY_STRING ' }); ( $ name , $ value ) = split ( /= /, $ keyValue ) ; print"
Programmazione © www.354353.com