Comment faire pour modifier la barre de titre en Perl Script
Le langage de programmation Perl est l'un des plus utilisés langages de programmation interprété pour la création de pages Web dynamiques. L'utilisation de Perl , les programmeurs peuvent altérer la page Web des interfaces utilisateur dans de nombreuses manières, par exemple en modifiant des balises HTML spécifiques tels que le tag " " . Scripts Perl exécuté sur le serveur web, donc ils exigent que les données est publiée sur le serveur Web afin de modifier dynamiquement les éléments de la page. Heureusement , Perl fournit des fonctions intégrées qui font de la récupération des informations diffusées facile. Choses que vous devez éditeur de texte serveur Web avec Perl installé et configuré correctement Afficher plus Instructions 1
Ouvrez un éditeur de texte et créez un fichier nommé " ; perlTitle.pl " . Ajoutez la ligne " shebang " dans le fichier sur la première ligne . Le " tralala " indique l'emplacement de l'interpréteur Perl dans le cas où il ne peut pas être trouvé. La ligne " shebang " sera différent en fonction de l'installation spécifique Perl. Un exemple est illustré ci-dessous :
# /usr /local /bin /perl 2
indiquer que perlTitle.pl devrait afficher une page Web ( "text /html" ) en imprimant le "Content- Type " valeur "text /html" ( inclure les caractères " \\ n \\ n") . Pour imprimer sortie , utilisez la commande Perl "print" et d'imprimer une ouverture et une balise de fermeture " " à la page Web
print " Content- Type : . Text /html \\ n \\ n " ; print" " ; print" "; 3
récupérer des valeurs dans la chaîne de requête . Les valeurs " de chaîne de requête " sont des valeurs soumises à la page web . Dans cet exemple, la valeur de la chaîne de requête sera le titre utilisé pour changer la barre de titre . Stocker les valeurs de chaîne de requête dans une variable appelée "$ keyValue " déclarée entre l ' perlTitle.pl " " et "< /html >" tags:
$ KeyValue = ( $ ENV {' QUERY_STRING '} ) ; 4
Utilisez la fonction " split" Perl pour diviser la chaîne de requête en deux valeurs ( touche $ et $ value) , en plaçant la division juste en dessous du "$ keyValue " ; déclaration. Dans cet exemple, $ key est le nom de la chaîne titre ( «title» ) et $ value est la valeur du titre chaîne. Utilisez le caractère «=» pour diviser la chaîne "$ keyValue ":
($ name , $ value ) = split ( /= /, $ keyValue ) ; 5
utilisation la commande Perl "imprimer" pour imprimer la " valeur $ variable" de la page Web . Joindre la valeur de la variable entre ouverte "
" et fermer " < /title >" balises HTML :
print "
$ value "; 6
Utilisez la commande Perl "imprimer" pour imprimer une étiquette "
" tag pour remplir le formulaire que l'utilisateur soumettra :
print "
"; 7
Utilisez la commande Perl "imprimer" pour imprimer un champ HTML " " à la page Web. Donner le champ de saisie de la valeur "type" "texte", la valeur de " nom " "title" et fermer la " " tag . Utilisez la commande Perl "imprimer" pour imprimer une deuxième HTML " " à la page Web avec une valeur "type" " soumettre " . Placez les deux commandes " d'impression " entre le " form " et "< /form> " balises et enregistrez et fermez perlTitle.pl . Après l'étape 7 , perlTitle.pl apparaît comme indiqué ci-dessous:
# /usr /local /bin /perlprint "Content- Type : text /html \\ n \\ n"; print " ! ; " ; $ keyValue = ($ ENV {' QUERY_STRING '} ) ; ($ name , $ value ) = split ( /= /, $ keyValue ) ; print"
$ value " ; print " "; print " "; 8
Ouvert perlTitle . pl dans un navigateur Web . Saisissez une valeur dans le champ de saisie , cliquez sur le bouton submit , et vérifier que les mises à jour du titre de la page web correctement .