Zpracovani textoveho retezce poslaneho metodou POST do CGI scriptu (fwd)

[Janek]

neni to sice primo funkce ale stacit to bude:

---
if ($ENV{'REQUEST_METHOD'} eq 'GET')

	@dve = split(/&/, $ENV{'QUERY_STRING'});
}
elsif ($ENV{'REQUEST_METHOD'} eq 'POST')

	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	@dve = split(/&/, $buffer);
}

foreach $druhy (@dve) {
  ($jmeno, $hodnota) = split(/=/, $druhy);
  $hodnota =~ tr/+/ /;
  $hodnota =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $promenna{$jmeno} = $hodnota;
}
---

udela to navic i rozdeleni do chlivecku (pracovni nazev :) a nezalezi na
pouzite metode (zvlada POST a GET)

--
[ ------------------------------ ]
[ Janek                          ]
[ Janek na isse.lipniknb.cz         ]
[ ------------------------------ ]
[         PERL/CGI/WWW           ]
[ ------------------------------ ]
[ http://isse.lipniknb.cz/~janek ]
[         yanek na IRCNet           ]
[ ------------------------------ ]


# -----Original Message-----
# From: perl na muni.cz [mailto:perl na muni.cz]On Behalf Of Honza Pazdziora
# Sent: Monday, December 18, 2000 2:00 PM
# To: Multiple recipients of list PERL
# Subject: Zpracovani textoveho retezce poslaneho metodou POST do
# CGI scriptu (fwd)
#
#
#
# Fwduji.
#
# ----- Forwarded message from Masilko Lukas
# <xmasilko na informatics.muni.cz> -----
#
# > From: Masilko Lukas <xmasilko na informatics.muni.cz>
# > Subject: Zpracovani textoveho retezce poslaneho metodou POST do
# CGI scriptu
# > Date: Mon, 18 Dec 2000 13:03:55 +0100 (MET)
# > To: adelton na fi.muni.cz
# >
# > Dobry den,
# >
# > potreboval bych poradit s nasledujicim problemem. Na sve webove strance
# > jsem si udelal formular, jehoz soucasti je take textarea, kam se pise
# > libovolne dlouhy text. Tento formular posilam pomoci metody post ke
# > zpracovani cgi skriptu (je napsan v /bin/bash) a jiz zminena textarea je
# > posilana trochu jinak, nez jak ji zadava klient na webu, a to, ze jine
# > znaky nez (mala, velka) pismena a cisla se koduji (zrejme do
# hexadecimalni
# > soustavy, pricemz pred kod se da "%"). Navic mezera se koduje
# > pouze znakem "+" a znak "." zustava zachovan v puvodni tvaru. Potreboval
# > bych poradit, zda neexistuje jiz nejaka naprogramovana funkce v Perlu,
# > ktera by tento kod prevadela zpatky do te cestiny, ktera byla klientem
# > zadana. Pokud ano, v jake knihovne bych ji mohl nalezt.
# >
# > Predem diky za odpoved,
# >
# > zdravi Lukas Masilko
# >
# >
# > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# > @ MAIL TO:  <xmasilko na fi.muni.cz> or <masli na quick.cz>
# > @ PHONE TO: 0606/540065
# > @ SMS TO:   00420606540065 na sms.eurotel.cz
#
# > @ HTTP:     http://www.fi.muni.cz/~xmasilko
# > @ "it`s only communication"
# > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#
# >
# >
# >
# >
# >
# >
# >
# >
#
# ----- End forwarded message -----
#
# --
# ------------------------------------------------------------------------
#  Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
#  .project: Perl, mod_perl, DBI, Oracle, auth. WWW servers, XML/XSL, ...
# Petition for a Software Patent Free Europe http://petition.eurolinux.org
# ------------------------------------------------------------------------