#! /usr/bin/regina /* un script cgi commence par indiquer le type de contenu qu'il fournit */ /* au serveur web, soit ici une page web avec du texte : */ say 'Content-type: text/html' say '' /* début classique et propre d'une page web */ say '' say '' say " exemple de méthode get en rexx - (gH) ; http://www.info.univ-angers.fr/pub/gh/" say "" say '' say '' say '
 

' /* récupération du contenu de la variable d'environnement nommée QUERY_STRING */ qs = value('QUERY_STRING',,'SYSTEM') /* en fonction du contenu, divers messages */ if words(qs)=0 then do say '

Vous n'"'"'avez passé aucun paramètre.' say "

Allez sur la ligne de l'URL (c'est la ligne qui commence par http://...)" say "

puis ajoutez à la suite du mot hex.rex" say "le texte ?mot=PoMme" say '

ou cliquez simplement ici.' end ; else do say '

Vous avez passé comme paramètre le texte :' say '

     ' qs say '

Voici comment je l'"'"'interprète :' aff. = 0 nba = 0 do while length(qs)>0 parse value qs with affe "&" qs parse value affe with var "=" val if length(val)>0 then do nba = nba + 1 aff.nba = affe end /* fin de si affectation valide */ end /* fin tant que qs n'est pas vide */ say "

" say "

"
    if nba>0 then do
       say " vous avez "'' nba "affectations séparées par le symbole "'&'
       say
       do i = 1 to nba
          affe  = aff.i
          haffe = '' affe ''
          say ' l'"'"'affectation numéro ' format(i,2) " est " haffe
          parse value affe with var "=" val
          msg = "   donc la valeur "''val''
          say msg " doit être mise dans la variable "''var'
'
          leMot = val
          longr = length(leMot)
          say " Conversion hexadécimale pour " leMot " de longueur " longr
          say " 
"
          say "       Numéro  Caractère   Valeur hexa"
          say " 
"
          do jcar=1 to longr
             lecar = substr(leMot,jcar,1)
             say format(jcar,12) "      " lecar   "      " c2x(lecar)
          end /* fin pour jcar */
       end /* fin pour i */
    end ; else do
       say " vous n'avez aucune affectation car une affectation est repérée par le symbole ="
       say " comme par exemple n=3 ce qui signifie que la variable n prend la valeur 3."
       say " en standard, je ne fais donc rien de votre ligne de paramètres."
    end /* fin de si "il y a des affectations " */
    say "
" end say '
' /* fin classique et propre d'une page web */ say '' say ''