[Moscow.pm] чтение необработанных POST-данных

[Alessandro Gorohovski]

Mons Anderson <mons на cpan.org> писал(а) в своём письме Wed, 13 Mar 2013  
00:48:17 +0200:

> Для начала нужно определить в каком окружении это запускается.
> если я правильно предполагаю и это cgi скрипт, то raw-post данные это
> просто <STDIN>
>
> #!/usr/bin/env perl
>
> my $data = do {  local $/; <STDIN> };
>
> print "Content-Type: text/plain\n\n";
> print "Got your data:\n";
> print $data;

Да, это так.
Моя ошибка была в том, что полагался на чтение
my $data = <>;

Как результат --- получал пустой файл.

Премного благодарен.

> 2013/3/13 Alessandro Gorohovski <an.gorohovski на gmail.com>
>
>> Уважаемое сообщество,
>> Доброго времени суток!
>>
>> Может кто-нибудь знает, подскажите пожалуйста:
>>
>> Как в web perl-скрипте реализовать чтение
>> необработанных POST-данных, подобно тому как это
>> делается в PHP через  ('php://input'), например,
>>
>> <?php
>>     # Get the raw POST data:
>>     $data = file_get_contents('php://**input');
>> ?>
>>
>> Спасибо,  ANG