Dotaz: CGI-BIN predanie parametrov v jednom scripte

[shepi]

Ahojte

Potrebujem ukazat nejaky priklad ako predam parametre s input HTML poli aby si ich prevzal script na dalsie spracovanie.Tu mam nejaky priklad ale asi som to pokafral.

#!/bin/bash

echo Content-type: text/html
echo ""

meno=$realname
mail=$email

if [ $# = 0 ]
then
/bin/cat  EOM1
HTML
HEAD TITLEText search /TITLE
/HEAD
BODY bgcolor="#cccccc" text="#000000"
HR SIZE=5
H1Text search /H1

FORM method="POST" ACTION="../cgi-bin/scr11a_input.pl"
name: INPUT NAME=realnameBR
email: INPUT NAME=emailBR
INPUT TYPE=SUBMIT value="ok" 
/FORM

/BODY
/HTML
EOM1

else

/bin/cat  EOM2
HTML
HEADTITLESearch results for $* /TITLE
/HEAD
BODY bgcolor="#cccccc" text="#000000"
HR SIZE=5
H1Search results for $meno $mail /H1
HR SIZE=5
Py
PRE
EOM2

/bin/cat  EOM3

P
/BODY
/HTML
EOM3
fi

Toto by malo zobrazit premenne meno;mail ale nezobrazuje a nechcem to posielat do dalsieho suboru.pl . Musel som vyhodit v ukazke < > aby mi to vzalo. Dik za typy

Odpovědi

[Jan Šimák]

Z příkladu mi není jasné, kde a jakým způsobem plníš proměnné $meno a $mail (jestli se ptáš na toto)?

[shepi]

myslel som ze ked napisem

meno=$realname mail=$email

a postlaceni submit sa script odkaze sam na seba tak naplni tieto premenne. blbost ?

[shepi]

cesta vedie cez $QUERY_STRING a tam mi to hadze takze stadial to budem naplnat. ale ak mate nejaky typ napiste.

[Jan Šimák]

Aha
jednoduše třeba takto: zavolat script: script "pepa vyskoc" "pepa_vyskoc@vyskoc.cz"
a proměnné se naplní:

meno="$1"
mail="$2"

[kouzer]

Osobně bych to uložil do proměnných z POSTU: sub cistVstupPost {
my (%hledanePole, $buffer);
read(STDIN, $buffer, $ENV{CONTENT_LENGTH});
my @pary = split(/&/, $buffer);
foreach my $dvojice(@pary) {
 ($nazev, $hodnota) = split(/=/, $dvojice);
  if (not exists $hledanePole{$nazev} or $hledanePole{$nazev} eq $hodnota or $hledanePole{$nazev} eq '') {
  $hledanePole{$nazev} = $hodnota;
  } else {
   $hledanePole{$nazev}.=','.$hodnota;
  }
 }
 return (%hledanePole);
}
A pak bych tam dal exec nebo system a zavolel si jiný kript s parametry...
exec(muj_skript.pl param{prvni} param{druhy})