Форум Flasher.ru

Форум Flasher.ru (http://www.flasher.ru/forum/index.php)

- Perl (http://www.flasher.ru/forum/forumdisplay.php?f=21)

- - Get&post (http://www.flasher.ru/forum/showthread.php?t=61925)

Скажите pls, возможно ли передавать данные из формы в Perl скрипт двумя методами одновременно, я имею в виду вот что:
<form action="script.cgi?m=read&t=y" method="post">
<input type="text" name="txt">
<input type="submit" name="xxx">
</form>
:)

Естественно можно.
А в чём собственно проблема то?

У меня почему-то глючит. Те каторые GET принимаются param('...'), а POST таким же образом нет.

Вопрос по передаче данных здесь уже много раз обсуждался.
Я обычно, в таких случаях как у тебя, пользуюсь следующим кодом:

Код:

%param = &comming();



sub comming {

        my $dl = $ENV{CONTENT_LENGTH};

        my $query = $ENV{QUERY_STRING};

        if ($dl >0) {

          sysread(STDIN, $que, $dl);

          if ($query) {

            $query = $query.'&'.$que;

          }

          else {

            $query = $que;

          }

        }

        my @comm = split('&', $query);

        my %query = ();

        foreach (@comm) {

          /([^=]+)=(.*)/ && do {

            local ($field, $value) = ($1, $2);

            $query{$field} = &decode($value);

          }

        }

        return %query;

}



sub decode {

        my($val)=@_;

        $val=~s/\+/ /g;

        $val=~s/%([0-9A-H]{2})/pack('C',hex($1))/ge;

        return $val;

}

После чего получаем хэш %param ...

А дальше совсем просто:

Код:

foreach $key (keys %param) {

        $value = $param{$key};

        print "$key => $value";

}

Работает как через GET так и через Post или при одновременной передаче данных через GET и POST.
Ещё ни разу не подводил...
:cool: