[PERL] как работать с данными POST

[Alex Keda]

сабж. ни одного примера не нашёл.
может как-то неправильно ищщу?

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[hizel]

бедный деный Лис

Код: Выделить всё

use CGI qw/:standard/;

if(request_method() eq 'POST'){
  $comment = param('field_comment') if(param('field_comment') && length(param('field_comment')) < 100);
  ....
}

кстате

Код: Выделить всё

perldoc CGI

[Alex Keda]

хорошо.
а как сделать то что в php одной строкой:

Код: Выделить всё

var_dump($_POST)

? ибо я не знаю как будет называться параметр...

[hizel]

не будь лапшой позырь perldoc CGI

FETCHING A LIST OF KEYWORDS FROM THE QUERY:
@keywords = $query->keywords

If the script was invoked as the result of an <ISINDEX> search, the parsed keywords can be obtained as an array using the keywords() method.

FETCHING THE NAMES OF ALL THE PARAMETERS PASSED TO YOUR SCRIPT:
@names = $query->param

If the script was invoked with a parameter list (e.g. "name1=value1&name2=value2&name3=value3"), the param() method will return the parameter names as a list. If
the script was invoked as an <ISINDEX> script and contains a string without ampersands (e.g. "value1+value2+value3") , there will be a single parameter named
"keywords" containing the "+"-delimited keywords.

NOTE: As of version 1.5, the array of parameter names returned will be in the same order as they were submitted by the browser. Usually this order is the same as
the order in which the parameters are defined in the form (however, this isn't part of the spec, and so isn't guaranteed).

[hizel]

если у тебя микс GET и POST

MIXING POST AND URL PARAMETERS
$color = url_param('color');

It is possible for a script to receive CGI parameters in the URL as well as in the fill-out form by creating a form that POSTs to a URL containing a query string (a
"?" mark followed by arguments). The param() method will always return the contents of the POSTed fill-out form, ignoring the URL's query string. To retrieve URL
parameters, call the url_param() method. Use it in the same way as param(). The main difference is that it allows you to read the parameters, but not set them.

Under no circumstances will the contents of the URL query string interfere with similarly-named CGI parameters in POSTed forms. If you try to mix a URL query
string with a form submitted with the GET method, the results will not be what you expect.

[Alex Keda]

толи лыжи не едут...

Код: Выделить всё

[Thu Feb 18 14:55:15 2010] [error] [client 195.93.241.11] Can't call method "keywords" on an undefined value at testperl.pl line 11., referer: http://doska.lissyara.su/aaa.html

[Thu Feb 18 14:56:45 2010] [error] [client 195.93.241.11] Can't call method "param" on an undefined value at testperl.pl line 12., referer: http://doska.lissyara.su/aaa.html

вот за это я и ненавижу перл.
примеры из доки не работают.
в php - все примеры всегда рабочие.

[hizel]

ну и пользуй пых

где твой код? я его не наблюдаю

кто-то видимо забил на четкое указание:

Код: Выделить всё

use CGI qw/:standard/;

[Alex Keda]

Код: Выделить всё

hosting$ more ~lissyara/www/data/cgi-bin/testperl.pl
#!/usr/bin/perl -w
#


use CGI qw/:standard/;

print "Content-type: text/plain; charset=iso-8859-1\n\n";

if(request_method() eq 'POST'){

        #@keywords = $query->keywords;
        @names = $query->param;
        foreach $key (@names)
        {
                print "name = $key; value = " . param($key) . "\n\n";
        }

        exit;
        #$comment = param('domain');
        if(param('domain') && length(param('domain')) > 3){
                print "Content-type: text/plain; charset=iso-8859-1\n\n";
                print param('domain') . "\n";

        }
}

[Alex Keda]

ы-ы-ы-ы....
изыди!
или дефку эту не пихай везде хотя бы ))

[hizel]

тчёрт:

Код: Выделить всё

#!/usr/bin/perl

use CGI qw/:standard/;

print header;

print '<html><head><title>post test</title></head>';

if(request_method() eq 'POST'){
  my @names = param;
  print '<body>';
  for $key (@names){
        print '<p>', $key, '=>', param($key), '</p>';
  }
  print '</body>';
}else{
  print '<body><form action="" method="post"><input type="text" name="login"><input type="submit" value="submit"></form></body>'
}

print '</html>';
 

сравни со своим

[hizel]

ну ты даешь

откуда у тебя в коде @names = $query->param; вылезло !?

[hizel]

почему в этом дурацком phpbb3 подсветка только для пыха !?

[thefree]

QUERY_STRING

[Alex Keda]

срослось, всем пасиба!

[hizel]

срослось, всем пасиба!

ты написал на пэхопэ?

[Alex Keda]

нет. он плохо подходит для системного языка программирования.
жаль что на шелле POST не разберёшь, иначе скрипт так и остался бы шелловым )

[zg]

нет. он плохо подходит для системного языка программирования.

значит ты просто не умеешь его готовить

почему в этом дурацком phpbb3 подсветка только для пыха !?

потому что она встроена в пых

жаль что на шелле POST не разберёшь

почему? http://anton-pribora.ru/cgi-bin/post.cgi

Код: Выделить всё

% cat cgi-bin/post.cgi
#!/bin/sh

echo 'Content-type: text/html'
echo

echo '<form method="POST">'
echo '  <input type="text" name="hello" value="world">'
echo '  <input type="submit" value="send">'
echo '</form>'

echo '<pre>POST-data'
cat
echo '</pre>'

разбирай не хочу

[hizel]

пэхапэшники такие пэхапэшники, о безопасности думаем в последнею очередь и размазываем критические участки по всему коду, жрите пользователи : )

[zg]

размазываем критические участки по всему коду

например?

пэхапэшники такие пэхапэшники

эммм, где тут пхп?

[ADRE]

пэхапэшники такие пэхапэшники, о безопасности думаем в последнею очередь и размазываем критические участки по всему коду, жрите пользователи : )

ага... учите нас перлу

[hizel]

zg этот наброс относился к сгенерированому Лисом коду, плохое наследство пых юнности