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